(defcustom toolbar-visible-p ;; added for the options menu - dverna apr. 98
(specifier-instance default-toolbar-visible-p)
- "Whether the default toolbar is globally visible. This option can be
-customized through the options menu."
+ "Whether the default toolbar is globally visible.
+This option can be customized through the options menu."
:group 'display
:type 'boolean
:set #'(lambda (var val)
(defcustom toolbar-captioned-p ;; added for the options menu - dverna apr. 98
(specifier-instance toolbar-buttons-captioned-p)
- "Whether the toolbars buttons are globally captioned. This option can be
-customized through the options menu."
+ "Whether the toolbars buttons are globally captioned.
+This option can be customized through the options menu."
:group 'display
:type 'boolean
:set #'(lambda (var val)
(defcustom default-toolbar-position ;; added for the options menu - dverna
(default-toolbar-position)
- "The location of the default toolbar. It can be 'top, 'bottom, 'left or
-'right. This option can be customized through the options menu."
+ "The location of the default toolbar.
+It can be 'top, 'bottom, 'left or 'right. This option can be
+customized through the options menu."
:group 'display
:type '(choice (const :tag "top" top)
(const :tag "bottom" bottom)
"If non-nil help is echoed for toolbar buttons.")
(defvar toolbar-icon-directory nil
- "Location of standard toolbar icon bitmaps.")
+ "Location of standard toolbar icon bitmaps, with trailing path separator.")
(defun toolbar-make-button-list (up &optional down disabled cap-up cap-down cap-disabled)
"Call make-glyph on each arg and return a list of the results."