Mercurial > hg > xemacs-beta

comparison lisp/gnus/earcon.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
140 "Create a button between FROM and TO with callback FUN and data DATA." 140 "Create a button between FROM and TO with callback FUN and data DATA."
141 (and (boundp gnus-article-button-face) 141 (and (boundp gnus-article-button-face)
142 gnus-article-button-face 142 gnus-article-button-face
143 (gnus-overlay-put (gnus-make-overlay from to) 143 (gnus-overlay-put (gnus-make-overlay from to)
144 'face gnus-article-button-face)) 144 'face gnus-article-button-face))
145 (gnus-add-text-properties 145 (gnus-add-text-properties
146 from to 146 from to
147 (nconc (and gnus-article-mouse-face 147 (nconc (and gnus-article-mouse-face
148 (list gnus-mouse-face-prop gnus-article-mouse-face)) 148 (list gnus-mouse-face-prop gnus-article-mouse-face))
149 (list 'gnus-callback fun) 149 (list 'gnus-callback fun)
150 (and data (list 'gnus-data data))))) 150 (and data (list 'gnus-data data)))))