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

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

[elpa] externals/vertico 4a7da56b02: vertico-buffer: Reformatting


From: ELPA Syncer
Subject: [elpa] externals/vertico 4a7da56b02: vertico-buffer: Reformatting
Date: Sun, 28 Jan 2024 12:59:03 -0500 (EST)

branch: externals/vertico
commit 4a7da56b02c6aefff8f6b4574a530a7cb54bc21a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-buffer: Reformatting
---
 extensions/vertico-buffer.el | 46 ++++++++++++++++++++++----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el
index b028970c62..7573b379ab 100644
--- a/extensions/vertico-buffer.el
+++ b/extensions/vertico-buffer.el
@@ -94,29 +94,29 @@
 
 (defun vertico-buffer--redisplay (win)
   "Redisplay window WIN."
-  (when-let ((mbwin (active-minibuffer-window)))
-    (when (eq (window-buffer mbwin) (current-buffer))
-      (unless (eq win mbwin)
-        (setq-local truncate-lines (< (window-point win)
-                                      (* 0.8 (window-width win))))
-        (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 3))
-      (when transient-mark-mode
-        (with-silent-modifications
-          (vertico--remove-face (point-min) (point-max) 'region)
-          (when (use-region-p)
-            (add-face-text-property
-             (max (minibuffer-prompt-end) (region-beginning))
-             (region-end) 'region))))
-      (let ((old cursor-in-non-selected-windows)
-            (new (and (eq (selected-window) mbwin)
-                      (if (memq cursor-type '(nil t)) 'box cursor-type))))
-        (unless (eq new old)
-          (setq-local cursor-in-non-selected-windows new)
-          (force-mode-line-update t))))))
+  (when-let ((mbwin (active-minibuffer-window))
+             ((eq (window-buffer mbwin) (current-buffer))))
+    (unless (eq win mbwin)
+      (setq-local truncate-lines (< (window-point win)
+                                    (* 0.8 (window-width win))))
+      (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 3))
+    (when transient-mark-mode
+      (with-silent-modifications
+        (vertico--remove-face (point-min) (point-max) 'region)
+        (when (use-region-p)
+          (add-face-text-property
+           (max (minibuffer-prompt-end) (region-beginning))
+           (region-end) 'region))))
+    (let ((old cursor-in-non-selected-windows)
+          (new (and (eq (selected-window) mbwin)
+                    (if (memq cursor-type '(nil t)) 'box cursor-type))))
+      (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]