Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1411 (check-menu-syntax mode-popup-menu) 1411 (check-menu-syntax mode-popup-menu)
1412 (let* ((title (car mode-popup-menu)) 1412 (let* ((title (car mode-popup-menu))
1413 (items (cdr mode-popup-menu)) 1413 (items (cdr mode-popup-menu))
1414 filters) 1414 filters)
1415 ;; Strip keywords from local menu for attaching them at the top 1415 ;; Strip keywords from local menu for attaching them at the top
1416 (while (not (vectorp (car items))) 1416 (while (and items
1417 (symbolp (car items)))
1417 (setq items (append filters (list (car items)))) 1418 (setq items (append filters (list (car items))))
1418 (setq items (cdr items))) 1419 (setq items (cdr items)))
1419 ;; If filters contains a keyword already present in 1420 ;; If filters contains a keyword already present in
1420 ;; `global-popup-menu' you will probably lose. 1421 ;; `global-popup-menu' you will probably lose.
1421 (append (list (car global-popup-menu)) 1422 (append (list (car global-popup-menu))