procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve formatting of bindings in 'help-quick'

Browse source 
* lisp/help.el (help-quick): Prevent format's padding from extending
text properties beyond the initial string containing the key binding.
This commit is contained in:
Philip Kaludercic 2023-10-09 10:23:36 +02:00
parent 5528bea8d6
commit 63a6fb2a7a
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/help.el
View file

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