From 262748c5747f8d99de45ebeec9833f6945e103fd Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 23 Apr 2002 15:16:54 +0000 Subject: [PATCH] (menu-bar-goto-menu): Fix bindings for next-tag and next-tag-otherw. --- lisp/ChangeLog | 5 +++++ lisp/menu-bar.el | 4 ++-- 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 + + * menu-bar.el (menu-bar-goto-menu): Fix bindings for next-tag and + next-tag-otherw. + 2002-04-23 Miles Bader * 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")) -- 2.39.5