aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2019-06-10 03:10:34 +0300
committerDmitry Gutov2019-06-10 03:11:59 +0300
commit5f5555da87fdd767b4ece9ac4b63ebd25985487d (patch)
treebf7d63742fd7a8e2dbe3e3a74667218866b20167
parent4503310cac33da4da74fd6376244da82c7134432 (diff)
downloademacs-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.el4
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))))))