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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 099bfe3b0f40ceb718badfe5be23b81ca695ec37..17c4fb7186881fd0582c2af4f91576e18249bf20 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 60fdb59994a6ee4b8b4c2a47d8aadc5d372a1268..959c68cc6ac8e3329860a2d9d679429d14a5fa6f 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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"))