;; Copyright (C) 1999, 2000 Andy Piper.
;; Maintainer: XEmacs Development Team
-;; Keywords: frames, gui, internal, dumped
+;; Keywords: frames, extensions, internal, dumped
;; This file is part of XEmacs.
"Input from the gutters."
:group 'environment)
-;; Although these customizations appear bogus, they are necessary in
+;; Although these customizations appear bogus, they are neccessary in
;; order to be able to save options through the options menu.
(defcustom default-gutter-position
(default-gutter-position)
buffer-local. The gutter element symbol is passed as an argument to
the hook, as is the visibility flag.")
-(defun set-gutter-element (gutter-specifier prop value &optional locale tag-set)
- "Set GUTTER-SPECIFIER gutter element PROP to VALUE in optional LOCALE.
+(defun set-gutter-element (gutter-specifier prop val &optional locale tag-set)
+ "Set GUTTER-SPECIFIER gutter element PROP to VAL in optional LOCALE.
This is a convenience function for setting gutter elements.
-VALUE in general must be a string. If VALUE is a glyph then a string
-will be created to put the glyph into."
- (let ((spec value))
- (when (glyphp value)
+VAL in general must be a string. If VAL is a glyph then a string will be
+created to put the glyph into."
+ (let ((spec val))
+ (when (glyphp val)
(setq spec (copy-sequence "\n"))
- (set-extent-begin-glyph (make-extent 0 1 spec) value))
- (map-extents #'(lambda (extent arg)
+ (set-extent-begin-glyph (make-extent 0 1 spec) val))
+ (map-extents #'(lambda (extent arg)
(set-extent-property extent 'duplicable t)) spec)
(modify-specifier-instances gutter-specifier #'plist-put (list prop spec)
'force nil locale tag-set)))
locale tag-set)
"Change the visibility of gutter elements.
Set the visibility of element PROP to VISIBLE-P for
-GUTTER-SPECIFIER-VISIBLE-P in optional LOCALE.
+GUTTER-SPECIFIER-VISIBLE-P in optional LOCALE.
This is a convenience function for hiding and showing gutter elements."
- (modify-specifier-instances
+ (modify-specifier-instances
gutter-visible-specifier-p #'(lambda (spec prop visible-p)
(if (consp spec)
- (if visible-p
- (if (memq prop spec) spec
+ (if visible-p
+ (if (memq prop spec) spec
(cons prop spec))
(delq prop spec))
(if visible-p (list prop))))
(or (and (listp spec) (memq 'buffers-tab spec))
spec)))
-(defun make-gutter-specifier (spec-list)
- "Return a new `gutter' specifier object with the given specification list.
-SPEC-LIST can be a list of specifications (each of which is a cons of a
-locale and a list of instantiators), a single instantiator, or a list
-of instantiators. See `make-specifier' for more information about
-specifiers.
-
-Gutter specifiers are used to specify the format of a gutter.
-The values of the variables `default-gutter', `top-gutter',
-`left-gutter', `right-gutter', and `bottom-gutter' are always
-gutter specifiers.
-
-Valid gutter instantiators are called \"gutter descriptors\" and are
-either strings or property-lists of strings. See `default-gutter' for
-a description of the exact format."
- (make-specifier-and-init 'gutter spec-list))
-
-(defun make-gutter-size-specifier (spec-list)
- "Return a new `gutter-size' specifier object with the given spec list.
-SPEC-LIST can be a list of specifications (each of which is a cons of a
-locale and a list of instantiators), a single instantiator, or a list
-of instantiators. See `make-specifier' for more information about
-specifiers.
-
-Gutter-size specifiers are used to specify the size of a gutter. The
-values of the variables `default-gutter-size', `top-gutter-size',
-`left-gutter-size', `right-gutter-size', and `bottom-gutter-size' are
-always gutter-size specifiers.
-
-Valid gutter-size instantiators are either integers or the special
-symbol 'autodetect. If a gutter-size is set to 'autodetect them the
-size of the gutter will be adjusted to just accommodate the gutters
-contents. 'autodetect only works for top and bottom gutters."
- (make-specifier-and-init 'gutter-size spec-list))
-
-(defun make-gutter-visible-specifier (spec-list)
- "Return a new `gutter-visible' specifier object with the given spec list.
-SPEC-LIST can be a list of specifications (each of which is a cons of a
-locale and a list of instantiators), a single instantiator, or a list
-of instantiators. See `make-specifier' for more information about
-specifiers.
-
-Gutter-visible specifiers are used to specify the visibility of a
-gutter. The values of the variables `default-gutter-visible-p',
-`top-gutter-visible-p', `left-gutter-visible-p',
-`right-gutter-visible-p', and `bottom-gutter-visible-p' are always
-gutter-visible specifiers.
-
-Valid gutter-visible instantiators are t, nil or a list of symbols.
-If a gutter-visible instantiator is set to a list of symbols, and the
-corresponding gutter specification is a property-list strings, then
-elements of the gutter specification will only be visible if the
-corresponding symbol occurs in the gutter-visible instantiator."
- (make-specifier-and-init 'gutter-visible spec-list))
-
(defun init-gutter ()
"Initialize the gutter."
;; do nothing as yet.