From 3221c24383ba9a1fc3ed474f48e587afb4830dfd Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Mon, 7 Nov 2016 22:50:16 -0800 Subject: [PATCH] [Emacs] Override xref function AFTER xref loaded --- dotfiles/emacs.d/README.org | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 53b8b895..d89faa04 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -1140,19 +1140,21 @@ programming mode. #+END_SRC *** Handle xrefs annoying dedicated window garbage #+BEGIN_SRC emacs-lisp -(defun xref--show-pos-in-buf (pos buf select) - (let ((xref-buf (current-buffer)) - win) - (with-selected-window - (display-buffer buf) - (xref--goto-char pos) - (run-hooks 'xref-after-jump-hook) - (let ((buf (current-buffer))) - (setq win (selected-window)) - (with-current-buffer xref-buf - (setq-local other-window-scroll-buffer buf)))) - (when select - (select-window win)))) +(use-package xref + :config + (defun xref--show-pos-in-buf (pos buf select) + (let ((xref-buf (current-buffer)) + win) + (with-selected-window + (display-buffer buf) + (xref--goto-char pos) + (run-hooks 'xref-after-jump-hook) + (let ((buf (current-buffer))) + (setq win (selected-window)) + (with-current-buffer xref-buf + (setq-local other-window-scroll-buffer buf)))) + (when select + (select-window win))))) #+END_SRC *** display-buffer-alist #+BEGIN_SRC emacs-lisp