# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771655046 0
# Node ID c2259f58ef7e46d2d45b1155b0eb93dc6b295b46
# Parent  40bb379c95509cfc9d013835899b0dac04dd43fc
(find-tag-history): New variable.
(find-tag-noselect): Set that variable.

diff -r 40bb379c9550 -r c2259f58ef7e lisp/progmodes/etags.el
--- 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))