about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-03-08 22:26:06 -0600
committerCase Duckworth2021-03-08 22:26:06 -0600
commitc14c5d3448ab1d0edf271cbb5db262d67e2b2916 (patch)
tree9430df5044014e6706beae1bc136d939be56db26
parentAlmost finished with `acdw/pkg' (diff)
downloademacs-c14c5d3448ab1d0edf271cbb5db262d67e2b2916.tar.gz
emacs-c14c5d3448ab1d0edf271cbb5db262d67e2b2916.zip
Finish up acdw/pkg
-rw-r--r--lisp/acdw.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 927b083..f564777 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -118,7 +118,7 @@ more fine-grained control, just use `add-hook'."
118automatically. 118automatically.
119 119
120If KEY is a vector, it's passed directly to `define-key', 120If KEY is a vector, it's passed directly to `define-key',
121otherwise it's wrapped in `read-kbd-macro'. 121otherwise it's wrapped in `kbd'.
122 122
123The following keywords are recognized: 123The following keywords are recognized:
124 124
@@ -134,9 +134,9 @@ The following keywords are recognized:
134 (keymap (or (plist-get args :map) acdw/bind-default-map)) 134 (keymap (or (plist-get args :map) acdw/bind-default-map))
135 (keycode (if (vectorp key) key (kbd key))) 135 (keycode (if (vectorp key) key (kbd key)))
136 (command-list)) 136 (command-list))
137 (push `(define-key ,keymap ,keycode ,command) command-list) 137 (push `(define-key ,keymap ,keycode #',command) command-list)
138 (when after 138 (when after
139 (push `(autoload ,command ,@after) command-list)) 139 (push `(autoload #',command ,@after) command-list))
140 `(progn 140 `(progn
141 ,@command-list))) 141 ,@command-list)))
142 142
@@ -178,7 +178,7 @@ ARGS can include the following keywords:
178 (when then-forms 178 (when then-forms
179 (push `(with-eval-after-load ',requirement ,@then-forms) final-form)) 179 (push `(with-eval-after-load ',requirement ,@then-forms) final-form))
180 (when hooks 180 (when hooks
181 (push `(acdw/hooks-after ,(symbol-name requirement) ,hooks) final-form)) 181 (push `(acdw/hooks-after ,(symbol-name requirement) ,@hooks) final-form))
182 (when binds 182 (when binds
183 (push `(acdw/bind-after-map ,(symbol-name requirement) nil ,binds) 183 (push `(acdw/bind-after-map ,(symbol-name requirement) nil ,binds)
184 final-form)) 184 final-form))