;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:14 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/minibuf-eldef.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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)) (#$ . -629)) (byte-code "\301B\302\301!\204\f\303\304B\305\304!\210\306B\305\306!\210\307B\305\307!\210\310B\305\310!\207" [current-load-list minibuf-eldef-frobbed-minibufs boundp nil minibuf-eldef-initial-input make-variable-buffer-local minibuf-eldef-initial-buffer-length minibuf-eldef-showing-default-in-prompt minibuf-eldef-overlay] 2) #@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 "\306e!\307\310\212\214eb\210`\311 }\210 \203; \211A@\312\n;\203(\n\202*\n@\307\310#\2036\307\211\202\307\202*\n\204H\313\314\315\310#\202q\n:\203R\nA\202S\316\317\n\224\n\225\"\310\306d!d\320\321p\"\210\322\314\315\307\310$,\207" [minibuffer-default-in-prompt-regexps inhibit-point-motion-hooks match regexps prompt minibuf-eldef-overlay field-string-no-properties nil t field-end re-search-forward remove-hook post-command-hook minibuf-eldef-update-minibuffer 0 make-overlay add-to-list minibuf-eldef-frobbed-minibufs add-hook minibuf-eldef-showing-default-in-prompt minibuf-eldef-initial-input minibuf-eldef-initial-buffer-length] 6 (#$ . 1514)]) #@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\f\304d!\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 field-string-no-properties overlay-put invisible nil intangible t] 5 (#$ . 2372)]) #@275 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; use either \[customize] or the function `minibuffer-electric-default-mode'. (custom-declare-variable 'minibuffer-electric-default-mode 'nil '(#$ . 3015) :set (lambda (symbol value) (funcall symbol (or value 0))) :initialize 'custom-initialize-default :group 'minibuffer :type 'boolean :require 'minibuf-eldef) #@454 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) "\203\f\305!\306V\202 ?\211\203\307\310\311\"\210\202@\312\310\311\"\210\n\313\211\203=\f@r q\210\312\314\315\316#\210)\fA\211\204(*\313\317\320 \203J\321\202K\322\"\210t\203^\323\324 \203[\325\202\\\326\"\210\327 \210 \207" [arg minibuffer-electric-default-mode minibuf-eldef-frobbed-minibufs minibuf #1=#:--dolist-temp--97271 prefix-numeric-value 0 add-hook minibuffer-setup-hook minibuf-eldef-setup-minibuffer remove-hook nil post-command-hook minibuf-eldef-update-minibuffer t run-hooks minibuffer-electric-default-mode-hook minibuffer-electric-default-mode-on-hook minibuffer-electric-default-mode-off-hook message "Minibuffer-Electric-Default mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 3530) nil]) #@69 Hook run at the end of function `minibuffer-electric-default-mode'. (custom-declare-variable 'minibuffer-electric-default-mode-hook 'nil '(#$ . 4790) :group 'minibuffer :type 'hook) (byte-code "\303\301\304\305\306!\205 \306J#\210\203 \203\n\204\307\310\"\210\311\312!\207" [load-file-name minibuffer-electric-default-mode purify-flag add-minor-mode nil boundp minibuffer-electric-default-mode-map eval-after-load (minibuffer-electric-default-mode 1) provide minibuf-eldef] 5)