Mercurial > hg > xemacs-beta

comparison lisp/gutter.el @ 458:c33ae14dd6d0 r21-2-44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-44
author cvs
date Mon, 13 Aug 2007 11:42:25 +0200
parents 576fb035e263
children 54fa1a5c2d12
comparison
equal deleted inserted replaced
457:4b9290a33024 458:c33ae14dd6d0
106 non-nil if it is visible in optional DOMAIN." 106 non-nil if it is visible in optional DOMAIN."
107 (let ((spec (specifier-instance gutter-visible-specifier-p domain))) 107 (let ((spec (specifier-instance gutter-visible-specifier-p domain)))
108 (or (and (listp spec) (memq 'buffers-tab spec)) 108 (or (and (listp spec) (memq 'buffers-tab spec))
109 spec))) 109 spec)))
110 110
111 (defun set-gutter-dirty-p (gutter-or-location)
112 "Make GUTTER-OR-LOCATION dirty to force redisplay updates."
113 ;; set-glyph-image will not make the gutter dirty
114 (when (or (gutter-specifier-p gutter-or-location)
115 (eq gutter-or-location 'top)
116 (eq gutter-or-location 'bottom)
117 (eq gutter-or-location 'left)
118 (eq gutter-or-location 'right))
119 (or (gutter-specifier-p gutter-or-location)
120 (setq gutter-or-location
121 (eval (intern (concat
122 (symbol-name gutter-or-location)
123 "-gutter")))))
124 (set-specifier-dirty-flag gutter-or-location)))
125
111 (defun make-gutter-specifier (spec-list) 126 (defun make-gutter-specifier (spec-list)
112 "Return a new `gutter' specifier object with the given specification list. 127 "Return a new `gutter' specifier object with the given specification list.
113 SPEC-LIST can be a list of specifications (each of which is a cons of a 128 SPEC-LIST can be a list of specifications (each of which is a cons of a
114 locale and a list of instantiators), a single instantiator, or a list 129 locale and a list of instantiators), a single instantiator, or a list
115 of instantiators. See `make-specifier' for more information about 130 of instantiators. See `make-specifier' for more information about