mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-02 11:50:48 -08:00
Code Issues Projects Releases Wiki Activity

Remove commented out close timer stuff

Browse source 
Closes #10
This commit is contained in:
justbur 2015-07-07 15:21:57 -04:00
parent c6c50bbe4c
commit be7f2c9f5f
1 changed files with 0 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

22
which-key.el
View file

@ -27,8 +27,6 @@
(defvar which-key-idle-delay 1
"Delay (in seconds) for which-key buffer to popup.")
;; (defvar which-key-close-buffer-idle-delay 4
;; "Delay (in seconds) after which buffer is forced closed.")
(defvar which-key-echo-keystrokes
(min echo-keystrokes (/ (float which-key-idle-delay) 4))
"Value to use for echo-keystrokes. This only applies when
@ -95,8 +93,6 @@ location is top or bottom.")
"Internal: Holds reference to which-key window.")
(defvar which-key--open-timer nil
"Internal: Holds reference to open window timer.")
;; (defvar which-key--close-timer nil
;; "Internal: Holds reference to close window timer.")
(defvar which-key--setup-p nil
"Internal: Non-nil if which-key buffer has been setup.")
(defvar which-key--frame nil
@ -130,7 +126,6 @@ Used when `which-key-popup-type' is frame.")
(remove-hook 'focus-out-hook #'which-key/stop-open-timer)
(remove-hook 'focus-in-hook #'which-key/start-open-timer)
(which-key/stop-open-timer)))
;; (which-key/stop-close-timer)))
(defun which-key/setup ()
"Create buffer for which-key."
@ -152,17 +147,6 @@ Used when `which-key-popup-type' is frame.")
"Deactivate idle timer."
(when which-key--open-timer (cancel-timer which-key--open-timer)))
;; (defun which-key/start-close-timer ()
;; "Activate idle timer."
;; (which-key/stop-close-timer) ; start over
;; (setq which-key--close-timer
;; (run-at-time which-key-close-buffer-idle-delay
;; nil 'which-key/hide-popup)))
;; (defun which-key/stop-close-timer ()
;; "Deactivate idle timer."
;; (when which-key--close-timer (cancel-timer which-key--close-timer)))
;; Update
(defun which-key/update ()
@ -171,10 +155,6 @@ Finally, show the buffer."
(let ((key (this-single-command-keys)))
(if (> (length key) 0)
(progn
;; (which-key/stop-close-timer)
;; remove this because `which-key/show-popup' should be able to
;; handle the case where which-key buffer is already displayed
;; (which-key/hide-popup)
(let* ((buf (current-buffer))
;; get formatted key bindings
(fmt-width-cons (which-key/get-formatted-key-bindings buf key))
@ -185,8 +165,6 @@ Finally, show the buffer."
(which-key/populate-buffer formatted-keys column-width (window-width))))
;; show buffer
(which-key/show-popup popup-act-dim)))
;; (when (which-key/show-popup popup-act-dim)
;; (which-key/start-close-timer))))
;; command finished maybe close the window
(which-key/hide-popup))))