From b00f856bc3b91713f53e2ead7ca417ba716bbf4c Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Fri, 11 Feb 1994 05:54:37 +0000 Subject: [PATCH] (etags-goto-tag-location): First go directly to STARTPOS and see if PAT is right there. --- lisp/progmodes/etags.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index ebfdb910cb6..378965b2e08 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -959,6 +959,11 @@ See documentation of variable `tags-file-name'." (forward-line 1) (cons tag-text startpos))) +;; TAG-INFO is a cons (TEXT . POSITION) where TEXT is the initial part of a +;; line containing the tag and POSITION is the character position of TEXT +;; within the file (starting from 1). If the tag isn't exactly at the +;; given position then look around that position using a search window +;; which expands until it hits the start of file. (defun etags-goto-tag-location (tag-info) (let ((startpos (cdr tag-info)) ;; This constant is 1/2 the initial search window. @@ -972,6 +977,9 @@ See documentation of variable `tags-file-name'." (regexp-quote (car tag-info))))) (or startpos (setq startpos (point-min))) + ;; First see if the tag is right at the specified location. + (goto-char startpos) + (setq found (looking-at pat)) (while (and (not found) (progn (goto-char (- startpos offset)) -- 2.39.5