diff options
| author | Richard M. Stallman | 1995-10-30 19:25:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-10-30 19:25:04 +0000 |
| commit | 9993b5610cd7c82669de43fbad0bc3d022450b77 (patch) | |
| tree | cbc1bbd6e9c009495ffb308191e1b8248cda590d | |
| parent | 3fd4909e45e7e7a487b72dd67b63bf2055ed72c2 (diff) | |
| download | emacs-9993b5610cd7c82669de43fbad0bc3d022450b77.tar.gz emacs-9993b5610cd7c82669de43fbad0bc3d022450b77.zip | |
(select-tags-table): Don't modify the value of tags-table-list.
| -rw-r--r-- | lisp/progmodes/etags.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 8650a995dd4..2b4a876e494 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1461,7 +1461,7 @@ see the doc of that variable if you want to add names to the list." | |||
| 1461 | (prin1 tags-file-name (current-buffer)) ;invisible | 1461 | (prin1 tags-file-name (current-buffer)) ;invisible |
| 1462 | (insert "\n"))) | 1462 | (insert "\n"))) |
| 1463 | (setq set-list (delete tags-file-name | 1463 | (setq set-list (delete tags-file-name |
| 1464 | (apply 'nconc (cons tags-table-list | 1464 | (apply 'nconc (cons (copy-sequence tags-table-list) |
| 1465 | (mapcar 'copy-sequence | 1465 | (mapcar 'copy-sequence |
| 1466 | tags-table-set-list))))) | 1466 | tags-table-set-list))))) |
| 1467 | (while set-list | 1467 | (while set-list |