;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable minibuffer-depth-indicator-function funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, a function to produce the minibuffer depth indicator.\nThe function will be called with one argument, the minibuffer depth,\nand must return a string to display as indication of the minibuffer\ndepth.\nIf nil, display the depth as a number inside brackets, [NN], with\nthe `minibuffer-depth-indicator' face." :version "28.1" :type (choice (const :tag "Default indicator display, [NN]" nil) (function)) :group minibuffer] 10) (custom-declare-face 'minibuffer-depth-indicator '((t :inherit highlight)) "Face to use for minibuffer depth indicator." :group 'minibuffer :version "28.1") (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#\314P#\210\305\315\316#\207" [minibuffer-depth-overlay minibuffer-depth-indicator-function minibuffer-depth 1 make-overlay overlay-put before-string propertize format "[%d]" face minibuffer-depth-indicator " " evaporate t] 8 (#$ . 909)]) (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 :type boolean :group minibuffer] 12)#@884 Toggle Minibuffer Depth Indication mode. 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. This is a global minor mode. If called interactively, toggle the `Minibuffer-Depth-Indicate mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value \='minibuffer-depth-indicate-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'minibuffer-depth-indicate-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203D\313\314\315\"\210\202I\316\314\315\"\210\317\320\305\301!\203U\321\202V\322\"\210\323\324!\203\325\301!\210\302 \203n\211\302 \232\203\326\327\330\305\301!\203{\331\202|\332\333$\210\210\334 \210\305\301!\207" [global-minor-modes minibuffer-depth-indicate-mode current-message set-default toggle default-value 1 nil t boundp delq 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 "%s %sabled%s" "Minibuffer-Depth-Indicate mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 1982) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar minibuffer-depth-indicate-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\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.)" custom-type hook standard-value nil add-minor-mode minibuffer-depth-indicate-mode boundp provide mb-depth] 6)