acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Finish up acdw/pkg

This commit is contained in:
Case Duckworth 2021-03-08 22:26:06 -06:00
parent 767497ece4
commit c14c5d3448
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/acdw.el
View File

@ -118,7 +118,7 @@ more fine-grained control, just use `add-hook'."
automatically.
If KEY is a vector, it's passed directly to `define-key',
otherwise it's wrapped in `read-kbd-macro'.
otherwise it's wrapped in `kbd'.
The following keywords are recognized:
@ -134,9 +134,9 @@ The following keywords are recognized:
(keymap (or (plist-get args :map) acdw/bind-default-map))
(keycode (if (vectorp key) key (kbd key)))
(command-list))
(push `(define-key ,keymap ,keycode ,command) command-list)
(push `(define-key ,keymap ,keycode #',command) command-list)
(when after
(push `(autoload ,command ,@after) command-list))
(push `(autoload #',command ,@after) command-list))
`(progn
,@command-list)))
@ -178,7 +178,7 @@ ARGS can include the following keywords:
(when then-forms
(push `(with-eval-after-load ',requirement ,@then-forms) final-form))
(when hooks
(push `(acdw/hooks-after ,(symbol-name requirement) ,hooks) final-form))
(push `(acdw/hooks-after ,(symbol-name requirement) ,@hooks) final-form))
(when binds
(push `(acdw/bind-after-map ,(symbol-name requirement) nil ,binds)
final-form))