diff options
| author | Dmitry Gutov | 2019-06-10 03:10:34 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2019-06-10 03:11:59 +0300 |
| commit | 5f5555da87fdd767b4ece9ac4b63ebd25985487d (patch) | |
| tree | bf7d63742fd7a8e2dbe3e3a74667218866b20167 | |
| parent | 4503310cac33da4da74fd6376244da82c7134432 (diff) | |
| download | emacs-5f5555da87fdd767b4ece9ac4b63ebd25985487d.tar.gz emacs-5f5555da87fdd767b4ece9ac4b63ebd25985487d.zip | |
Unbreak saving xref--original-window, etc
* lisp/progmodes/xref.el (xref--show-xref-buffer)
(xref--show-defs-buffer-at-bottom): Move major mode calls earlier.
So that local variable values are not lost.
| -rw-r--r-- | lisp/progmodes/xref.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index 24e2bd04e76..e88f30ca358 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el | |||
| @@ -798,8 +798,8 @@ Return an alist of the form ((FILENAME . (XREF ...)) ...)." | |||
| 798 | (funcall fetcher))) | 798 | (funcall fetcher))) |
| 799 | (xref-alist (xref--analyze xrefs))) | 799 | (xref-alist (xref--analyze xrefs))) |
| 800 | (with-current-buffer (get-buffer-create xref-buffer-name) | 800 | (with-current-buffer (get-buffer-create xref-buffer-name) |
| 801 | (xref--show-common-initialize xref-alist fetcher alist) | ||
| 802 | (xref--xref-buffer-mode) | 801 | (xref--xref-buffer-mode) |
| 802 | (xref--show-common-initialize xref-alist fetcher alist) | ||
| 803 | (pop-to-buffer (current-buffer)) | 803 | (pop-to-buffer (current-buffer)) |
| 804 | (current-buffer)))) | 804 | (current-buffer)))) |
| 805 | 805 | ||
| @@ -854,8 +854,8 @@ local keymap that binds `RET' to `xref-quit-and-goto-xref'." | |||
| 854 | (assoc-default 'display-action alist))) | 854 | (assoc-default 'display-action alist))) |
| 855 | (t | 855 | (t |
| 856 | (with-current-buffer (get-buffer-create xref-buffer-name) | 856 | (with-current-buffer (get-buffer-create xref-buffer-name) |
| 857 | (xref--show-common-initialize (xref--analyze xrefs) fetcher alist) | ||
| 858 | (xref--transient-buffer-mode) | 857 | (xref--transient-buffer-mode) |
| 858 | (xref--show-common-initialize (xref--analyze xrefs) fetcher alist) | ||
| 859 | (pop-to-buffer (current-buffer) | 859 | (pop-to-buffer (current-buffer) |
| 860 | '(display-buffer-in-direction . ((direction . below)))) | 860 | '(display-buffer-in-direction . ((direction . below)))) |
| 861 | (current-buffer)))))) | 861 | (current-buffer)))))) |