diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 1f79b5eb..ef5683db 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -1133,6 +1133,22 @@ programming mode. (use-package ewmctrl :demand t) #+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)))) +#+END_SRC *** display-buffer-alist #+BEGIN_SRC emacs-lisp (defvar imalison:use-frames-only)