Mercurial > hg > xemacs-beta

diff lisp/menubar-items.el @ 365:30d2cfa1092a r21-1-12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-12
author cvs
date Mon, 13 Aug 2007 11:00:12 +0200
parents 7347b34c275b
children cc15677e0335
line wrap: on
line diff
--- a/lisp/menubar-items.el	Mon Aug 13 10:59:30 2007 +0200
+++ b/lisp/menubar-items.el	Mon Aug 13 11:00:12 2007 +0200
@@ -245,7 +245,7 @@
 	:filter (lambda (&rest junk)
 		  (if package-get-base
 		      (cdr (custom-menu-create 'packages))
-		    '(["Please load Package Index" (lamda (&rest junk) ()) nil]))))
+		    '(["Please load Package Index" #'ignore nil]))))
        
        ["Help" (Info-goto-node "(xemacs)Packages")])
 
@@ -480,7 +480,7 @@
 	    (font-lock-recompute-variables)))
 	:style radio
 	:active (fboundp 'font-lock-mode)
-	:selected (and (boundp 'font-lock-maximium-decoration)
+	:selected (and (boundp 'font-lock-maximum-decoration)
 		       (or (and (not (integerp font-lock-maximum-decoration))
 				(not (eq t font-lock-maximum-decoration)))
 			   (and (integerp font-lock-maximum-decoration)
@@ -495,7 +495,7 @@
 	    (font-lock-recompute-variables)))
 	:style radio
 	:active (fboundp 'font-lock-mode)
-	:selected (and (boundp 'font-lock-maximium-decoration)
+	:selected (and (boundp 'font-lock-maximum-decoration)
 		       (integerp font-lock-maximum-decoration)
 		       (= 1 font-lock-maximum-decoration))]
        ["Even More"