[Emacs-diffs] Changes to emacs/lisp/menu-bar.el

[Andreas Schwab]

Index: emacs/lisp/menu-bar.el
diff -c emacs/lisp/menu-bar.el:1.209 emacs/lisp/menu-bar.el:1.210
*** emacs/lisp/menu-bar.el:1.209        Tue Apr 23 10:31:59 2002
--- emacs/lisp/menu-bar.el      Tue Apr 23 11:16:00 2002
***************
*** 352,364 ****
              :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)))
              :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)))
              :enable (and (boundp 'tags-location-ring)
                           (not (ring-empty-p tags-location-ring)))
              :help "Find next function/variable matching last tag name"))
--- 352,364 ----
              :help "Find function/variables whose names match regexp"))
  (define-key menu-bar-goto-menu [next-tag-otherw]
    '(menu-item "Next Tag in Other Window"
!             (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"
!             (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"))