# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 794894114 0
# Node ID d9ab06338f6aadab95345c9264b82b7f0ba1de6a
# Parent  ba4240ca6b9953202d23b6cf105210a1a397fd98
(add-menu-item-1): Better error message if
a menu not the last in the path does not exist.

diff -r ba4240ca6b99 -r d9ab06338f6a lisp/emacs-lisp/lmenu.el
--- a/lisp/emacs-lisp/lmenu.el	Sat Mar 11 02:17:04 1995 +0000
+++ b/lisp/emacs-lisp/lmenu.el	Sat Mar 11 03:55:14 1995 +0000
@@ -358,6 +358,8 @@
 		    (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