diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-08-06 21:35:04 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-08-10 21:30:37 -0400 |
| commit | 179499cde921a28c82400b1674520da245b93bb9 (patch) | |
| tree | 4389c5b9ab18aa869b02aceb1c7b812291b64cfb /lisp/progmodes/etags.el | |
| parent | 81656add8117e8d1b7faab18b330d0706462b433 (diff) | |
| download | emacs-179499cde921a28c82400b1674520da245b93bb9.tar.gz | |
Respect buffer-local value of tags-table-list (Bug#27772)
* lisp/progmodes/etags.el (visit-tags-table-buffer): Save the current
buffer around the `tags-table-including' calls so as to get buffer
local variables from the right buffer later.
* test/lisp/progmodes/etags-tests.el (etags-visit-tags-table-buffer):
New test.
* test/lisp/progmodes/etags-tests.el (etags-tests--test-dir): New
constant.
(etags-bug-158, etags-bug-23164): Use it so that when running the test
interactively, setting EMACS_TEST_DIRECTORY is not needed.
Diffstat (limited to 'lisp/progmodes/etags.el')
| -rw-r--r-- | lisp/progmodes/etags.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 8d635cb6d4d..222dea1a2ac 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -599,12 +599,13 @@ Returns t if it visits a tags table, or nil if there are no more in the list." ;; be frobnicated, and CONT will be set non-nil so we don't ;; do it below. (and buffer-file-name - (or - ;; First check only tables already in buffers. - (tags-table-including buffer-file-name t) - ;; Since that didn't find any, now do the - ;; expensive version: reading new files. - (tags-table-including buffer-file-name nil))) + (save-current-buffer + (or + ;; First check only tables already in buffers. + (tags-table-including buffer-file-name t) + ;; Since that didn't find any, now do the + ;; expensive version: reading new files. + (tags-table-including buffer-file-name nil)))) ;; Fourth, use the user variable tags-file-name, if it is ;; not already in the current list. (and tags-file-name |