martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(menu-bar-goto-menu) [next-tag, next-tag-otherw]:

Browse Source 
Don't call ring-empty-p unless tags-location-ring is bound.
From Noah Friedman <friedman@splode.com>.
This commit is contained in:
Eli Zaretskii
2000-02-20 12:22:14 +00:00
parent a23c5037e7
commit 0ae278818a
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/menu-bar.el
View File

@@ -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