aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJeremy Bryant2024-03-08 23:20:07 +0000
committerJustin Burkett2024-03-12 16:31:58 -0400
commit6e035b5e2f7c94d39fe4a6765c6c52258bcf14d5 (patch)
tree33ab771ee2649df9f10887438df7a27364e9ad5f
parentdaae57ea192288329af7f82607f3495291637033 (diff)
downloademacs-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.el2
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
1023For backwards compatibility, REPLACEMENT can also be a string, 1023For backwards compatibility, REPLACEMENT can also be a string,
1024but the above format is preferred, and the option to use a string 1024but the above format is preferred, and the option to use a string
1025for REPLACEMENT will eventually be removed." 1025for 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