From 768edb6e7b8e69443f56af7ec4ce056f88a404df Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Thu, 30 Apr 2015 01:55:43 +0300 Subject: [PATCH] Introduce etags-xref-find-definitions-tag-order * lisp/progmodes/etags.el (etags-xref-find-definitions-tag-order): New variable. (etags--xref-find-definitions): Use it (bug#19468). --- lisp/progmodes/etags.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index b470352f8dc..b4ce8b11c9c 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -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)) -- 2.39.2