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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 691af16da8b35de3af4d62226337dbbf86a6f282..653d942a7876780b76a9f6da814dc3ec86cfcba9 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-19  Stefan Monnier  <monnier@cs.yale.edu>
 
        * mouse-drag.el (mouse-drag-throw, mouse-drag-drag): Push reconstructed

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index c82b2c28dedd6d305b793d75830504ddcb6d2cf2..a179df908ffe3d43318464ed3561a8dc509c3162 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1,6 +1,6 @@
 ;;; menu-bar.el --- define a default menu bar
 
-;; Copyright (C) 1993, 1994, 1995, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002 Free Software Foundation, Inc.
 
 ;; Author: RMS
 ;; Maintainer: FSF
@@ -340,13 +340,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"))