diff options
author | Case Duckworth | 2021-03-27 12:29:54 -0500 |
---|---|---|
committer | Case Duckworth | 2021-03-27 12:29:54 -0500 |
commit | 2fdfc43684595b6dc38ca60d2e5a42a1948dd8f3 (patch) | |
tree | eed1f5de2cbfc556d682a0d8966368b949826881 /lisp | |
parent | Add elpher and gemini-mode (diff) | |
download | emacs-2fdfc43684595b6dc38ca60d2e5a42a1948dd8f3.tar.gz emacs-2fdfc43684595b6dc38ca60d2e5a42a1948dd8f3.zip |
bleh
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw.el | 28 |
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 | ||