From c5507689baf13c5ca0ba9cc5d13e6b031d5ff5dc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 15 Jun 1994 04:37:26 +0000 Subject: [PATCH] (find-tag-history): New variable. (find-tag-noselect): Set that variable. --- lisp/progmodes/etags.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 6b93fff4822..468671a8480 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -710,6 +710,8 @@ Assumes the tags table is the current buffer." (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 @@ If third arg REGEXP-P is non-nil, treat TAGNAME as a regexp. 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)) -- 2.39.5