branch: externals/corfu
commit 6dfa2549e01ec8d66ddd9182e4d245eee00d83f6
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Fix corfu-show-location
---
corfu.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/corfu.el b/corfu.el
index b6fa04e..c3febe5 100644
--- a/corfu.el
+++ b/corfu.el
@@ -514,8 +514,8 @@ If `line-spacing/=nil' or in text-mode, the background
color is used instead.")
(loc (funcall fun (nth corfu--index corfu--candidates))))
(let ((buf (or (and (bufferp (car loc)) (car loc)) (find-file-noselect
(car loc) t))))
(corfu--restore-on-next-command)
+ (setq other-window-scroll-buffer buf)
(with-selected-window (display-buffer buf t)
- (setq other-window-scroll-buffer (current-buffer))
(save-restriction
(widen)
(if (bufferp (car loc))
