summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-03-27 12:29:54 -0500
committerCase Duckworth2021-03-27 12:29:54 -0500
commit2fdfc43684595b6dc38ca60d2e5a42a1948dd8f3 (patch)
treeeed1f5de2cbfc556d682a0d8966368b949826881 /lisp
parentAdd elpher and gemini-mode (diff)
downloademacs-2fdfc43684595b6dc38ca60d2e5a42a1948dd8f3.tar.gz
emacs-2fdfc43684595b6dc38ca60d2e5a42a1948dd8f3.zip
bleh
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el28
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index bd6c02a..62778e3 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -161,25 +161,25 @@ The following keywords are recognized:
161 defined in a different file than the command it binds (looking 161 defined in a different file than the command it binds (looking
162 at you, `org-mode')." 162 at you, `org-mode')."
163 (let ((after (when-let (sym (plist-get args :after)) 163 (let ((after (when-let (sym (plist-get args :after))
164 (if (not (listp sym)) 164 (if (not (listp sym))
165 (list sym) 165 (list sym)
166 sym))) 166 sym)))
167 (map-after (plist-get args :map-after)) 167 (map-after (plist-get args :map-after))
168 (keymap (or (plist-get args :map) acdw/bind-default-map)) 168 (keymap (or (plist-get args :map) acdw/bind-default-map))
169 (keycode (if (vectorp key) key (kbd key))) 169 (keycode (if (vectorp key) key (kbd key)))
170 (command-list)) 170 (command-list))
171 (let ((define-key-command `(define-key ,keymap ,keycode ',command))) 171 (let ((define-key-command `(define-key ,keymap ,keycode ',command)))
172 (if map-after 172 (if map-after
173 (push `(with-eval-after-load ,map-after 173 (push `(with-eval-after-load ,map-after
174 ,define-key-command) 174 ,define-key-command)
175 command-list) 175 command-list)
176 (push define-key-command command-list))) 176 (push define-key-command command-list)))
177 (when after 177 (when after
178 (unless (fboundp command) 178 (unless (fboundp command)
179 (push `(autoload ',command ,@after) command-list)) 179 (push `(autoload ',command ,@after) command-list))
180 (unless (or map-after 180 (unless (or map-after
181 (eq keymap acdw/bind-default-map)) 181 (eq keymap acdw/bind-default-map))
182 (push `(autoload ',keymap ,(car after) nil nil 'keymap) command-list))) 182 (push `(autoload ',keymap ,(car after) nil nil 'keymap) command-list)))
183 `(progn 183 `(progn
184 ,@command-list))) 184 ,@command-list)))
185 185