Initial revision

[chise/xemacs-chise.git.1] / lisp / toolbar.el

diff --git a/lisp/toolbar.el b/lisp/toolbar.el
index 446ce94..5c80dda 100644 (file)
--- a/lisp/toolbar.el
+++ b/lisp/toolbar.el
@@ -36,9 +36,9 @@
 customized through the options menu."
   :group 'display
   :type 'boolean
-  :set '(lambda (var val)
-         (set-specifier default-toolbar-visible-p val)
-         (setq toolbar-visible-p val))
+  :set #'(lambda (var val)
+          (set-specifier default-toolbar-visible-p val)
+          (setq toolbar-visible-p val))
   )
 
 (defcustom toolbar-captioned-p ;; added for the options menu - dverna apr. 98
@@ -47,23 +47,23 @@ customized through the options menu."
 customized through the options menu."
   :group 'display
   :type 'boolean
-  :set '(lambda (var val)
-         (set-specifier toolbar-buttons-captioned-p val)
-         (setq toolbar-captioned-p val))
+  :set #'(lambda (var val)
+          (set-specifier toolbar-buttons-captioned-p val)
+          (setq toolbar-captioned-p val))
   )
 
 (defcustom default-toolbar-position ;; added for the options menu - dverna
   (default-toolbar-position)
-  "The location of the default toolbar. It can be 'top, 'bootom, 'left or
+  "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)
                 (const :tag "left" 'left)
                 (const :tag "right" 'right))
-  :set '(lambda (var val)
-         (set-default-toolbar-position val)
-         (setq default-toolbar-position val))
+  :set #'(lambda (var val)
+          (set-default-toolbar-position val)
+          (setq default-toolbar-position val))
   )
 
 (defvar toolbar-help-enabled t