Mercurial > hg > xemacs-beta

comparison lisp/gutter.el @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
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 make-gutter-specifier (spec-list)
112 "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
114 locale and a list of instantiators), a single instantiator, or a list
115 of instantiators. See `make-specifier' for more information about
116 specifiers.
117
118 Gutter specifiers are used to specify the format of a gutter.
119 The values of the variables `default-gutter', `top-gutter',
120 `left-gutter', `right-gutter', and `bottom-gutter' are always
121 gutter specifiers.
122
123 Valid gutter instantiators are called \"gutter descriptors\" and are
124 either strings or property-lists of strings. See `default-gutter' for
125 a description of the exact format."
126 (make-specifier-and-init 'gutter spec-list))
127
128 (defun make-gutter-size-specifier (spec-list)
129 "Return a new `gutter-size' specifier object with the given spec list.
130 SPEC-LIST can be a list of specifications (each of which is a cons of a
131 locale and a list of instantiators), a single instantiator, or a list
132 of instantiators. See `make-specifier' for more information about
133 specifiers.
134
135 Gutter-size specifiers are used to specify the size of a gutter. The
136 values of the variables `default-gutter-size', `top-gutter-size',
137 `left-gutter-size', `right-gutter-size', and `bottom-gutter-size' are
138 always gutter-size specifiers.
139
140 Valid gutter-size instantiators are either integers or the special
141 symbol 'autodetect. If a gutter-size is set to 'autodetect them the
142 size of the gutter will be adjusted to just accomodate the gutters
143 contents. 'autodetect only works for top and bottom gutters."
144 (make-specifier-and-init 'gutter-size spec-list))
145
146 (defun make-gutter-visible-specifier (spec-list)
147 "Return a new `gutter-visible' specifier object with the given spec list.
148 SPEC-LIST can be a list of specifications (each of which is a cons of a
149 locale and a list of instantiators), a single instantiator, or a list
150 of instantiators. See `make-specifier' for more information about
151 specifiers.
152
153 Gutter-visible specifiers are used to specify the visibility of a
154 gutter. The values of the variables `default-gutter-visible-p',
155 `top-gutter-visible-p', `left-gutter-visible-p',
156 `right-gutter-visible-p', and `bottom-gutter-visible-p' are always
157 gutter-visible specifiers.
158
159 Valid gutter-visible instantiators are t, nil or a list of symbols.
160 If a gutter-visible instantiator is set to a list of symbols, and the
161 correspondong gutter specification is a property-list strings, then
162 elements of the gutter specification will only be visible if the
163 corresponding symbol occurs in the gutter-visible instantiator."
164 (make-specifier-and-init 'gutter-visible spec-list))
165
111 (defun init-gutter () 166 (defun init-gutter ()
112 "Initialize the gutter." 167 "Initialize the gutter."
113 ;; do nothing as yet. 168 ;; do nothing as yet.
114 ) 169 )
115 170