mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-27 18:30:47 -08:00
Code Issues Projects Releases Wiki Activity

Add basic timing facility for debugging.

Browse source
This commit is contained in:
Justin Burkett 2016-12-05 13:55:25 -05:00
parent 22928eeffa
commit cf698ea25e
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
which-key.el
View file

@ -568,6 +568,7 @@ used.")
(defvar which-key--previous-frame-size nil)
(defvar which-key--last-replace-key nil)
(defvar which-key--prefix-title-alist nil)
(defvar which-key--debug nil)
(make-obsolete-variable 'which-key-prefix-name-alist nil "2016-10-05")
(make-obsolete-variable 'which-key-prefix-title-alist nil "2016-10-05")
@ -2100,7 +2101,8 @@ is selected interactively by mode in `minor-mode-map-alist'."
Finally, show the buffer."
(setq which-key--current-prefix prefix-keys
which-key--last-try-2-loc nil)
(let ((formatted-keys (which-key--get-formatted-key-bindings))
(let ((start-time (when which-key--debug (current-time)))
(formatted-keys (which-key--get-formatted-key-bindings))
(prefix-keys (key-description which-key--current-prefix)))
(cond ((= (length formatted-keys) 0)
(message "%s- which-key: There are no keys to show" prefix-keys))
@ -2110,7 +2112,10 @@ Finally, show the buffer."
formatted-keys 0 which-key-side-window-location)))
(t (setq which-key--pages-plist
(which-key--create-pages formatted-keys))
(which-key--show-page 0)))))
(which-key--show-page 0)))
(when which-key--debug
(message "On prefix \"%s\" which-key took %.0f ms." prefix-keys
(* 1000 (float-time (time-since start-time)))))))
(defun which-key--update ()
"Function run by timer to possibly trigger `which-key--create-buffer-and-show'."