[elpa] externals/vertico ab619f4: Set line truncation depending on point position

[ELPA Syncer]

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

    Set line truncation depending on point position
---
 extensions/vertico-buffer.el | 3 ++-
 vertico.el                   | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el
index 72a2453..7eb392e 100644
--- a/extensions/vertico-buffer.el
+++ b/extensions/vertico-buffer.el
@@ -53,7 +53,8 @@
     (with-current-buffer vertico-buffer--buffer
       (erase-buffer)
       (insert (propertize (concat count prompt) 'face 'minibuffer-prompt)
-              content "\n" (string-join lines)))
+              content "\n" (string-join lines))
+      (setq-local truncate-lines (< (point) (* 0.8 (window-width)))))
     (let ((win (or (get-buffer-window vertico-buffer--buffer)
                    (display-buffer vertico-buffer--buffer 
vertico-buffer-action)))
           (pt (point)))
diff --git a/vertico.el b/vertico.el
index 9c8437d..ac6a163 100644
--- a/vertico.el
+++ b/vertico.el
@@ -502,7 +502,7 @@ The function is configured by BY, BSIZE, BINDEX, BPRED and 
PRED."
 
 (defun vertico--resize-window (height)
   "Resize active minibuffer window to HEIGHT."
-  (setq-local truncate-lines (< (point-max) (- (window-width) 4)))
+  (setq-local truncate-lines (< (point) (* 0.8 (window-width))))
   (unless (frame-root-window-p (active-minibuffer-window))
     (unless vertico-resize
       (setq height (max height vertico-count)))
@@ -713,7 +713,7 @@ When the prefix argument is 0, the group order is reset."
                                (make-overlay (point-min) (point-min) nil t t)))
   (setq-local resize-mini-windows 'grow-only
               max-mini-window-height 1.0
-              truncate-lines (< (point-max) (- (window-width) 4))
+              truncate-lines t
               completion-auto-help nil
               completion-show-inline-help nil)
   (use-local-map vertico-map)