master 63a6fb2a7a0 2/2: Improve formatting of bindings in 'help-quick'

[Philip Kaludercic]

branch: master
commit 63a6fb2a7a02ca88835c3fd473894d3b7d39ff15
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Improve formatting of bindings in 'help-quick'
    
    * lisp/help.el (help-quick): Prevent format's padding from extending
    text properties beyond the initial string containing the key binding.
---
 lisp/help.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/help.el b/lisp/help.el
index 3a641ccc1be..41c43c356a4 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -192,7 +192,7 @@ buffer.")
                       max-key-len (max (length key) max-key-len))
                 (push (list key (cdr ent) (car ent)) keys))))
           (when keys
-            (let ((fmt (format "%%-%ds %%-%ds%s" max-key-len max-cmd-len
+            (let ((fmt (format "%%s %%-%ds%s" max-cmd-len
                                (make-string padding ?\s)))
                   (width (+ max-key-len 1 max-cmd-len padding)))
               (push `(,width
@@ -203,10 +203,12 @@ buffer.")
                         'face 'bold)
                       ,@(mapcar (lambda (ent)
                                   (format fmt
-                                          (propertize
-                                           (car ent)
-                                           'quick-help-cmd
-                                           (caddr ent))
+                                          (concat
+                                           (propertize
+                                            (car ent)
+                                            'quick-help-cmd
+                                            (caddr ent))
+                                           (make-string (- max-key-len (length 
(car ent))) ?\s))
                                           (cadr ent)))
                                 keys))
                     blocks)))))