mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Unbreak saving xref--original-window, etc

Browse source 
* 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.
This commit is contained in:
Dmitry Gutov 2019-06-10 03:10:34 +03:00
parent 4503310cac
commit 5f5555da87
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/xref.el
View file

@ -798,8 +798,8 @@ Return an alist of the form ((FILENAME . (XREF ...)) ...)."
(funcall fetcher)))
(xref-alist (xref--analyze xrefs)))
(with-current-buffer (get-buffer-create xref-buffer-name)
(xref--show-common-initialize xref-alist fetcher alist)
(xref--xref-buffer-mode)
(xref--show-common-initialize xref-alist fetcher alist)
(pop-to-buffer (current-buffer))
(current-buffer))))
@ -854,8 +854,8 @@ local keymap that binds `RET' to `xref-quit-and-goto-xref'."
(assoc-default 'display-action alist)))
(t
(with-current-buffer (get-buffer-create xref-buffer-name)
(xref--show-common-initialize (xref--analyze xrefs) fetcher alist)
(xref--transient-buffer-mode)
(xref--show-common-initialize (xref--analyze xrefs) fetcher alist)
(pop-to-buffer (current-buffer)
'(display-buffer-in-direction . ((direction . below))))
(current-buffer))))))