summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-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))