From 0479389d9df9e70ff9ce69dff06252d3aa40fc86 Mon Sep 17 00:00:00 2001 From: Hiroaki Otsu Date: Sat, 11 Oct 2014 23:38:12 +0900 Subject: [PATCH] set lighter in mode line --- owdriver.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/owdriver.el b/owdriver.el index f785b74..2baea22 100644 --- a/owdriver.el +++ b/owdriver.el @@ -5,7 +5,7 @@ ;; Author: Hiroaki Otsu ;; Keywords: convenience ;; URL: https://github.com/aki2o/owdriver -;; Version: 0.0.5 +;; Version: 0.0.6 ;; Package-Requires: ((smartrep "0.0.3") (log4e "0.2.0") (yaxception "0.2.0")) ;; This program is free software; you can redistribute it and/or modify @@ -197,6 +197,7 @@ (define-minor-mode owdriver-mode "Quickly perform various actions on other windows." :init-value nil + :lighter " OW" :keymap owdriver-mode-map :global t :group 'owdriver @@ -239,7 +240,7 @@ (not (eq popwnd (selected-window)))) (owdriver--trace "found nextable window : %s" (selected-window)) (setq popwnd (selected-window)) - (make-pophint:hint :startpt (point-min) :endpt (point) :value "")))) + (make-pophint:hint :startpt (window-start) :endpt (point) :value "")))) (action . (lambda (hint) (funcall pophint--default-action hint) (goto-char (pophint:hint-endpt hint))