CVS update by michaels xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: michaels
  Date: 07/09/05 08:50:48

  Modified:    xemacs/lisp ChangeLog menubar.el
Log:
2007-09-05  Mike Sperber  <mike at xemacs.org>

	* menubar.el (add-menu-item-1): Remove bogus `leaf-p' argument.
	(add-menu-button): Follow above change; also remove bogus
	docstring talking about "leaf node".
	(add-submenu): Follow above change.

Revision  Changes    Path
1.837     +7 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.836
retrieving revision 1.837
diff -u -p -r1.836 -r1.837
--- ChangeLog	2007/09/03 13:16:39	1.836
+++ ChangeLog	2007/09/05 06:50:44	1.837
@@ -1,3 +1,10 @@
+2007-09-05  Mike Sperber  <mike at xemacs.org>
+
+	* menubar.el (add-menu-item-1): Remove bogus `leaf-p' argument.
+	(add-menu-button): Follow above change; also remove bogus
+	docstring talking about "leaf node".
+	(add-submenu): Follow above change.
+
 2007-09-02  Steve Youngs  <steve at sxemacs.org>
 
 	* byte-optimize.el (byte-optimize-featurep): New.  Optimise



1.13      +6 -5      XEmacs/xemacs/lisp/menubar.el

Index: menubar.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/menubar.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -p -r1.12 -r1.13
--- menubar.el	2005/02/07 19:30:08	1.12
+++ menubar.el	2007/09/05 06:50:45	1.13
@@ -210,7 +210,7 @@ If some menu in the ITEM-PATH-LIST does 
 				      (car item-path-list)))))
 	(cons result parent)))))
 
-(defun add-menu-item-1 (leaf-p menu-path new-item before in-menu)
+(defun add-menu-item-1 (menu-path new-item before in-menu)
   ;; This code looks like it could be cleaned up some more
   ;; Do we really need 6 calls to find-menu-item?
   (let* ((item-name
@@ -283,20 +283,20 @@ If some menu in the ITEM-PATH-LIST does 
     (set-menubar-dirty-flag)
     new-item))
 
-(defun add-menu-button (menu-path menu-leaf &optional before in-menu)
+(defun add-menu-button (menu-path menu-item &optional before in-menu)
   "Add a menu item to some menu, creating the menu first if necessary.
 If the named item exists already, it is changed.
 MENU-PATH identifies the menu under which the new menu item should be inserted.
  It is a list of strings; for example, (\"File\") names the top-level \"File\"
  menu.  (\"File\" \"Foo\") names a hypothetical submenu of \"File\".
-MENU-LEAF is a menubar leaf node.  See the documentation of `current-menubar'.
+MENU-ITEM is a menu or menu item.  See the documentation of `current-menubar'.
 BEFORE, if provided, is the name of a menu item before which this item should
  be added, if this item is not on the menu already.  If the item is already
  present, it will not be moved.
 IN-MENU, if provided, means use that instead of `current-menubar' as the
  menu to change."
   ;; Note easymenu.el uses the fact that menu-leaf can be a submenu.
-  (add-menu-item-1 t menu-path menu-leaf before in-menu))
+  (add-menu-item-1 menu-path menu-item before in-menu))
 
 ;; I actually liked the old name better, but the interface has changed too
 ;; drastically to keep it. --Stig
@@ -315,7 +315,8 @@ BEFORE, if provided, is the name of a me
 IN-MENU, if provided, means use that instead of `current-menubar' as the
  menu to change."
   (check-menu-syntax submenu nil)
-  (add-menu-item-1 nil menu-path submenu before in-menu))
+  (add-menu-item-1 menu-path submenu before in-menu))
+
 ;; purespace is no more, so this function is unnecessary
 ;(defun purecopy-menubar (x)
 ;  ;; this calls purecopy on the strings, and the contents of the vectors,