Mercurial > hg > xemacs-beta

diff lisp/x11/x-menubar.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents e04119814345
children 56c54cf7c5b6
line wrap: on
line diff
--- a/lisp/x11/x-menubar.el	Mon Aug 13 08:54:52 2007 +0200
+++ b/lisp/x11/x-menubar.el	Mon Aug 13 08:55:10 2007 +0200
@@ -1404,7 +1404,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