diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2000-02-20 12:22:14 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2000-02-20 12:22:14 +0000 |
| commit | 0ae278818a7891c7166e568da2f575bb24b4267e (patch) | |
| tree | c5b093a88dd031a7ff6a72da8c4daf42d4749b29 /lisp | |
| parent | a23c5037e7a10473af54a8db1ebd49dcea4f832f (diff) | |
| download | emacs-0ae278818a7891c7166e568da2f575bb24b4267e.tar.gz emacs-0ae278818a7891c7166e568da2f575bb24b4267e.tar.bz2 emacs-0ae278818a7891c7166e568da2f575bb24b4267e.zip | |
(menu-bar-goto-menu) [next-tag, next-tag-otherw]:
Don't call ring-empty-p unless tags-location-ring is bound.
From Noah Friedman <friedman@splode.com>.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/menu-bar.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 90c26fcd710..c9595f6ab3d 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -326,12 +326,14 @@ A large number or nil slows down menu responsiveness." (define-key menu-bar-goto-menu [next-tag-otherw] '(menu-item "Next Tag in Other Window" (function (lambda () (find-tag-other-window nil t))) - :enable (not (ring-empty-p tags-location-ring)) + :enable (and (boundp 'tags-location-ring) + (not (ring-empty-p tags-location-ring))) :help "Find next function/variable matching last tag name in another window")) (define-key menu-bar-goto-menu [next-tag] '(menu-item "Find Next Tag" (function (lambda () (find-tag nil t))) - :enable (not (ring-empty-p tags-location-ring)) + :enable (and (boundp 'tags-location-ring) + (not (ring-empty-p tags-location-ring))) :help "Find next function/variable matching last tag name")) (define-key menu-bar-goto-menu [find-tag-otherw] '(menu-item "Find Tag in Other Window..." find-tag-other-window |