Mercurial > emacs
comparison lisp/speedbar.el @ 90314:d1c5430c5bff
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-21
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 97-112)
- Update from CVS
- Merge from erc--emacs--0
- Update from CVS: src/regex.c (extend_range_table_work_area): Fix typo.
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 37)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 22 Feb 2006 06:54:10 +0000 |
parents | 9e490faa9f6b 4d9d30d2a347 |
children | 5754737d1e04 |
comparison
equal
deleted
inserted
replaced
90313:496f6d9b9d20 | 90314:d1c5430c5bff |
---|---|
1706 nil nil nil))) | 1706 nil nil nil))) |
1707 | 1707 |
1708 (defun speedbar-make-button (start end face mouse function &optional token) | 1708 (defun speedbar-make-button (start end face mouse function &optional token) |
1709 "Create a button from START to END, with FACE as the display face. | 1709 "Create a button from START to END, with FACE as the display face. |
1710 MOUSE is the mouse face. When this button is clicked on FUNCTION | 1710 MOUSE is the mouse face. When this button is clicked on FUNCTION |
1711 will be run with the TOKEN parameter (any Lisp object)" | 1711 will be run with the TOKEN parameter (any Lisp object). If FACE |
1712 is t use the text properties of the string that is passed as an | |
1713 argument." | |
1714 (unless (eq face t) | |
1715 (put-text-property start end 'face face)) | |
1712 (add-text-properties | 1716 (add-text-properties |
1713 start end `(face ,face mouse-face ,mouse invisible nil | 1717 start end `(mouse-face ,mouse invisible nil |
1714 speedbar-text ,(buffer-substring-no-properties start end))) | 1718 speedbar-text ,(buffer-substring-no-properties start end))) |
1715 (if speedbar-use-tool-tips-flag | 1719 (if speedbar-use-tool-tips-flag |
1716 (put-text-property start end 'help-echo #'dframe-help-echo)) | 1720 (put-text-property start end 'help-echo #'dframe-help-echo)) |
1717 (if function (put-text-property start end 'speedbar-function function)) | 1721 (if function (put-text-property start end 'speedbar-function function)) |
1718 (if token (put-text-property start end 'speedbar-token token)) | 1722 (if token (put-text-property start end 'speedbar-token token)) |