Mercurial > hg > xemacs-beta

comparison lisp/gnus/earcon.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 0d2f883870bc
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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)))))