From bbe78adda05897c892ea3c3687912a4c056d6fe1 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sat, 26 Jan 2013 22:03:09 +0100 Subject: [PATCH] lisp/emacs-lisp/tabulated-list.el (tabulated-list-print-col): don't prepend help-echo with column name, if help-echo is already predefined don't replace it --- lisp/emacs-lisp/tabulated-list.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 94b3c15..13fc730 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -363,7 +363,6 @@ Return the column number after insertion." (right-align (plist-get props :right-align)) (label (if (stringp col-desc) col-desc (car col-desc))) (label-width (string-width label)) - (help-echo (concat (car format) ": " label)) (opoint (point)) (not-last-col (< (1+ n) (length tabulated-list-format)))) ;; Truncate labels if necessary (except last column). @@ -379,7 +378,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 label))) (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. -- 1.8.0.1