Mercurial > hg > xemacs-beta

comparison lisp/easymenu.el @ 2686:263a354405ed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-03-25 16:15:55 by aidan] Don't delete everything from the popup menu in easy-menu-remove--thank you, Ralf Angeli.
author aidan
date Fri, 25 Mar 2005 16:15:56 +0000
parents 9caf26dd924f
children 012240027a21
comparison
equal deleted inserted replaced
2685:64752935473d 2686:263a354405ed
201 201
202 (defun easy-menu-remove (menu) 202 (defun easy-menu-remove (menu)
203 "Remove MENU from the current menu bar." 203 "Remove MENU from the current menu bar."
204 (when (featurep 'menubar) 204 (when (featurep 'menubar)
205 (setq easy-menu-all-popups (delq menu easy-menu-all-popups) 205 (setq easy-menu-all-popups (delq menu easy-menu-all-popups)
206 mode-popup-menu (if (< (length easy-menu-all-popups) 1) 206 mode-popup-menu (if (> (length easy-menu-all-popups) 1)
207 (cons (easy-menu-title) 207 (cons (easy-menu-title)
208 (reverse easy-menu-all-popups)) 208 (reverse easy-menu-all-popups))
209 (let ((same-as-menu 209 (let ((same-as-menu
210 (car easy-menu-all-popups))) 210 (car easy-menu-all-popups)))
211 (cons (normalize-menu-text 211 (cons (normalize-menu-text