aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mb-depth.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/mb-depth.el b/lisp/mb-depth.el
index 06da0739d6b..ea2ea174b50 100644
--- a/lisp/mb-depth.el
+++ b/lisp/mb-depth.el
@@ -35,6 +35,10 @@
35It is called with one argument, the minibuffer depth, 35It is called with one argument, the minibuffer depth,
36and must return a string.") 36and must return a string.")
37 37
38(defface minibuffer-depth-indicator '((t :inherit highlight))
39 "Face to use for minibuffer depth indicator."
40 :version "28.1")
41
38;; An overlay covering the prompt. This is a buffer-local variable in 42;; An overlay covering the prompt. This is a buffer-local variable in
39;; each affected minibuffer. 43;; each affected minibuffer.
40;; 44;;
@@ -52,7 +56,10 @@ The prompt should already have been inserted."
52 (overlay-put minibuffer-depth-overlay 'before-string 56 (overlay-put minibuffer-depth-overlay 'before-string
53 (if minibuffer-depth-indicator-function 57 (if minibuffer-depth-indicator-function
54 (funcall minibuffer-depth-indicator-function depth) 58 (funcall minibuffer-depth-indicator-function depth)
55 (propertize (format "[%d]" depth) 'face 'highlight))) 59 (concat (propertize (format "[%d]" depth)
60 'face
61 'minibuffer-depth-indicator)
62 " ")))
56 (overlay-put minibuffer-depth-overlay 'evaporate t)))) 63 (overlay-put minibuffer-depth-overlay 'evaporate t))))
57 64
58;;;###autoload 65;;;###autoload