From: John Wiegley Date: Wed, 29 Nov 2017 04:58:04 +0000 (-0800) Subject: Print map keys in describe-personal-keybindings X-Git-Tag: emacs-29.0.90~1306^2~15^2~239 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2825987619;p=emacs.git Print map keys in describe-personal-keybindings Fixes https://github.com/jwiegley/use-package/issues/406 --- diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index e5002d4ee17..eb24d2396e3 100644 --- a/lisp/use-package/bind-key.el +++ b/lisp/use-package/bind-key.el @@ -374,8 +374,8 @@ function symbol (unquoted)." (car (compare-keybindings l r)))))) (if (not (eq (cdar last-binding) (cdar binding))) - (princ (format "\n\n%s\n%s\n\n" - (cdar binding) + (princ (format "\n\n%s: %s\n%s\n\n" + (cdar binding) (caar binding) (make-string (+ 21 (car bind-key-column-widths) (cdr bind-key-column-widths)) ?-))) (if (and last-binding