[elpa] externals/vertico 487fa022df 3/4: Minor cleanup

[ELPA Syncer]

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

    Minor cleanup
---
 extensions/vertico-multiform.el | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/extensions/vertico-multiform.el b/extensions/vertico-multiform.el
index ef76a78860..c2c7df6bd7 100644
--- a/extensions/vertico-multiform.el
+++ b/extensions/vertico-multiform.el
@@ -100,18 +100,14 @@ APP is the original function call."
                                   (if (fboundp v) v m)))
                               (or (and cat (alist-get cat 
vertico-multiform-category-modes))
                                   (alist-get this-command 
vertico-multiform-command-modes))))))
-            (cond
-             ((= depth (recursion-depth))
-              (mapc (lambda (f) (funcall f 1)) modes))
-             ((= (1+ depth) (recursion-depth))
-              (mapc (lambda (f) (funcall f -1)) modes)))))
+            (pcase (- (recursion-depth) depth)
+              (0 (mapc (lambda (f) (funcall f 1)) modes))
+              (1 (mapc (lambda (f) (funcall f -1)) modes)))))
     (fset exit
           (lambda ()
-            (cond
-             ((= depth (recursion-depth))
-              (mapc (lambda (f) (funcall f -1)) modes))
-             ((= (1+ depth) (recursion-depth))
-              (mapc (lambda (f) (funcall f 1)) modes)))))
+            (pcase (- (recursion-depth) depth)
+              (0 (mapc (lambda (f) (funcall f -1)) modes))
+              (1 (mapc (lambda (f) (funcall f 1)) modes)))))
     ;; NOTE: The setup/exit nesting is only correct for shallow recursions.
     ;; Hopefully nobody is crazy enough to work at recursion level 99.
     (add-hook 'minibuffer-setup-hook setup (+ -99 depth))