(menu-bar-goto-menu): Fix bindings for next-tag and next-tag-otherw.

This commit is contained in:
Andreas Schwab 2002-04-23 15:16:54 +00:00
parent 68703c1156
commit 262748c574
2 changed files with 7 additions and 2 deletions

View file

@ -1,3 +1,8 @@
2002-04-23 Andreas Schwab <schwab@suse.de>
* menu-bar.el (menu-bar-goto-menu): Fix bindings for next-tag and
next-tag-otherw.
2002-04-23 Miles Bader <miles@gnu.org>
* menu-bar.el (menu-bar-update-buffers-1): Don't display a

View file

@ -352,13 +352,13 @@ A large number or nil slows down menu responsiveness."
:help "Find function/variables whose names match regexp"))
(define-key menu-bar-goto-menu [next-tag-otherw]
'(menu-item "Next Tag in Other Window"
(function (lambda () (find-tag-other-window nil t)))
(lambda () (interactive) (find-tag-other-window nil t))
: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)))
(lambda () (interactive) (find-tag nil t))
:enable (and (boundp 'tags-location-ring)
(not (ring-empty-p tags-location-ring)))
:help "Find next function/variable matching last tag name"))