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

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

[elpa] externals/vertico f4756b15f7: vertico-multiform: Ensure that swit


From: ELPA Syncer
Subject: [elpa] externals/vertico f4756b15f7: vertico-multiform: Ensure that switching from unobtrusive to flat works
Date: Mon, 3 Jan 2022 09:57:48 -0500 (EST)

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

    vertico-multiform: Ensure that switching from unobtrusive to flat works
---
 extensions/vertico-multiform.el | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/extensions/vertico-multiform.el b/extensions/vertico-multiform.el
index 38687f0465..603ab1fc73 100644
--- a/extensions/vertico-multiform.el
+++ b/extensions/vertico-multiform.el
@@ -164,17 +164,14 @@ APP is the original function call."
     (funcall mode 1)
     (push mode (car vertico-multiform--stack))))
 
-(defun vertico--multiform--display-disable-all ()
-  "Disable all display modes."
-  (dolist (m '(vertico-flat-mode vertico-grid-mode
-               vertico-reverse-mode vertico-unobtrusive-mode))
-    (vertico-multiform--display-disable m)))
-
 (defun vertico-multiform--display-toggle (mode)
   "Toggle display MODE temporarily in minibuffer."
+  (dolist (m '(vertico-unobtrusive-mode vertico-flat-mode
+               vertico-grid-mode vertico-reverse-mode))
+    (unless (eq m mode)
+      (vertico-multiform--display-disable m)))
   (if (and (boundp mode) (symbol-value mode))
-      (vertico-multiform--display-disable mode)
-    (vertico--multiform--display-disable-all)
+      (vertico--multiform--display-disable-all)
     (vertico-multiform--display-enable mode)))
 
 (defmacro vertico-multiform--display-define-toggle (name)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]