mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(find-tag-history): New variable.

Browse source 
(find-tag-noselect): Set that variable.
This commit is contained in:
Richard M. Stallman 1994-06-15 04:37:26 +00:00
parent 69037d5a1c
commit c5507689ba
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/progmodes/etags.el
View file

@ -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))