diff lisp/easymenu.el @ 2545:9caf26dd924f

[xemacs-hg @ 2005-02-03 05:03:36 by ben] behavior ws #2: menu-related changes menubar.c: New fun to compare menu itext as if the two were normalized. menubar.c: Rename; there are no external callers of this function. Remove unneeded BUFFER argument. Don't downcase. (This will be done in compare-menu-text.) Document that return value may be same string. easymenu.el, map-ynp.el: Use normalize-menu-text not normalize-menu-item-name. menubar-items.el, menubar.el: Move to menubar.el and rewrite for cleanliness. menubar-items.el: Use menu-split-long-menu-and-sort. menubar-items.el, menubar.el: Move to menubar.el. menubar.el: New funs. menubar.el: Split up find-menu-item w/find-menu-item-1, since PARENT is not an external item. Rewrite to use compare-menu-text. menubar.el: Don't normalize items as find-menu-item does not need it. menubar-items.el: Delete old Behavior menu defn, replaced by behavior-menu-filter. Planning to [[Delete many menus from Tools menu -- they have been integrated as part of the behavior system.]] Currently the new Tools menu (very short, just a call to the behavior-menu-filter) is commented out, and the old Toold menu defn remains. Once the new packages are in place (c. 1 or 2 weeks), I'll make the switchover. Use menu-split-long-menu-and-sort.
author ben
date Thu, 03 Feb 2005 05:03:45 +0000
parents 7039e6323819
children 263a354405ed
line wrap: on
line diff
--- a/lisp/easymenu.el	Thu Feb 03 04:29:33 2005 +0000
+++ b/lisp/easymenu.el	Thu Feb 03 05:03:45 2005 +0000
@@ -181,7 +181,7 @@
 				    (reverse easy-menu-all-popups))
 			    (let ((same-as-menu
 				   (car easy-menu-all-popups)))
-			      (cons (normalize-menu-item-name
+			      (cons (normalize-menu-text
 				     (car same-as-menu))
 				    (cdr same-as-menu)))))
 
@@ -208,7 +208,7 @@
 				    (reverse easy-menu-all-popups))
 			    (let ((same-as-menu
 				   (car easy-menu-all-popups)))
-			      (cons (normalize-menu-item-name
+			      (cons (normalize-menu-text
 				     (car same-as-menu))
 				    (cdr same-as-menu)))))