Change definition of acdw/bind to not quote

This commit is contained in:
Case Duckworth 2021-03-10 20:33:32 -06:00
parent 755cb7a953
commit a83391cb2c

View File

@ -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)))