From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Sep 1994 18:37:00 +0000 (+0000)
Subject: (find-tag-noselect): Simplify.
X-Git-Tag: emacs-19.34~6881
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cc32db661d4b28159da5451397cd612685f5993;p=emacs.git

(find-tag-noselect): Simplify.
Always run find-tag-hook at the tag's location.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 58b53dc1d47..e39f706b429 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -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)