Commit 19503d5a authored by Glenn Morris's avatar Glenn Morris
Browse files

etags.el fix for bug#13412

* lisp/progmodes/etags.el (tags-table-check-computed-list):
Preserve point in tags buffer.
parent 085d34c4
2013-01-17 Glenn Morris <rgm@gnu.org>
* progmodes/etags.el (tags-table-check-computed-list):
Preserve point in tags buffer. (Bug#13412)
2013-01-16 Glenn Morris <rgm@gnu.org> 2013-01-16 Glenn Morris <rgm@gnu.org>
   
* emacs-lisp/lisp-mode.el (lisp-indent-function): Doc fix. * emacs-lisp/lisp-mode.el (lisp-indent-function): Doc fix.
......
...@@ -335,12 +335,15 @@ file the tag was in." ...@@ -335,12 +335,15 @@ file the tag was in."
(save-excursion (save-excursion
(tags-verify-table (buffer-file-name table-buffer)))) (tags-verify-table (buffer-file-name table-buffer))))
(with-current-buffer table-buffer (with-current-buffer table-buffer
(if (tags-included-tables) ;; Needed so long as etags-tags-included-tables
;; Insert the included tables into the list we ;; does not save-excursion.
;; are processing. (save-excursion
(setcdr tables (nconc (mapcar 'tags-expand-table-name (if (tags-included-tables)
(tags-included-tables)) ;; Insert the included tables into the list we
(cdr tables))))) ;; are processing.
(setcdr tables (nconc (mapcar 'tags-expand-table-name
(tags-included-tables))
(cdr tables))))))
;; This table is not in core yet. Insert a placeholder ;; This table is not in core yet. Insert a placeholder
;; saying we must read it into core to check for included ;; saying we must read it into core to check for included
;; tables before searching the next table in the list. ;; tables before searching the next table in the list.
...@@ -1547,6 +1550,7 @@ hits the start of file." ...@@ -1547,6 +1550,7 @@ hits the start of file."
files))) files)))
(nreverse files))) (nreverse files)))
;; FIXME? Should this save-excursion?
(defun etags-tags-included-tables () ; Doc string? (defun etags-tags-included-tables () ; Doc string?
(let ((files nil) (let ((files nil)
beg) beg)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment