Mercurial > emacs
changeset 27773:e209690ccf0a
(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>.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 20 Feb 2000 12:22:14 +0000 |
| parents | 11a8d125f241 |
| children | 097c2dd9367a |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Fri Feb 18 23:35:24 2000 +0000 +++ b/lisp/menu-bar.el Sun Feb 20 12:22:14 2000 +0000 @@ -326,12 +326,14 @@ (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