Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
1402 (check-menu-syntax mode-popup-menu) 1402 (check-menu-syntax mode-popup-menu)
1403 (let* ((title (car mode-popup-menu)) 1403 (let* ((title (car mode-popup-menu))
1404 (items (cdr mode-popup-menu)) 1404 (items (cdr mode-popup-menu))
1405 filters) 1405 filters)
1406 ;; Strip keywords from local menu for attaching them at the top 1406 ;; Strip keywords from local menu for attaching them at the top
1407 (while (not (vectorp (car items))) 1407 (while (and items
1408 (symbolp (car items)))
1408 (setq items (append filters (list (car items)))) 1409 (setq items (append filters (list (car items))))
1409 (setq items (cdr items))) 1410 (setq items (cdr items)))
1410 ;; If filters contains a keyword already present in 1411 ;; If filters contains a keyword already present in
1411 ;; `global-popup-menu' you will probably lose. 1412 ;; `global-popup-menu' you will probably lose.
1412 (append (list (car global-popup-menu)) 1413 (append (list (car global-popup-menu))