(menu-bar-goto-menu): Fix bindings for next-tag and next-tag-otherw.
This commit is contained in:
parent
68703c1156
commit
262748c574
2 changed files with 7 additions and 2 deletions
|
@ -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
|
||||
|
|
|
@ -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"))
|
||||
|
|
Loading…
Add table
Reference in a new issue