# HG changeset patch
# User aidan
# Date 1111767356 0
# Node ID 263a354405ed4bccc321811799113874eef7cb72
# Parent  64752935473dc28918cf8ff983ff34f16a422b3e
[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.

diff -r 64752935473d -r 263a354405ed lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Mar 25 15:58:03 2005 +0000
+++ b/lisp/ChangeLog	Fri Mar 25 16:15:56 2005 +0000
@@ -1,3 +1,9 @@
+2005-03-25  Ralf Angeli  <angeli@iwi.uni-sb.de> 
+
+	* easymenu.el (easy-menu-remove): As described in 
+	E1D4Nn5-0001lq-EU@neutrino.iwi.uni-sb.de; don't strip everything
+	except the "Command" menu from mode-popup-menu. 
+
 2005-03-25  Ralf Angeli  <angeli@iwi.uni-sb.de> 
  
         * font.el (font-spatial-to-canonical): Correct calculation of 
diff -r 64752935473d -r 263a354405ed lisp/easymenu.el
--- a/lisp/easymenu.el	Fri Mar 25 15:58:03 2005 +0000
+++ b/lisp/easymenu.el	Fri Mar 25 16:15:56 2005 +0000
@@ -203,7 +203,7 @@
   "Remove MENU from the current menu bar."
   (when (featurep 'menubar)
     (setq easy-menu-all-popups (delq menu easy-menu-all-popups)
-	  mode-popup-menu (if (< (length easy-menu-all-popups) 1)
+	  mode-popup-menu (if (> (length easy-menu-all-popups) 1)
 			      (cons (easy-menu-title)
 				    (reverse easy-menu-all-popups))
 			    (let ((same-as-menu