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 e5002d4ee17b1d686f84e96f3afc2de39796ca24..eb24d2396e3bee08306ab06a1aafde086f10e594 100644 (file)
--- 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