diff options
| -rw-r--r-- | lisp/acdw.el | 5 |
1 files changed, 2 insertions, 3 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index 2f0fe7d..268b9d1 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -4,7 +4,6 @@ | |||
| 4 | ;; Created: Sometime during Covid-19, 2020 | 4 | ;; Created: Sometime during Covid-19, 2020 |
| 5 | ;; Keywords: configuration | 5 | ;; Keywords: configuration |
| 6 | ;; URL: https://tildegit.org/acdw/emacs | 6 | ;; URL: https://tildegit.org/acdw/emacs |
| 7 | ;; Bankruptcy: 5b | ||
| 8 | ;; | 7 | ;; |
| 9 | ;; This file is NOT part of GNU Emacs. | 8 | ;; This file is NOT part of GNU Emacs. |
| 10 | ;; | 9 | ;; |
| @@ -155,9 +154,9 @@ The following keywords are recognized: | |||
| 155 | (keymap (or (plist-get args :map) acdw/bind-default-map)) | 154 | (keymap (or (plist-get args :map) acdw/bind-default-map)) |
| 156 | (keycode (if (vectorp key) key (kbd key))) | 155 | (keycode (if (vectorp key) key (kbd key))) |
| 157 | (command-list)) | 156 | (command-list)) |
| 158 | (push `(define-key ,keymap ,keycode #',command) command-list) | 157 | (push `(define-key ,keymap ,keycode ',command) command-list) |
| 159 | (when after | 158 | (when after |
| 160 | (push `(autoload #',command ,@after) command-list)) | 159 | (push `(autoload ',command ,@after) command-list)) |
| 161 | `(progn | 160 | `(progn |
| 162 | ,@command-list))) | 161 | ,@command-list))) |
| 163 | 162 | ||