Mercurial > hg > xemacs-beta

diff lisp/toolbar.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
line wrap: on
line diff
--- a/lisp/toolbar.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/toolbar.el	Mon Aug 13 11:07:10 2007 +0200
@@ -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,9 +47,9 @@
 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
@@ -61,9 +61,9 @@
 		 (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