mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 07:51:17 -08:00
Code Issues Projects Releases Wiki Activity

simplify pseudo key

Browse source
This commit is contained in:
Daniel Mendler 2020-12-15 23:49:28 +01:00
parent ca268fd313
commit 3908719ff2
No known key found for this signature in database
GPG key ID: D88ADB2A2693CA43
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
which-key.el
View file

@ -677,12 +677,12 @@ update.")
(defvar which-key--ignore-non-evil-keys-regexp
(eval-when-compile
(regexp-opt '("mouse-" "wheel-" "remap" "drag-" "scroll-bar"
"select-window" "switch-frame" "which-key-"))))
"select-window" "switch-frame" "which-key"))))
(defvar which-key--ignore-keys-regexp
(eval-when-compile
(regexp-opt '("mouse-" "wheel-" "remap" "drag-" "scroll-bar"
"select-window" "switch-frame" "-state"
"which-key-"))))
"which-key"))))
(make-obsolete-variable 'which-key-prefix-name-alist nil "2016-10-05")
(make-obsolete-variable 'which-key-prefix-title-alist nil "2016-10-05")
@ -1595,11 +1595,8 @@ which are strings. KEY is of the form produced by `key-binding'."
(defun which-key--pseudo-key (key &optional prefix)
"Replace the last key in the sequence KEY by a special symbol
in order for which-key to allow looking up a description for the key."
(let* ((seq (listify-key-sequence key))
(final (intern (format "which-key-%s" (key-description (last seq))))))
(if prefix
(vconcat prefix (list final))
(vconcat (butlast seq) (list final)))))
(let ((seq (listify-key-sequence key)))
(vconcat (or prefix (butlast seq)) (vector 'which-key (last seq)))))
(defun which-key--maybe-get-prefix-title (keys)
"KEYS is a string produced by `key-description'.