Mercurial > emacs
comparison lisp/progmodes/etags.el @ 35312:2f2f03dac098
(find-tag-noselect): Save the value of
tags-file-name before switching buffers, for the case it has a
buffer-local value.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 15 Jan 2001 16:37:27 +0000 |
parents | e1ba079c4709 |
children | 3379eca770e2 |
comparison
equal
deleted
inserted
replaced
35311:8476c091d163 | 35312:2f2f03dac098 |
---|---|
818 | 818 |
819 See documentation of variable `tags-file-name'." | 819 See documentation of variable `tags-file-name'." |
820 (interactive (find-tag-interactive "Find tag: ")) | 820 (interactive (find-tag-interactive "Find tag: ")) |
821 | 821 |
822 (setq find-tag-history (cons tagname find-tag-history)) | 822 (setq find-tag-history (cons tagname find-tag-history)) |
823 ;; Save the current buffer's value of `find-tag-hook' before selecting the | 823 ;; Save the current buffer's value of `find-tag-hook' before |
824 ;; tags table buffer. | 824 ;; selecting the tags table buffer. For the same reason, save value |
825 (let ((local-find-tag-hook find-tag-hook)) | 825 ;; of `tags-file-name' in case it has a buffer-local value. |
826 (let ((local-find-tag-hook find-tag-hook) | |
827 (tags-file-name tags-file-name)) | |
826 (if (eq '- next-p) | 828 (if (eq '- next-p) |
827 ;; Pop back to a previous location. | 829 ;; Pop back to a previous location. |
828 (if (ring-empty-p tags-location-ring) | 830 (if (ring-empty-p tags-location-ring) |
829 (error "No previous tag locations") | 831 (error "No previous tag locations") |
830 (let ((marker (ring-remove tags-location-ring 0))) | 832 (let ((marker (ring-remove tags-location-ring 0))) |