# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1019574960 0
# Node ID 40bcb11d5ff37d795e7fb4981b6c47bb9f669b98
# Parent  cc6875caaed1d1105d8f12c00021f936752187ea
(menu-bar-goto-menu): Fix bindings for next-tag and next-tag-otherw.

diff -r cc6875caaed1 -r 40bcb11d5ff3 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Tue Apr 23 14:33:02 2002 +0000
+++ b/lisp/menu-bar.el	Tue Apr 23 15:16:00 2002 +0000
@@ -352,13 +352,13 @@
 	      :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"))