From 029e46a8743e8b6a0d63f449b90d233e1fd800b5 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 21 Mar 2015 03:30:52 -0500 Subject: [PATCH] Whitespace cleanups --- lisp/use-package/bind-key.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index 4cf6cf8708b..083c8b1c0a6 100644 --- a/lisp/use-package/bind-key.el +++ b/lisp/use-package/bind-key.el @@ -221,8 +221,7 @@ function symbol (unquoted)." key-bindings))))) (defmacro bind-keys* (&rest args) - `(bind-keys :map override-global-map - ,@args)) + `(bind-keys :map override-global-map ,@args)) (defun get-binding-description (elem) (cond @@ -292,7 +291,7 @@ function symbol (unquoted)." (sort personal-keybindings (lambda (l r) (car (compare-keybindings l r)))))) - + (if (not (eq (cdar last-binding) (cdar binding))) (princ (format "\n\n%s\n%s\n\n" (cdar binding) @@ -300,7 +299,7 @@ function symbol (unquoted)." (if (and last-binding (cdr (compare-keybindings last-binding binding))) (princ "\n"))) - + (let* ((key-name (caar binding)) (at-present (lookup-key (or (symbol-value (cdar binding)) (current-global-map)) @@ -325,7 +324,7 @@ function symbol (unquoted)." (princ (if (string-match "[ \t]+\n" line) (replace-match "\n" t t line) line)))) - + (setq last-binding binding))))) (provide 'bind-key) -- 2.39.2