Mercurial > hg > xemacs-beta

comparison lisp/gutter.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children c33ae14dd6d0
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
58 "Function or functions to be called when the visibility of an 58 "Function or functions to be called when the visibility of an
59 element in the gutter changes. The value of this variable may be 59 element in the gutter changes. The value of this variable may be
60 buffer-local. The gutter element symbol is passed as an argument to 60 buffer-local. The gutter element symbol is passed as an argument to
61 the hook, as is the visibility flag.") 61 the hook, as is the visibility flag.")
62 62
63 (defun set-gutter-element (gutter-specifier prop val &optional locale tag-set) 63 (defun set-gutter-element (gutter-specifier prop value &optional locale tag-set)
64 "Set GUTTER-SPECIFIER gutter element PROP to VAL in optional LOCALE. 64 "Set GUTTER-SPECIFIER gutter element PROP to VALUE in optional LOCALE.
65 This is a convenience function for setting gutter elements. 65 This is a convenience function for setting gutter elements.
66 VAL in general must be a string. If VAL is a glyph then a string will be 66 VALUE in general must be a string. If VALUE is a glyph then a string
67 created to put the glyph into." 67 will be created to put the glyph into."
68 (let ((spec val)) 68 (let ((spec value))
69 (when (glyphp val) 69 (when (glyphp value)
70 (setq spec (copy-sequence "\n")) 70 (setq spec (copy-sequence "\n"))
71 (set-extent-begin-glyph (make-extent 0 1 spec) val)) 71 (set-extent-begin-glyph (make-extent 0 1 spec) value))
72 (map-extents #'(lambda (extent arg) 72 (map-extents #'(lambda (extent arg)
73 (set-extent-property extent 'duplicable t)) spec) 73 (set-extent-property extent 'duplicable t)) spec)
74 (modify-specifier-instances gutter-specifier #'plist-put (list prop spec) 74 (modify-specifier-instances gutter-specifier #'plist-put (list prop spec)
75 'force nil locale tag-set))) 75 'force nil locale tag-set)))
76 76