Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/mb-depth.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@144 If non-nil, function to set up the minibuffer depth indicator.
It is called with one argument, the minibuffer depth,
and must return a string.
(defvar minibuffer-depth-indicator-function nil (#$ . 409))
(make-variable-buffer-local 'minibuffer-depth-overlay)
#@105 Set up a minibuffer for `minibuffer-depth-indicate-mode'.
The prompt should already have been inserted.
(defalias 'minibuffer-depth-setup #[0 "\302 \211\303V\205-e\304
\211T\"\210\305\306	\203	!\202&\307\310\311\"\312\313##\210\305\314\315#\207" [minibuffer-depth-overlay minibuffer-depth-indicator-function minibuffer-depth 1 make-overlay overlay-put before-string propertize format "[%d]" face highlight evaporate t] 8 (#$ . 674)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable minibuffer-depth-indicate-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Minibuffer-Depth-Indicate mode is enabled.\nSee the `minibuffer-depth-indicate-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `minibuffer-depth-indicate-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group minibuffer :type boolean] 12)
#@552 Toggle Minibuffer Depth Indication mode.

If called interactively, enable Minibuffer-Depth-Indicate mode if ARG
is positive, and disable it if ARG is zero or negative.  If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.

Minibuffer Depth Indication mode is a global minor mode.  When
enabled, any recursive use of the minibuffer will show the
recursion depth in the minibuffer prompt.  This is only useful if
`enable-recursive-minibuffers' is non-nil.

(fn &optional ARG)
(defalias 'minibuffer-depth-indicate-mode #[256 "\301 \302\300\303=\203\304\300!?\202\305!\306V\"\210\203$\307\310\311\"\210\202)\312\310\311\"\210\313\314\304\300!\2035\315\2026\316\"\210\317\320!\203`\321\300!\210\301 \203N\211\301 \232\203`\322\323\324\304\300!\203[\325\202\\\326#\266\210\327 \210\304\300!\207" [minibuffer-depth-indicate-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook minibuffer-setup-hook minibuffer-depth-setup remove-hook run-hooks minibuffer-depth-indicate-mode-hook minibuffer-depth-indicate-mode-on-hook minibuffer-depth-indicate-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Minibuffer-Depth-Indicate mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 1719) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar minibuffer-depth-indicate-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\210\311\312!\207" [minibuffer-depth-indicate-mode-map minibuffer-depth-indicate-mode-hook variable-documentation put "Hook run after entering or leaving `minibuffer-depth-indicate-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode minibuffer-depth-indicate-mode nil boundp provide mb-depth] 6)