Mercurial > hg > xemacs-beta

diff lisp/x11/x-menubar.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents fe104dbd9147
children cca96a509cfe
line wrap: on
line diff
--- a/lisp/x11/x-menubar.el	Mon Aug 13 09:21:56 2007 +0200
+++ b/lisp/x11/x-menubar.el	Mon Aug 13 09:23:06 2007 +0200
@@ -1413,7 +1413,8 @@
 		 (items (cdr mode-popup-menu))
 		 filters)
 	    ;; Strip keywords from local menu for attaching them at the top
-	    (while (not (vectorp (car items)))
+	    (while (and items
+			(symbolp (car items)))
 	      (setq items (append filters (list (car items))))
 	      (setq items (cdr items)))
 	    ;; If filters contains a keyword already present in