Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hui-xe-but.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents c53a95d3c46d
children 8619ce7e4c50
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
4 ;; SUMMARY: XEmacs button highlighting and flashing support. 4 ;; SUMMARY: XEmacs button highlighting and flashing support.
5 ;; USAGE: XEmacs Lisp Library 5 ;; USAGE: XEmacs Lisp Library
6 ;; KEYWORDS: faces, hypermedia 6 ;; KEYWORDS: faces, hypermedia
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: Brown U.
10 ;; 10 ;;
11 ;; ORIG-DATE: 21-Aug-92 11 ;; ORIG-DATE: 21-Aug-92
12 ;; LAST-MOD: 26-Feb-97 at 01:58:01 by Bob Weiner 12 ;; LAST-MOD: 24-Oct-95 at 19:55:08 by Bob Weiner
13 ;; 13 ;;
14 ;; This file is part of Hyperbole. 14 ;; This file is part of Hyperbole.
15 ;; It is for use with XEmacs, a modified version of GNU Emacs V19. 15 ;; It is for use with XEmacs, a modified version of GNU Emacs V19.
16 ;; Available for use and distribution under the same terms as GNU Emacs. 16 ;; Available for use and distribution under the same terms as GNU Emacs.
17 ;; 17 ;;
67 ;;; Public functions 67 ;;; Public functions
68 ;;; ************************************************************************ 68 ;;; ************************************************************************
69 69
70 (defun hproperty:but-add (start end face) 70 (defun hproperty:but-add (start end face)
71 "Add between START and END a button using FACE in current buffer. 71 "Add between START and END a button using FACE in current buffer.
72 If `hproperty:but-emphasize-p' is non-nil when this is called, emphasize that 72 If 'hproperty:but-emphasize-p' is non-nil when this is called, emphasize that
73 button is selectable whenever the mouse cursor moves over it." 73 button is selectable whenever the mouse cursor moves over it."
74 (let ((but (make-extent start end))) 74 (let ((but (make-extent start end)))
75 (set-extent-face but face) 75 (set-extent-face but face)
76 (set-extent-property but 'highlight hproperty:but-emphasize-p))) 76 (set-extent-property but 'highlight hproperty:but-emphasize-p)))
77 77
94 If END-DELIM is a symbol, e.g. t, then START-DELIM is taken as a regular 94 If END-DELIM is a symbol, e.g. t, then START-DELIM is taken as a regular
95 expression which matches an entire button string. 95 expression which matches an entire button string.
96 If REGEXP-MATCH is non-nil, only buttons matching this argument are 96 If REGEXP-MATCH is non-nil, only buttons matching this argument are
97 highlighted. 97 highlighted.
98 98
99 If `hproperty:but-emphasize-p' is non-nil when this is called, emphasize that 99 If 'hproperty:but-emphasize-p' is non-nil when this is called, emphasize that
100 button is selectable whenever the mouse cursor moves over it." 100 button is selectable whenever the mouse cursor moves over it."
101 (interactive) 101 (interactive)
102 (hproperty:but-clear) 102 (hproperty:but-clear)
103 (hproperty:but-create-all start-delim end-delim regexp-match)) 103 (hproperty:but-create-all start-delim end-delim regexp-match))
104 104