;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:43 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/mb-depth.el ;;; in Emacs version 23.4.1 ;;; 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 (#$ . 539)) (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 #[nil "\302 \303V\205+\304eeT\"\305\306 \203 \302 !\202$\307\310\311\302 \"\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] 7 (#$ . 804)]) #@311 Non-nil if Minibuffer-Depth-Indicate mode is enabled. See the command `minibuffer-depth-indicate-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `minibuffer-depth-indicate-mode'. (custom-declare-variable 'minibuffer-depth-indicate-mode 'nil '(#$ . 1252) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'minibuffer :type 'boolean) #@322 Toggle Minibuffer Depth Indication mode. When active, 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. With prefix argument ARG, turn on if positive, otherwise off. Returns non-nil if the new state is enabled. (defalias 'minibuffer-depth-indicate-mode #[(&optional arg) "\303  \304=\203\n?\202( \203\305 !\306V\202(\n\204\"\307\202(\310\311\302\"\210\312\211\2035\313\314\315\"\210\202:\316\314\315\"\210\317\320\n\203D\321\202E\322\"\210\323\324!\203j\325\302!\210\303 \203]\303 \232\203j\310\326\n\203g\327\202h\330\"\210)\331 \210\n\207" [#1=#:last-message arg minibuffer-depth-indicate-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 "Minibuffer-Depth-Indicate mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1746) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n#\210\305\306!\207" [minibuffer-depth-indicate-mode-map add-minor-mode minibuffer-depth-indicate-mode nil boundp provide mb-depth] 5)