- (setq minibuf-depth-overlay (make-overlay (point-min) (1+ (point-min))))
- (overlay-put minibuf-depth-overlay 'before-string
- (propertize (format "[%d]" (minibuffer-depth))
- 'face 'highlight))
- (overlay-put minibuf-depth-overlay 'evaporate t)))
+ (setq minibuffer-depth-overlay (make-overlay (point-min) (1+ (point-min))))
+ (overlay-put minibuffer-depth-overlay 'before-string
+ (if minibuffer-depth-indicator-function
+ (funcall minibuffer-depth-indicator-function (minibuffer-depth))
+ (propertize (format "[%d]" (minibuffer-depth)) 'face 'highlight)))
+ (overlay-put minibuffer-depth-overlay 'evaporate t)))