[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/speedbar.el
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/speedbar.el |
Date: |
Mon, 20 Feb 2006 00:01:10 +0000 |
Index: emacs/lisp/speedbar.el
diff -u emacs/lisp/speedbar.el:1.76 emacs/lisp/speedbar.el:1.77
--- emacs/lisp/speedbar.el:1.76 Fri Feb 17 00:26:14 2006
+++ emacs/lisp/speedbar.el Mon Feb 20 00:01:10 2006
@@ -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))