diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2016-05-04 00:42:43 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2016-05-04 00:42:43 +0300 |
| commit | 6f82d8ef7d3aea2d05677d2792f89b8e6084d66a (patch) | |
| tree | a32e075c48b5a6842373f11a95916b39af8db6c1 | |
| parent | c68a09107c1f7459c626d38be5e0e991912e57ec (diff) | |
| download | emacs-6f82d8ef7d3aea2d05677d2792f89b8e6084d66a.tar.gz | |
Clear buffer-undo-list when showing xrefs
* lisp/progmodes/xref.el (xref--show-xref-buffer): Clear
buffer-undo-list and temporarily bind it to t while rendering the
buffer contents.
| -rw-r--r-- | lisp/progmodes/xref.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index b5632af13ab..540c7b0e925 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -687,7 +687,9 @@ Return an alist of the form ((FILENAME . (XREF ...)) ...)." (defun xref--show-xref-buffer (xrefs alist) (let ((xref-alist (xref--analyze xrefs))) (with-current-buffer (get-buffer-create xref-buffer-name) - (let ((inhibit-read-only t)) + (setq buffer-undo-list nil) + (let ((inhibit-read-only t) + (buffer-undo-list t)) (erase-buffer) (xref--insert-xrefs xref-alist) (xref--xref-buffer-mode) |