Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(find-tag-noselect): Simplify.

Browse source 
Always run find-tag-hook at the tag's location.
This commit is contained in:
Richard M. Stallman 1994-09-21 18:37:00 +00:00
parent 810163a3aa
commit 4cc32db661
1 changed files with 23 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
lisp/progmodes/etags.el
View file

@ -713,31 +713,29 @@ See documentation of variable `tags-file-name'."
(visit-tags-table-buffer)
;; Record TAGNAME for a future call with NEXT-P non-nil.
(setq last-tag tagname))
(prog1
;; Record the location so we can pop back to it later.
(marker-buffer
(car
(setq tags-location-stack
(cons (let ((marker (make-marker)))
(save-excursion
(set-buffer
;; find-tag-in-order does the real work.
(find-tag-in-order
(if next-p last-tag tagname)
(if regexp-p
find-tag-regexp-search-function
find-tag-search-function)
(if regexp-p
find-tag-regexp-tag-order
find-tag-tag-order)
(if regexp-p
find-tag-regexp-next-line-after-failure-p
find-tag-next-line-after-failure-p)
(if regexp-p "matching" "containing")
(not next-p)))
(set-marker marker (point))))
tags-location-stack))))
(run-hooks 'local-find-tag-hook)))))
;; Record the location so we can pop back to it later.
(let ((marker (make-marker)))
(save-excursion
(set-buffer
;; find-tag-in-order does the real work.
(find-tag-in-order
(if next-p last-tag tagname)
(if regexp-p
find-tag-regexp-search-function
find-tag-search-function)
(if regexp-p
find-tag-regexp-tag-order
find-tag-tag-order)
(if regexp-p
find-tag-regexp-next-line-after-failure-p
find-tag-next-line-after-failure-p)
(if regexp-p "matching" "containing")
(not next-p)))
(set-marker marker (point))
(run-hooks 'local-find-tag-hook)
(setq tags-location-stack
(cons marker tags-location-stack))
(current-buffer))))))
;;;###autoload
(defun find-tag (tagname &optional next-p regexp-p)