From: Gerd Moellmann Date: Mon, 15 Jan 2001 16:37:58 +0000 (+0000) Subject: (find-tag-noselect): Save the value of X-Git-Tag: emacs-pretest-21.0.96~286 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1cf67b6f8b50efe7c2143d041ffa281d11fc0c4;p=emacs.git (find-tag-noselect): Save the value of tags-file-name before switching buffers, for the case it has a buffer-local value. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index de0bc0e5841..ed68e1a7f6b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-01-15 Gerd Moellmann + + * progmodes/etags.el (find-tag-noselect): Save the value of + tags-file-name before switching buffers, for the case it has a + buffer-local value. + 2001-01-15 Alex Schroeder * ansi-color.el (ansi-colors) : Fix :version by Dave diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index e01a1448af8..131610e09d7 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -820,9 +820,11 @@ 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)) + ;; Save the current buffer's value of `find-tag-hook' before + ;; selecting the tags table buffer. For the same reason, save value + ;; of `tags-file-name' in case it has a buffer-local value. + (let ((local-find-tag-hook find-tag-hook) + (tags-file-name tags-file-name)) (if (eq '- next-p) ;; Pop back to a previous location. (if (ring-empty-p tags-location-ring)