procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Introduce etags-xref-find-definitions-tag-order

Browse source 
* lisp/progmodes/etags.el (etags-xref-find-definitions-tag-order):
New variable.
(etags--xref-find-definitions): Use it (bug#19468).
This commit is contained in:
Dmitry Gutov 2015-04-30 01:55:43 +03:00
parent 3c3eb1d5f2
commit 768edb6e7b
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/progmodes/etags.el
View file

@ -2073,6 +2073,11 @@ for \\[find-tag] (which see)."
;; we hit the limit rarely.
(defconst etags--xref-limit 1000)
(defvar etags-xref-find-definitions-tag-order '(tag-exact-match-p
tag-implicit-name-match-p
tag-symbol-match-p)
"Tag order used in `etags-xref-find' to look for definitions.")
;;;###autoload
(defun etags-xref-find (action id)
(pcase action
@ -2094,7 +2099,7 @@ for \\[find-tag] (which see)."
(while (visit-tags-table-buffer (not first-time))
(setq first-time nil)
(dolist (order-fun (cond (regexp? find-tag-regexp-tag-order)
(t find-tag-tag-order)))
(t etags-xref-find-definitions-tag-order)))
(goto-char (point-min))
(while (and (funcall search-fun pattern nil t)
(< (hash-table-count marks) etags--xref-limit))