From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Mar 1995 03:55:14 +0000 (+0000)
Subject: (add-menu-item-1): Better error message if
X-Git-Tag: emacs-19.34~4904
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f57a741f98fd9168d3b91726bcdaf65eeefdcbc;p=emacs.git

(add-menu-item-1): Better error message if
a menu not the last in the path does not exist.
---

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index eed3fbb662e..5bbccbbdab8 100644
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -358,6 +358,8 @@ menu item called \"Item\" under the \"Foo\" submenu of \"Menu\"."
 		    (car (find-menu-item (cdr so-far) (list (car rest))))))
 	    (or menu
 		(let ((rest2 so-far))
+		  (or rest2
+		      (error "Trying to modify a menu that doesn't exist"))
 		  (while (and (cdr rest2) (car (cdr rest2)))
 		    (setq rest2 (cdr rest2)))
 		  (setcdr rest2