From e1cf67b6f8b50efe7c2143d041ffa281d11fc0c4 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 15 Jan 2001 16:37:58 +0000 Subject: [PATCH] (find-tag-noselect): Save the value of tags-file-name before switching buffers, for the case it has a buffer-local value. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/etags.el | 8 +++++--- 2 files changed, 11 insertions(+), 3 deletions(-) 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) -- 2.39.5