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

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 099bfe3b0f4..17c4fb71868 100644
--- 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 60fdb59994a..959c68cc6ac 100644
--- 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"))