;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:58 2007 ;;; from file /home/cyd/emacs/lisp/minibuf-eldef.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`minibuf-eldef.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@442 *A list of regexps matching the parts of minibuffer prompts showing defaults. When `minibuffer-electric-default-mode' is active, these regexps are used to identify the portions of prompts to elide. Each entry is either a string, which should be a regexp matching the default portion of the prompt, or a cons cell, who's car is a regexp matching the default part of the prompt, and who's cdr indicates the regexp subexpression that matched. (defvar minibuffer-default-in-prompt-regexps '(("\\( (default\\>.*)\\):? \\'" . 1) ("\\( \\[.*\\]\\):? *\\'" . 1)) (#$ . -574)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\207" [current-load-list minibuf-eldef-frobbed-minibufs default-boundp set-default nil make-variable-buffer-local minibuf-eldef-initial-input minibuf-eldef-initial-buffer-length minibuf-eldef-showing-default-in-prompt minibuf-eldef-overlay] 3) #@125 Set up a minibuffer for `minibuffer-electric-default-mode'. The prompt and initial input should already have been inserted. (defalias 'minibuf-eldef-setup-minibuffer #[nil "\306\307\212\214eb\210`\310 }\210 \2037 \211A@\311\n;\203$\n\202&\n@\306\307#\2032\306\211\202\306\202*\n\204D\312\313\314\307#\202k\n:\203N\nA\202O\315\316\n\224\n\225\"\307\317 d\320\321p\"\210\322\313\314\306\307$+\207" [minibuffer-default-in-prompt-regexps inhibit-point-motion-hooks match regexps minibuf-eldef-overlay minibuf-eldef-showing-default-in-prompt nil t minibuffer-prompt-end re-search-forward remove-hook post-command-hook minibuf-eldef-update-minibuffer 0 make-overlay minibuffer-contents-no-properties add-to-list minibuf-eldef-frobbed-minibufs add-hook minibuf-eldef-initial-input minibuf-eldef-initial-buffer-length] 6 (#$ . 1494)]) #@259 Update a minibuffer's prompt to include a default only when applicable. This is intended to be used as a minibuffer post-command-hook for `minibuffer-electric-default-mode'; the minibuffer should have already been set up by `minibuf-eldef-setup-minibuffer'. (defalias 'minibuf-eldef-update-minibuffer #[nil "d U\205 \304 \n\230=?\205.?\211\203#\305 \306\307#\210\305 \310\307#\207\305 \306\311#\210\305 \310\311#\207" [minibuf-eldef-showing-default-in-prompt minibuf-eldef-initial-buffer-length minibuf-eldef-initial-input minibuf-eldef-overlay minibuffer-contents-no-properties overlay-put invisible nil intangible t] 5 (#$ . 2355)]) #@317 Non-nil if Minibuffer-Electric-Default mode is enabled. See the command `minibuffer-electric-default-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-electric-default-mode'. (custom-declare-variable 'minibuffer-electric-default-mode 'nil '(#$ . 3003) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'minibuffer :type 'boolean) #@455 Toggle Minibuffer Electric Default mode. When active, minibuffer prompts that show a default value only show the default when it's applicable -- that is, when hitting RET would yield the default value. If the user modifies the input such that hitting RET would enter a non-default value, the prompt is modified to remove the default indication. With prefix argument ARG, turn on if positive, otherwise off. Returns non-nil if the new state is enabled. (defalias 'minibuffer-electric-default-mode #[(&optional arg) "\305=\203 ?\202%\203\306!\307V\202% \204\310\202%\311\312\301\"\210\313\211\2032\314\315\316\"\210\202W\317\315\316\"\210\n\313\211\203T\f@r q\210\317\320\321\310#\210)\fA\211\204?*\313\322\323 \203a\324\202b\325\"\210\326 \203z\327\301!\210\311\330 \203w\331\202x\332\"\210\333 \210 \207" [arg minibuffer-electric-default-mode minibuf-eldef-frobbed-minibufs minibuf #1=#:--cl-dolist-temp-- toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil add-hook minibuffer-setup-hook minibuf-eldef-setup-minibuffer remove-hook post-command-hook minibuf-eldef-update-minibuffer run-hooks minibuffer-electric-default-mode-hook minibuffer-electric-default-mode-on-hook minibuffer-electric-default-mode-off-hook called-interactively-p customize-mark-as-set "Minibuffer-Electric-Default mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 3505) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\210\305\306!\207" [add-minor-mode minibuffer-electric-default-mode nil boundp minibuffer-electric-default-mode-map provide minibuf-eldef] 5)