diff options
| author | Jeremy Bryant | 2024-03-08 23:20:07 +0000 |
|---|---|---|
| committer | Justin Burkett | 2024-03-12 16:31:58 -0400 |
| commit | 6e035b5e2f7c94d39fe4a6765c6c52258bcf14d5 (patch) | |
| tree | 33ab771ee2649df9f10887438df7a27364e9ad5f | |
| parent | daae57ea192288329af7f82607f3495291637033 (diff) | |
| download | emacs-6e035b5e2f7c94d39fe4a6765c6c52258bcf14d5.tar.gz emacs-6e035b5e2f7c94d39fe4a6765c6c52258bcf14d5.zip | |
Use declare form instead of put for clarity
* which-key.el (which-key-add-keymap-based-replacements):
Use declare form instead of put property.
| -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 af4bc6cb337..4a0b8b8e045 100644 --- a/which-key.el +++ b/which-key.el | |||
| @@ -1023,6 +1023,7 @@ prefix. An example is | |||
| 1023 | For backwards compatibility, REPLACEMENT can also be a string, | 1023 | For backwards compatibility, REPLACEMENT can also be a string, |
| 1024 | but the above format is preferred, and the option to use a string | 1024 | but the above format is preferred, and the option to use a string |
| 1025 | for REPLACEMENT will eventually be removed." | 1025 | for REPLACEMENT will eventually be removed." |
| 1026 | (declare (indent defun)) | ||
| 1026 | (while key | 1027 | (while key |
| 1027 | (let ((def | 1028 | (let ((def |
| 1028 | (cond | 1029 | (cond |
| @@ -1036,7 +1037,6 @@ for REPLACEMENT will eventually be removed." | |||
| 1036 | (define-key keymap (kbd key) def)) | 1037 | (define-key keymap (kbd key) def)) |
| 1037 | (setq key (pop more) | 1038 | (setq key (pop more) |
| 1038 | replacement (pop more)))) | 1039 | replacement (pop more)))) |
| 1039 | (put 'which-key-add-keymap-based-replacements 'lisp-indent-function 'defun) | ||
| 1040 | 1040 | ||
| 1041 | ;;;###autoload | 1041 | ;;;###autoload |
| 1042 | (defun which-key-add-key-based-replacements | 1042 | (defun which-key-add-key-based-replacements |