Function: minibuffer-depth-setup

minibuffer-depth-setup is a byte-compiled function defined in mb-depth.el.gz.

Signature

(minibuffer-depth-setup)

Documentation

Set up a minibuffer for minibuffer-depth-indicate-mode(var)/minibuffer-depth-indicate-mode(fun).

The prompt should already have been inserted.

Source Code

;; Defined in /usr/src/emacs/lisp/mb-depth.el.gz
;; This function goes on minibuffer-setup-hook
(defun minibuffer-depth-setup ()
  "Set up a minibuffer for `minibuffer-depth-indicate-mode'.
The prompt should already have been inserted."
  (let ((depth (minibuffer-depth)))
    (when (> depth 1)
      (let ((pos (point-min)))
        (setq minibuffer-depth-overlay (make-overlay pos (1+ pos))))
      (overlay-put minibuffer-depth-overlay 'before-string
                   (if minibuffer-depth-indicator-function
                       (funcall minibuffer-depth-indicator-function depth)
                     (concat (propertize (format "[%d]" depth)
                                         'face
                                         'minibuffer-depth-indicator)
                             " ")))
      (overlay-put minibuffer-depth-overlay 'evaporate t))))