From: Andreas Schwab Date: Tue, 23 Apr 2002 15:14:25 +0000 (+0000) Subject: (menu-bar-goto-menu): Fix bindings for next-tag and next-tag-otherw. X-Git-Tag: emacs-pretest-21.2.91~294 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcddc2f719694b60e5d0b81bcf6b7a41a1a2256b;p=emacs.git (menu-bar-goto-menu): Fix bindings for next-tag and next-tag-otherw. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 691af16da8b..653d942a787 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-19 Stefan Monnier * mouse-drag.el (mouse-drag-throw, mouse-drag-drag): Push reconstructed diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index c82b2c28ded..a179df908ff 100644 --- 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"))