Mercurial > hg > xemacs-beta

comparison lisp/gnus/smiley.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
222 ;; set text extent params 222 ;; set text extent params
223 (set-extent-property ext 'end-open t) 223 (set-extent-property ext 'end-open t)
224 (set-extent-property ext 'start-open t) 224 (set-extent-property ext 'start-open t)
225 (set-extent-property ext 'invisible t) 225 (set-extent-property ext 'invisible t)
226 (set-extent-property ext 'keymap smiley-map) 226 (set-extent-property ext 'keymap smiley-map)
227 (set-extent-property ext 'mouse-face 'smiley-mouse-face) 227 (set-extent-property ext 'mouse-face smiley-mouse-face)
228 (set-extent-property ext 'intangible t) 228 (set-extent-property ext 'intangible t)
229 ;; set annotation params 229 ;; set annotation params
230 (set-extent-property ant 'mouse-face 'smiley-mouse-face) 230 (set-extent-property ant 'mouse-face smiley-mouse-face)
231 (set-extent-property ant 'keymap smiley-map) 231 (set-extent-property ant 'keymap smiley-map)
232 ;; remember each other 232 ;; remember each other
233 (set-extent-property ant 'smiley-extent ext) 233 (set-extent-property ant 'smiley-extent ext)
234 (set-extent-property ext 'smiley-annotation ant)) 234 (set-extent-property ext 'smiley-annotation ant))
235 (when (smiley-end-paren-p start end) 235 (when (smiley-end-paren-p start end)