diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-03-11 03:55:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-03-11 03:55:14 +0000 |
| commit | 6f57a741f98fd9168d3b91726bcdaf65eeefdcbc (patch) | |
| tree | 702e807d08c4285beac2d350afbc70b44e2e7ab7 /lisp/emacs-lisp/lmenu.el | |
| parent | b75f9a7686f4bac083c5f7f253efedc8ac9fc1fd (diff) | |
| download | emacs-6f57a741f98fd9168d3b91726bcdaf65eeefdcbc.tar.gz | |
(add-menu-item-1): Better error message if
a menu not the last in the path does not exist.
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 |