changeset 7904:c2259f58ef7e

(find-tag-history): New variable. (find-tag-noselect): Set that variable.

--- a/lisp/progmodes/etags.el	Wed Jun 15 04:05:32 1994 +0000
+++ b/lisp/progmodes/etags.el	Wed Jun 15 04:37:26 1994 +0000
@@ -710,6 +710,8 @@
 	      (read-string prompt)
 	    (find-tag-tag prompt)))))
 
+(defvar find-tag-history nil)
+
 ;;;###autoload
 (defun find-tag-noselect (tagname &optional next-p regexp-p)
   "Find tag (in current tags table) whose name contains TAGNAME.
@@ -728,6 +730,7 @@
 See documentation of variable `tags-file-name'."
   (interactive (find-tag-interactive "Find tag: "))
 
+  (setq find-tag-history (cons tagname find-tag-history))
   ;; Save the current buffer's value of `find-tag-hook' before selecting the
   ;; tags table buffer.
   (let ((local-find-tag-hook find-tag-hook))