Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hui-em19-b.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: GNU Emacs V19 button highlighting and flashing support. 4 ;; SUMMARY: GNU Emacs V19 button highlighting and flashing support.
5 ;; USAGE: GNU Emacs V19 Lisp Library 5 ;; USAGE: GNU Emacs V19 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:45 by Bob Weiner 12 ;; LAST-MOD: 24-Oct-95 at 19:54:59 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 GNU Emacs V19. 15 ;; It is for use with 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 ;;
73 (fboundp 'x-display-color-p) 73 (fboundp 'x-display-color-p)
74 (fset 'display-color-p 'x-display-color-p)) 74 (fset 'display-color-p 'x-display-color-p))
75 75
76 (defun hproperty:but-add (start end face) 76 (defun hproperty:but-add (start end face)
77 "Add between START and END a button using FACE in current buffer. 77 "Add between START and END a button using FACE in current buffer.
78 If `hproperty:but-emphasize-p' is non-nil when this is called, emphasize that 78 If 'hproperty:but-emphasize-p' is non-nil when this is called, emphasize that
79 button is selectable whenever the mouse cursor moves over it." 79 button is selectable whenever the mouse cursor moves over it."
80 (let ((but (make-overlay start end))) 80 (let ((but (make-overlay start end)))
81 (overlay-put but 'face face) 81 (overlay-put but 'face face)
82 (if hproperty:but-emphasize-p (overlay-put but 'mouse-face 'highlight)))) 82 (if hproperty:but-emphasize-p (overlay-put but 'mouse-face 'highlight))))
83 83
104 If END-DELIM is a symbol, e.g. t, then START-DELIM is taken as a regular 104 If END-DELIM is a symbol, e.g. t, then START-DELIM is taken as a regular
105 expression which matches an entire button string. 105 expression which matches an entire button string.
106 If REGEXP-MATCH is non-nil, only buttons matching this argument are 106 If REGEXP-MATCH is non-nil, only buttons matching this argument are
107 highlighted. 107 highlighted.
108 108
109 If `hproperty:but-emphasize-p' is non-nil when this is called, emphasize that 109 If 'hproperty:but-emphasize-p' is non-nil when this is called, emphasize that
110 button is selectable whenever the mouse cursor moves over it." 110 button is selectable whenever the mouse cursor moves over it."
111 (interactive) 111 (interactive)
112 (hproperty:but-clear) 112 (hproperty:but-clear)
113 (hproperty:but-create-all start-delim end-delim regexp-match)) 113 (hproperty:but-create-all start-delim end-delim regexp-match))
114 114