;; Copyright (C) 1999, 2000 Andy Piper.
;; Maintainer: XEmacs Development Team
-;; Keywords: frames, extensions, internal, dumped
+;; Keywords: frames, gui, internal, dumped
;; This file is part of XEmacs.
"Input from the gutters."
:group 'environment)
-;; Although these customizations appear bogus, they are neccessary in
+;; Although these customizations appear bogus, they are necessary 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 val &optional locale tag-set)
- "Set GUTTER-SPECIFIER gutter element PROP to VAL in optional LOCALE.
+(defun set-gutter-element (gutter-specifier prop value &optional locale tag-set)
+ "Set GUTTER-SPECIFIER gutter element PROP to VALUE in optional LOCALE.
This is a convenience function for setting gutter elements.
-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)
+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)
(setq spec (copy-sequence "\n"))
- (set-extent-begin-glyph (make-extent 0 1 spec) val))
- (map-extents #'(lambda (extent arg)
+ (set-extent-begin-glyph (make-extent 0 1 spec) value))
+ (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))))
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 accomodate the gutters
+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))
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
-correspondong gutter specification is a property-list strings, then
+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))