Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Introduce `xref-etags-mode'

Browse source 
Fixes: debbugs:19466

* lisp/progmodes/xref.el (xref-etags-mode--saved): New variable.
(xref-etags-mode): New minor mode.
This commit is contained in:
Dmitry Gutov 2015-02-23 04:00:01 +02:00
parent c7cdc8ed5b
commit f6bb2ccb9b
2 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2015-02-23 Dmitry Gutov <dgutov@yandex.ru>
Introduce `xref-etags-mode'.
* progmodes/xref.el (xref-etags-mode--saved): New variable.
(xref-etags-mode): New minor mode. (Bug#19466)
2015-02-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* dom.el (dom-previous-sibling): New function.

23
lisp/progmodes/xref.el
View file

@ -627,6 +627,29 @@ The argument has the same meaning as in `apropos'."
;;;###autoload (define-key ctl-x-4-map "." #'xref-find-definitions-other-window)
;;;###autoload (define-key ctl-x-5-map "." #'xref-find-definitions-other-frame)
;;; Helper functions
(defvar xref-etags-mode--saved nil)
(define-minor-mode xref-etags-mode
"Minor mode to make xref use etags again.
Certain major modes install their own mechanisms for listing
identifiers and navigation. Turn this on to undo those settings
and just use etags."
:lighter ""
(if xref-etags-mode
(progn
(setq xref-etags-mode--saved
(cons xref-find-function
xref-identifier-completion-table-function))
(kill-local-variable 'xref-find-function)
(kill-local-variable 'xref-identifier-completion-table-function))
(setq-local xref-find-function (car xref-etags-mode--saved))
(setq-local xref-identifier-completion-table-function
(cdr xref-etags-mode--saved))))
(provide 'xref)