From 2fdfc43684595b6dc38ca60d2e5a42a1948dd8f3 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 27 Mar 2021 12:29:54 -0500 Subject: bleh --- lisp/acdw.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'lisp') diff --git a/lisp/acdw.el b/lisp/acdw.el index bd6c02a..62778e3 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -161,25 +161,25 @@ The following keywords are recognized: defined in a different file than the command it binds (looking at you, `org-mode')." (let ((after (when-let (sym (plist-get args :after)) - (if (not (listp sym)) - (list sym) - sym))) - (map-after (plist-get args :map-after)) - (keymap (or (plist-get args :map) acdw/bind-default-map)) - (keycode (if (vectorp key) key (kbd key))) - (command-list)) + (if (not (listp sym)) + (list sym) + sym))) + (map-after (plist-get args :map-after)) + (keymap (or (plist-get args :map) acdw/bind-default-map)) + (keycode (if (vectorp key) key (kbd key))) + (command-list)) (let ((define-key-command `(define-key ,keymap ,keycode ',command))) (if map-after - (push `(with-eval-after-load ,map-after - ,define-key-command) - command-list) - (push define-key-command command-list))) + (push `(with-eval-after-load ,map-after + ,define-key-command) + command-list) + (push define-key-command command-list))) (when after (unless (fboundp command) - (push `(autoload ',command ,@after) command-list)) + (push `(autoload ',command ,@after) command-list)) (unless (or map-after - (eq keymap acdw/bind-default-map)) - (push `(autoload ',keymap ,(car after) nil nil 'keymap) command-list))) + (eq keymap acdw/bind-default-map)) + (push `(autoload ',keymap ,(car after) nil nil 'keymap) command-list))) `(progn ,@command-list))) -- cgit 1.4.1-21-gabe81