mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

Whitespace cleanups

Browse source
This commit is contained in:
John Wiegley 2015-03-21 03:30:52 -05:00
parent eb6b81dfec
commit 029e46a874
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/use-package/bind-key.el
View file

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