(add-menu-item-1): Better error message if

a menu not the last in the path does not exist.

1 files changed, 2 insertions, 0 deletions

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