[elpa] externals/vertico 8d76498 1/2: vertico-reverse: Fixes

[ELPA Syncer]

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

    vertico-reverse: Fixes
---
 extensions/vertico-reverse.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/extensions/vertico-reverse.el b/extensions/vertico-reverse.el
index 7dd9afe..18eeb2e 100644
--- a/extensions/vertico-reverse.el
+++ b/extensions/vertico-reverse.el
@@ -46,10 +46,10 @@
 (defun vertico-reverse--display (lines)
   "Display LINES in reverse."
   (move-overlay vertico--candidates-ov (point-min) (point-min))
-  (let ((string (concat
-                 (unless (eq vertico-resize t)
-                   (make-string (- vertico-count (length lines)) ?\n))
-                (apply #'concat (nreverse lines)))))
+  (setq lines (nreverse lines))
+  (unless (eq vertico-resize t)
+    (setq lines (nconc (make-list (max 0 (- vertico-count (length lines))) 
"\n") lines)))
+  (let ((string (apply #'concat lines)))
     (add-face-text-property 0 (length string) 'default 'append string)
     (overlay-put vertico--candidates-ov 'before-string string))
   (vertico--resize-window (length lines)))