diff options
| author | Justin Burkett | 2020-12-16 12:20:14 -0500 |
|---|---|---|
| committer | Justin Burkett | 2020-12-16 12:20:14 -0500 |
| commit | 428aedfce0157920814fbb2ae5d00b4aea89df88 (patch) | |
| tree | f6849d120a985afabd6c8ab15076259e0321a038 | |
| parent | 3908719ff2cf45ef886fa484af0cf8a81e95c9aa (diff) | |
| download | emacs-428aedfce0157920814fbb2ae5d00b4aea89df88.tar.gz emacs-428aedfce0157920814fbb2ae5d00b4aea89df88.zip | |
Further simplify which-key--pseudo-key
| -rw-r--r-- | which-key.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/which-key.el b/which-key.el index b2635ea6ad9..ba3efe3e8a3 100644 --- a/which-key.el +++ b/which-key.el | |||
| @@ -1596,7 +1596,7 @@ which are strings. KEY is of the form produced by `key-binding'." | |||
| 1596 | "Replace the last key in the sequence KEY by a special symbol | 1596 | "Replace the last key in the sequence KEY by a special symbol |
| 1597 | in order for which-key to allow looking up a description for the key." | 1597 | in order for which-key to allow looking up a description for the key." |
| 1598 | (let ((seq (listify-key-sequence key))) | 1598 | (let ((seq (listify-key-sequence key))) |
| 1599 | (vconcat (or prefix (butlast seq)) (vector 'which-key (last seq))))) | 1599 | (vconcat (or prefix (butlast seq)) [which-key] (last seq)))) |
| 1600 | 1600 | ||
| 1601 | (defun which-key--maybe-get-prefix-title (keys) | 1601 | (defun which-key--maybe-get-prefix-title (keys) |
| 1602 | "KEYS is a string produced by `key-description'. | 1602 | "KEYS is a string produced by `key-description'. |