emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vertico 465127b8fd: vertico-buffer: Ensure that the win


From: ELPA Syncer
Subject: [elpa] externals/vertico 465127b8fd: vertico-buffer: Ensure that the window hscroll column is 0
Date: Thu, 19 Jan 2023 07:58:27 -0500 (EST)

branch: externals/vertico
commit 465127b8fd93712a98becce74dec9a2b9654c1ce
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]