[elpa] externals/vertico 396052f3f6 1/4: Add variable vertico-multiform--modes (Fix #331)

[ELPA Syncer]

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

    Add variable vertico-multiform--modes (Fix #331)
---
 extensions/vertico-multiform.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/extensions/vertico-multiform.el b/extensions/vertico-multiform.el
index c17e7d2206..eeae59c8b3 100644
--- a/extensions/vertico-multiform.el
+++ b/extensions/vertico-multiform.el
@@ -192,23 +192,24 @@ ARG can be nil, t, -1, 1 or toggle."
           (setcar vertico-multiform--stack (remove mode modes))
         (push not-mode (car vertico-multiform--stack))))))
 
-(defvar-local vertico-multiform--display-last nil)
+(defvar vertico-multiform--modes '(vertico-unobtrusive-mode vertico-flat-mode
+                                   vertico-grid-mode vertico-reverse-mode))
+(defvar-local vertico-multiform--last nil)
 
 (defun vertico-multiform-vertical (&optional mode)
   "Toggle to display MODE temporarily in minibuffer.
 MODE defaults to the vertical display."
   (interactive)
   (let (last)
-    (dolist (m '(vertico-unobtrusive-mode vertico-flat-mode
-                 vertico-grid-mode vertico-reverse-mode))
+    (dolist (m vertico-multiform--modes)
       (when (and (boundp m) (symbol-value m))
         (setq last m)
         (vertico-multiform--temporary-mode m -1)))
     (when (eq last mode)
-      (setq mode vertico-multiform--display-last))
+      (setq mode vertico-multiform--last))
     (when mode
       (vertico-multiform--temporary-mode mode 1))
-    (setq vertico-multiform--display-last last)))
+    (setq vertico-multiform--last last)))
 
 (put #'vertico-multiform-vertical 'completion-predicate #'vertico--command-p)