Change definition of acdw/bind to not quote
This commit is contained in:
parent
755cb7a953
commit
a83391cb2c
|
@ -4,7 +4,6 @@
|
|||
;; Created: Sometime during Covid-19, 2020
|
||||
;; Keywords: configuration
|
||||
;; URL: https://tildegit.org/acdw/emacs
|
||||
;; Bankruptcy: 5b
|
||||
;;
|
||||
;; This file is NOT part of GNU Emacs.
|
||||
;;
|
||||
|
@ -155,9 +154,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)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user