X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ftoolbar.el;h=5c80dda58e51453aa197a1295f9b86e3227db0f4;hb=95285eb7aa21e9766d9b69bd3e2251e18886a3d8;hp=446ce940106d58a3ec725ab35f517ee2799177cb;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/lisp/toolbar.el b/lisp/toolbar.el
index 446ce94..5c80dda 100644
--- 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