mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Declare many etags command obsolete; update the goto menu

Browse source 
* lisp/menu-bar.el (menu-bar-goto-menu): Replace all but one etags item
with xref ones.

* lisp/progmodes/etags.el (find-tag-other-window)
(find-tag-other-frame, find-tag-regexp, tags-loop-continue)
(tags-apropos): Declare obsolete.
This commit is contained in:
Dmitry Gutov 2014-12-29 02:36:57 +02:00
parent 9fb9136398
commit c1eec81485
4 changed files with 32 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lisp/menu-bar.el
View file

@ -378,30 +378,23 @@
(bindings--define-key menu [separator-tag-file]
menu-bar-separator)
(bindings--define-key menu [apropos-tags]
'(menu-item "Tags Apropos..." tags-apropos
:help "Find function/variables whose names match regexp"))
(bindings--define-key menu [next-tag-otherw]
'(menu-item "Next Tag in Other Window"
menu-bar-next-tag-other-window
: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"))
(bindings--define-key menu [xref-pop]
'(menu-item "Back..." xref-pop-marker-stack
:help "Back to the position of the last search"))
(bindings--define-key menu [next-tag]
'(menu-item "Find Next Tag"
menu-bar-next-tag
:enable (and (boundp 'tags-location-ring)
(not (ring-empty-p tags-location-ring)))
:help "Find next function/variable matching last tag name"))
(bindings--define-key menu [find-tag-otherw]
'(menu-item "Find Tag in Other Window..." find-tag-other-window
(bindings--define-key menu [xref-apropos]
'(menu-item "Find Apropos..." xref-find-apropos
:help "Find function/variables whose names match regexp"))
(bindings--define-key menu [xref-find-otherw]
'(menu-item "Find Definition in Other Window..."
xref-find-definitions-other-window
:help "Find function/variable definition in another window"))
(bindings--define-key menu [find-tag]
'(menu-item "Find Tag..." find-tag
(bindings--define-key menu [xref-find-def]
'(menu-item "Find Definition..." xref-find-definitions
:help "Find definition of function or variable"))
(bindings--define-key menu [separator-tags]
(bindings--define-key menu [separator-xref]
menu-bar-separator)
(bindings--define-key menu [end-of-buf]