Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
364:63c3368d1275 365:30d2cfa1092a
243 ;; deal while using a menu 243 ;; deal while using a menu
244 ("Using Custom" 244 ("Using Custom"
245 :filter (lambda (&rest junk) 245 :filter (lambda (&rest junk)
246 (if package-get-base 246 (if package-get-base
247 (cdr (custom-menu-create 'packages)) 247 (cdr (custom-menu-create 'packages))
248 '(["Please load Package Index" (lamda (&rest junk) ()) nil])))) 248 '(["Please load Package Index" #'ignore nil]))))
249 249
250 ["Help" (Info-goto-node "(xemacs)Packages")]) 250 ["Help" (Info-goto-node "(xemacs)Packages")])
251 251
252 "---" 252 "---"
253 253
478 nil 478 nil
479 (customize-set-variable 'font-lock-maximum-decoration nil) 479 (customize-set-variable 'font-lock-maximum-decoration nil)
480 (font-lock-recompute-variables))) 480 (font-lock-recompute-variables)))
481 :style radio 481 :style radio
482 :active (fboundp 'font-lock-mode) 482 :active (fboundp 'font-lock-mode)
483 :selected (and (boundp 'font-lock-maximium-decoration) 483 :selected (and (boundp 'font-lock-maximum-decoration)
484 (or (and (not (integerp font-lock-maximum-decoration)) 484 (or (and (not (integerp font-lock-maximum-decoration))
485 (not (eq t font-lock-maximum-decoration))) 485 (not (eq t font-lock-maximum-decoration)))
486 (and (integerp font-lock-maximum-decoration) 486 (and (integerp font-lock-maximum-decoration)
487 (<= font-lock-maximum-decoration 0))))] 487 (<= font-lock-maximum-decoration 0))))]
488 ["More" 488 ["More"
493 nil 493 nil
494 (customize-set-variable 'font-lock-maximum-decoration 1) 494 (customize-set-variable 'font-lock-maximum-decoration 1)
495 (font-lock-recompute-variables))) 495 (font-lock-recompute-variables)))
496 :style radio 496 :style radio
497 :active (fboundp 'font-lock-mode) 497 :active (fboundp 'font-lock-mode)
498 :selected (and (boundp 'font-lock-maximium-decoration) 498 :selected (and (boundp 'font-lock-maximum-decoration)
499 (integerp font-lock-maximum-decoration) 499 (integerp font-lock-maximum-decoration)
500 (= 1 font-lock-maximum-decoration))] 500 (= 1 font-lock-maximum-decoration))]
501 ["Even More" 501 ["Even More"
502 (progn 502 (progn
503 (require 'font-lock) 503 (require 'font-lock)