diff options
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index e572d3361f7..9c76c6b28cd 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1268,7 +1268,9 @@ if the file was newly read in, the value is the filename." | |||
| 1268 | (setq tail (cdr tail))) | 1268 | (setq tail (cdr tail))) |
| 1269 | ;; Use a copy so the next loop iteration will not modify the | 1269 | ;; Use a copy so the next loop iteration will not modify the |
| 1270 | ;; list later returned by (tags-table-files). | 1270 | ;; list later returned by (tags-table-files). |
| 1271 | (setcdr tail (copy-sequence (tags-table-files))))))) | 1271 | (if tail |
| 1272 | (setcdr tail (copy-sequence (tags-table-files))) | ||
| 1273 | (setq next-file-list (copy-sequence (tags-table-files))))))) | ||
| 1272 | (t | 1274 | (t |
| 1273 | ;; Initialize the list by evalling the argument. | 1275 | ;; Initialize the list by evalling the argument. |
| 1274 | (setq next-file-list (eval initialize)))) | 1276 | (setq next-file-list (eval initialize)))) |