diff options
| -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." | |||
| 326 | (define-key menu-bar-goto-menu [next-tag-otherw] | 326 | (define-key menu-bar-goto-menu [next-tag-otherw] |
| 327 | '(menu-item "Next Tag in Other Window" | 327 | '(menu-item "Next Tag in Other Window" |
| 328 | (function (lambda () (find-tag-other-window nil t))) | 328 | (function (lambda () (find-tag-other-window nil t))) |
| 329 | :enable (not (ring-empty-p tags-location-ring)) | 329 | :enable (and (boundp 'tags-location-ring) |
| 330 | (not (ring-empty-p tags-location-ring))) | ||
| 330 | :help "Find next function/variable matching last tag name in another window")) | 331 | :help "Find next function/variable matching last tag name in another window")) |
| 331 | (define-key menu-bar-goto-menu [next-tag] | 332 | (define-key menu-bar-goto-menu [next-tag] |
| 332 | '(menu-item "Find Next Tag" | 333 | '(menu-item "Find Next Tag" |
| 333 | (function (lambda () (find-tag nil t))) | 334 | (function (lambda () (find-tag nil t))) |
| 334 | :enable (not (ring-empty-p tags-location-ring)) | 335 | :enable (and (boundp 'tags-location-ring) |
| 336 | (not (ring-empty-p tags-location-ring))) | ||
| 335 | :help "Find next function/variable matching last tag name")) | 337 | :help "Find next function/variable matching last tag name")) |
| 336 | (define-key menu-bar-goto-menu [find-tag-otherw] | 338 | (define-key menu-bar-goto-menu [find-tag-otherw] |
| 337 | '(menu-item "Find Tag in Other Window..." find-tag-other-window | 339 | '(menu-item "Find Tag in Other Window..." find-tag-other-window |