[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico da51735c01 2/2: Set display variables in vertic
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vertico da51735c01 2/2: Set display variables in vertico--display-candidates |
Date: |
Sat, 1 Jan 2022 19:57:59 -0500 (EST) |
branch: externals/vertico
commit da51735c01fa38ab7ccc234ff2606fb7e272d8e2
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Set display variables in vertico--display-candidates
---
extensions/vertico-flat.el | 3 ++-
vertico.el | 9 ++++-----
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el
index c3fcb6f068..646f2161c0 100644
--- a/extensions/vertico-flat.el
+++ b/extensions/vertico-flat.el
@@ -65,7 +65,8 @@
(defun vertico-flat--display (candidates)
"Display CANDIDATES horizontally."
- (setq-local truncate-lines nil)
+ (setq-local truncate-lines nil
+ resize-mini-windows t)
(move-overlay vertico--candidates-ov (point-max) (point-max))
(overlay-put
vertico--candidates-ov 'after-string
diff --git a/vertico.el b/vertico.el
index 21eb040dc2..c66be521e6 100644
--- a/vertico.el
+++ b/vertico.el
@@ -555,7 +555,9 @@ 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) (* 0.8 (window-width))))
+ (setq-local truncate-lines (< (point) (* 0.8 (window-width)))
+ resize-mini-windows 'grow-only
+ max-mini-window-height 1.0)
(unless (frame-root-window-p (active-minibuffer-window))
(unless vertico-resize
(setq height (max height vertico-count)))
@@ -750,10 +752,7 @@ When the prefix argument is 0, the group order is reset."
vertico--candidates-ov (make-overlay (point-max) (point-max) nil t t)
vertico--count-ov (and vertico-count-format
(make-overlay (point-min) (point-min) nil t t)))
- (setq-local resize-mini-windows 'grow-only
- max-mini-window-height 1.0
- truncate-lines t
- completion-auto-help nil
+ (setq-local completion-auto-help nil
completion-show-inline-help nil)
(use-local-map vertico-map)
;; Use -90 to ensure that the exhibit hook runs early such that the