Mercurial > emacs
changeset 69021:4d9d30d2a347
(speedbar-make-button): Keep text properties
of string arguments if desired.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 20 Feb 2006 00:01:10 +0000 |
| parents | e4e1c1572306 |
| children | cd336a81f209 |
| files | lisp/speedbar.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/speedbar.el Mon Feb 20 00:00:31 2006 +0000 +++ b/lisp/speedbar.el Mon Feb 20 00:01:10 2006 +0000 @@ -1708,9 +1708,13 @@ (defun speedbar-make-button (start end face mouse function &optional token) "Create a button from START to END, with FACE as the display face. MOUSE is the mouse face. When this button is clicked on FUNCTION -will be run with the TOKEN parameter (any Lisp object)" +will be run with the TOKEN parameter (any Lisp object). If FACE +is t use the text properties of the string that is passed as an +argument." + (unless (eq face t) + (put-text-property start end 'face face)) (add-text-properties - start end `(face ,face mouse-face ,mouse invisible nil + start end `(mouse-face ,mouse invisible nil speedbar-text ,(buffer-substring-no-properties start end))) (if speedbar-use-tool-tips-flag (put-text-property start end 'help-echo #'dframe-help-echo))