[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 768edb6: Introduce etags-xref-find-definitions-tag-
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] master 768edb6: Introduce etags-xref-find-definitions-tag-order |
Date: |
Wed, 29 Apr 2015 22:55:51 +0000 |
branch: master
commit 768edb6e7b8e69443f56af7ec4ce056f88a404df
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
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 files changed, 6 insertions(+), 1 deletions(-)
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index b470352..b4ce8b1 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 768edb6: Introduce etags-xref-find-definitions-tag-order,
Dmitry Gutov <=