From 6b6d804b1e278b465ba778bbd10bb008dfe13b21 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Fri, 15 Feb 2013 18:50:44 -0800 Subject: * emacs-lisp/tabulated-list.el (tabulated-list-print-col): If col-desc already has help-echo, use it. Fixes: debbugs:13563 --- lisp/emacs-lisp/tabulated-list.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 94b3c1553e5..da487e463e2 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -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. -- cgit v1.2.3