[elpa] externals/vertico 490cf0d789: vertico-buffer: Add recursion indicator

[ELPA Syncer]

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

    vertico-buffer: Add recursion indicator
---
 extensions/vertico-buffer.el | 44 +++++++++++++++++++++++---------------------
 1 file changed, 23 insertions(+), 21 deletions(-)

diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el
index 516985f735..e1c6b98501 100644
--- a/extensions/vertico-buffer.el
+++ b/extensions/vertico-buffer.el
@@ -112,27 +112,29 @@
     ;; NOTE: We cannot use a buffer-local minibuffer-exit-hook here.
     ;; The hook will not be called when abnormally exiting the minibuffer
     ;; from another buffer via `keyboard-escape-quit'.
-    (add-hook 'minibuffer-exit-hook sym))
-  (set-window-parameter vertico-buffer--window 'no-other-window t)
-  (set-window-parameter vertico-buffer--window 'no-delete-other-windows t)
-  (when vertico-buffer-hide-prompt
-    (overlay-put vertico--candidates-ov 'window vertico-buffer--window)
-    (when vertico--count-ov
-      (overlay-put vertico--count-ov 'window vertico-buffer--window))
-    (setq vertico-buffer--overlay (make-overlay (point-max) (point-max) nil t 
t))
-    (overlay-put vertico-buffer--overlay 'window (selected-window))
-    (overlay-put vertico-buffer--overlay 'priority 1000)
-    (overlay-put vertico-buffer--overlay 'before-string "\n\n"))
-  (setq-local show-trailing-whitespace nil
-              truncate-lines t
-              mode-line-format
-              (list (format " %s %s "
-                            (propertize "*Vertico*" 'face 'mode-line-buffer-id)
-                            (string-remove-suffix ": " (minibuffer-prompt)))
-                    '(:eval (vertico--format-count)))
-              cursor-in-non-selected-windows 'box
-              vertico-count (- (/ (window-pixel-height vertico-buffer--window)
-                                  (default-line-height)) 2)))
+    (add-hook 'minibuffer-exit-hook sym)
+    (set-window-parameter vertico-buffer--window 'no-other-window t)
+    (set-window-parameter vertico-buffer--window 'no-delete-other-windows t)
+    (when vertico-buffer-hide-prompt
+      (overlay-put vertico--candidates-ov 'window vertico-buffer--window)
+      (when vertico--count-ov
+        (overlay-put vertico--count-ov 'window vertico-buffer--window))
+      (setq vertico-buffer--overlay (make-overlay (point-max) (point-max) nil 
t t))
+      (overlay-put vertico-buffer--overlay 'window (selected-window))
+      (overlay-put vertico-buffer--overlay 'priority 1000)
+      (overlay-put vertico-buffer--overlay 'before-string "\n\n"))
+    (setq-local show-trailing-whitespace nil
+                truncate-lines t
+                mode-line-format
+                (list (format " %s %s "
+                              (propertize
+                               (format (if (< depth 2) "*Vertico*" 
"*Vertico[%s]*") depth)
+                               'face 'mode-line-buffer-id)
+                              (string-remove-suffix ": " (minibuffer-prompt)))
+                      '(:eval (vertico--format-count)))
+                cursor-in-non-selected-windows 'box
+                vertico-count (- (/ (window-pixel-height 
vertico-buffer--window)
+                                    (default-line-height)) 2))))
 
 ;;;###autoload
 (define-minor-mode vertico-buffer-mode