X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ftoolbar.el;h=4ddc1e04814cfacfe956dc6980684fa899980727;hb=a8d5cbe6790d55380d0f7ad6bb844fb58cf6ff1a;hp=f92b04429f3208d2fe23ca7d0ea11311f1a44086;hpb=762383636a99307282c2d93d26c35c046ec24da1;p=chise%2Fxemacs-chise.git.1 diff --git a/lisp/toolbar.el b/lisp/toolbar.el index f92b044..4ddc1e0 100644 --- a/lisp/toolbar.el +++ b/lisp/toolbar.el @@ -32,8 +32,8 @@ (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) @@ -43,8 +43,8 @@ customized through the options menu." (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) @@ -54,8 +54,9 @@ customized through the options menu." (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) @@ -70,7 +71,7 @@ customized through the options menu." "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."