diff options
Diffstat (limited to 'lisp/emacs-lisp/lmenu.el')
| -rw-r--r-- | lisp/emacs-lisp/lmenu.el | 2 |
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 |