branch: externals/vertico
commit 465127b8fd93712a98becce74dec9a2b9654c1ce
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
vertico-buffer: Ensure that the window hscroll column is 0
---
extensions/vertico-buffer.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el
index b79f6ab1e1..fedc2c08bb 100644
--- a/extensions/vertico-buffer.el
+++ b/extensions/vertico-buffer.el
@@ -74,18 +74,19 @@
"Redisplay window WIN."
(when-let (mbwin (active-minibuffer-window))
(when (eq (window-buffer mbwin) (current-buffer))
- (let ((old cursor-in-non-selected-windows)
- (new (and (eq (selected-window) mbwin) 'box)))
- (unless (eq new old)
- (setq-local cursor-in-non-selected-windows new)
- (force-mode-line-update t)))
(unless (eq win mbwin)
(setq-local truncate-lines (< (window-point win)
(* 0.8 (window-width win))))
- (set-window-point win (point)))
+ (set-window-point win (point))
+ (set-window-hscroll win 0))
(when vertico-buffer-hide-prompt
(window-resize mbwin (- (window-pixel-height mbwin)) nil nil
'pixelwise)
- (set-window-vscroll mbwin 100)))))
+ (set-window-vscroll mbwin 100))
+ (let ((old cursor-in-non-selected-windows)
+ (new (and (eq (selected-window) mbwin) 'box)))
+ (unless (eq new old)
+ (setq-local cursor-in-non-selected-windows new)
+ (force-mode-line-update t))))))
(defun vertico-buffer--setup ()
"Setup buffer display."
