| Server IP : 217.160.0.212 / Your IP : 216.73.216.117 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\317\312\313\306\307&\210\320\321!\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 custom-declare-face minibuffer-depth-indicator ((t :inherit highlight)) "Face to use for minibuffer depth indicator." make-variable-buffer-local minibuffer-depth-overlay] 10)
#@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 (#$ . 919)])
(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)
#@878 Toggle Minibuffer Depth Indication mode.
This is a 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.
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 "\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\305\301!\203z \330\202{ \331\332#\210\210\333 \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 "Minibuffer-Depth-Indicate mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 1993) (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)