Mercurial > hg > xemacs-beta
comparison lisp/behavior.el @ 4372:ebb35ddea76a
Byte-compile menu lambdas; make the menu of available tutorials more readable.
2007-12-31 Aidan Kehoe <kehoea@parhasard.net>
* menubar-items.el (default-menubar):
Byte compile the specified lambdas. Correct some compile time
warnings uncovered by this.
* menubar-items.el (tutorials-menu-filter):
If a language environment doesn't have an associated POSIX locale
specified--which indicates we don't want it used except by those
who know what they're doing--don't show its tutorial in the menu.
* behavior.el (behavior-menu-filter):
Byte compile the lambdas in the generated menu.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 31 Dec 2007 21:34:45 +0100 |
| parents | 5d1743698fb3 |
| children | 2def0d83a5e3 |
comparison
equal
deleted
inserted
replaced
| 4353:4143b78d0df0 | 4372:ebb35ddea76a |
|---|---|
| 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")]) |