From c14c5d3448ab1d0edf271cbb5db262d67e2b2916 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 8 Mar 2021 22:26:06 -0600
Subject: Finish up acdw/pkg

---
 lisp/acdw.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lisp/acdw.el')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 927b083..f564777 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -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))
-- 
cgit 1.4.1-21-gabe81