diff options
author | Dmitry Gutov <dgutov@yandex.ru> | 2021-01-23 02:53:12 +0200 |
---|---|---|
committer | Dmitry Gutov <dgutov@yandex.ru> | 2021-01-23 02:53:12 +0200 |
commit | 5821dee0949b2913c07970d6e4b8bb8e8a35f036 (patch) | |
tree | d26f111c98b4eee3aae367ddd6b5f2a3ef322704 | |
parent | b9d0cdcacbd3da93b4ebfa10d778efb618881ccc (diff) | |
download | emacs-5821dee0949b2913c07970d6e4b8bb8e8a35f036.tar.gz |
Erase the buffer only after fetching the new contents
* lisp/progmodes/xref.el (xref-revert-buffer):
Erase the buffer only after fetching the new contents (bug#46042).
-rw-r--r-- | lisp/progmodes/xref.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index aecb30a0ad4..abaa0dc5e8b 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -967,10 +967,10 @@ Return an alist of the form ((FILENAME . (XREF ...)) ...)." (let ((inhibit-read-only t) (buffer-undo-list t)) (save-excursion - (erase-buffer) (condition-case err - (xref--insert-xrefs - (xref--analyze (funcall xref--fetcher))) + (let ((alist (xref--analyze (funcall xref--fetcher)))) + (erase-buffer) + (xref--insert-xrefs alist)) (user-error (insert (propertize |