Mercurial > hg > xemacs-beta

comparison lisp/behavior.el @ 5118:e0db3c197671 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents ebb35ddea76a
children 2def0d83a5e3
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
476 enable) 476 enable)
477 '(?p))) 477 '(?p)))
478 478
479 (defun behavior-menu-filter (menu) 479 (defun behavior-menu-filter (menu)
480 (append 480 (append
481 '(("%_Package Utilities" 481 `(("%_Package Utilities"
482 ("%_Set Download Site" 482 ("%_Set Download Site"
483 ("%_Official Releases" 483 ("%_Official Releases"
484 :filter (lambda (&rest junk) 484 :filter ,#'(lambda (&rest junk)
485 (menu-split-long-menu 485 (menu-split-long-menu
486 (submenu-generate-accelerator-spec 486 (submenu-generate-accelerator-spec
487 (package-ui-download-menu))))) 487 (package-ui-download-menu)))))
488 ("%_Pre-Releases" 488 ("%_Pre-Releases"
489 :filter (lambda (&rest junk) 489 :filter ,#'(lambda (&rest junk)
490 (menu-split-long-menu 490 (menu-split-long-menu
491 (submenu-generate-accelerator-spec 491 (submenu-generate-accelerator-spec
492 (package-ui-pre-release-download-menu))))) 492 (package-ui-pre-release-download-menu)))))
493 ("%_Site Releases" 493 ("%_Site Releases"
494 :filter (lambda (&rest junk) 494 :filter ,#'(lambda (&rest junk)
495 (menu-split-long-menu 495 (menu-split-long-menu
496 (submenu-generate-accelerator-spec 496 (submenu-generate-accelerator-spec
497 (package-ui-site-release-download-menu)))))) 497 (package-ui-site-release-download-menu))))))
498 "--:shadowEtchedIn" 498 "--:shadowEtchedIn"
499 ["%_Update Package Index" package-get-update-base] 499 ["%_Update Package Index" package-get-update-base]
500 ["%_List and Install" pui-list-packages] 500 ["%_List and Install" pui-list-packages]
501 ["U%_pdate Installed Packages" package-get-update-all] 501 ["U%_pdate Installed Packages" package-get-update-all]
502 ["%_Help" (Info-goto-node "(xemacs)Packages")]) 502 ["%_Help" (Info-goto-node "(xemacs)Packages")])