mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* emacs-lisp/tabulated-list.el (tabulated-list-print-col):

Browse source 
If col-desc already has help-echo, use it.

Fixes: debbugs:13563
This commit is contained in:
Jonas Bernoulli 2013-02-15 18:50:44 -08:00 • committed by Glenn Morris
parent fe2219e202
commit 6b6d804b1e
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/tabulated-list.el
View file

@ -379,7 +379,9 @@ Return the column number after insertion."
(setq width (- width shift))
(setq x (+ x shift))))
(if (stringp col-desc)
(insert (propertize label 'help-echo help-echo))
(insert (if (get-text-property 0 'help-echo label)
label
(propertize label 'help-echo help-echo)))
(apply 'insert-text-button label (cdr col-desc)))
(let ((next-x (+ x pad-right width)))
;; No need to append any spaces if this is the last column.