aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/etags.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 76a1da858c6..ee1c0267296 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -513,7 +513,7 @@ File names returned are absolute."
513;;;###autoload 513;;;###autoload
514(defun find-tag-noselect (tagname &optional next-p regexp-p) 514(defun find-tag-noselect (tagname &optional next-p regexp-p)
515 "Find tag (in current tags table) whose name contains TAGNAME. 515 "Find tag (in current tags table) whose name contains TAGNAME.
516Returns the buffer containing the tag's definition moves its point there, 516Returns the buffer containing the tag's definition and moves its point there,
517but does not select the buffer. 517but does not select the buffer.
518The default for TAGNAME is the expression in the buffer near point. 518The default for TAGNAME is the expression in the buffer near point.
519 519
@@ -637,9 +637,12 @@ See documentation of variable `tags-file-name'."
637;; specified source file and return. Qualified matches are remembered to 637;; specified source file and return. Qualified matches are remembered to
638;; avoid repetition. State is saved so that the loop can be continued. 638;; avoid repetition. State is saved so that the loop can be continued.
639 639
640(defun find-tag-in-order (pattern search-forward-func order 640(defun find-tag-in-order (pattern
641 next-line-after-failure-p matching 641 search-forward-func
642 first-search) 642 order
643 next-line-after-failure-p
644 matching
645 first-search)
643 (let (file ;name of file containing tag 646 (let (file ;name of file containing tag
644 tag-info ;where to find the tag in FILE 647 tag-info ;where to find the tag in FILE
645 tags-table-file ;name of tags file 648 tags-table-file ;name of tags file