Mercurial > hg > xemacs-beta

diff lisp/menubar.el @ 5706:44b0b4ea5cae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implement and document :active keyword for submenu specs.
author Stephen J. Turnbull <stephen@xemacs.org>
date Fri, 28 Dec 2012 17:23:25 +0900
parents cc6f0266bc36
children 68f8d295be49
line wrap: on
line diff
--- a/lisp/menubar.el	Fri Dec 28 13:03:15 2012 +0900
+++ b/lisp/menubar.el	Fri Dec 28 17:23:25 2012 +0900
@@ -79,9 +79,9 @@
     (setq menu (cdr menu)))
   (let (menuitem item)
     (while (keywordp (setq item (car menu)))
-      (or (memq item '(:config :included :filter :accelerator))
+      (or (memq item '(:config :included :filter :accelerator :active))
 	  (signal 'error
-		  (list "menu keyword must be :config, :included, :accelerator or :filter"
+		  (list "menu keyword must be :config, :included, :accelerator, :active or :filter"
 			item)))
       (if (or (not (cdr menu))
 	      (vectorp (nth 1 menu))