Current File : //usr/local/share/emacs/27.2/lisp/minibuf-eldef.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'minibuffer-default--in-prompt-regexps #[0 "\301\302\205 \303E\304B\207" [minibuffer-eldef-shorten-default "\\( (default\\(?: is\\)? \\(.*\\))\\):? \\'" 1 " [\\2]" (("([^(]+?\\(, default\\(?: is\\)? \\(.*\\)\\)):? \\'" 1) ("\\( \\[.*\\]\\):? *\\'" 1))] 3])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable minibuffer-eldef-shorten-default funcall function #[0 "\300\207" [nil] 1] "If non-nil, shorten \"(default ...)\" to \"[...]\" in minibuffer prompts." :set #[514 "\300\"\210\300\301\302 \"\207" [set-default minibuffer-default-in-prompt-regexps minibuffer-default--in-prompt-regexps] 5 "\n\n(fn SYMBOL VALUE)"] :type boolean :group minibuffer :version "24.3"] 12)
#@493 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 of the form (REGEXP MATCH-NUM &optional REWRITE),
where REGEXP should match the default part of the prompt,
MATCH-NUM is the subgroup that matched the actual default indicator,
and REWRITE, if present, is a string to pass to `replace-match' that
should be displayed in its place.
(defvar minibuffer-default-in-prompt-regexps (minibuffer-default--in-prompt-regexps) (#$ . 1145))
(defvar minibuf-eldef-frobbed-minibufs nil)
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [make-variable-buffer-local minibuf-eldef-initial-input 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 #[0 "\306\307\212\214eb\210`\310 }\210\203o \211A\262\242\262\311;\203$ \202& @\306\307#\2042 \306\262\202 \211\243:\203i \3128\203i \307\211\211A@\3128\313\224!\314\306\211\211%\210\315\224\225#\210\306\262eb\210*\266\202 \306\262\202 *\211\204| \316\317\320\307#\202\301 \211:\203\206 \211A\202\207 \321\262\211:\203\223 \211@\202\224 \211\262\322\224\225\"\307\323 dp\211\235\203\264 \210\202\272 \211B\210\324\317\320\306\307$)\207" [minibuffer-default-in-prompt-regexps inhibit-point-motion-hooks inhibit-read-only buffer-undo-list minibuf-eldef-overlay minibuf-eldef-showing-default-in-prompt nil t minibuffer-prompt-end re-search-forward 2 text-properties-at replace-match set-text-properties remove-hook post-command-hook minibuf-eldef-update-minibuffer 0 make-overlay minibuffer-contents-no-properties add-hook minibuf-eldef-initial-input minibuf-eldef-initial-buffer-length minibuf-eldef-frobbed-minibufs] 12 (#$ . 2010)])
#@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 #[0 "d U\205 \304 \n\230=?\205 ?\305 \306?#\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] 4 (#$ . 3161)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable minibuffer-electric-default-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Minibuffer-Electric-Default mode is enabled.\nSee the `minibuffer-electric-default-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-electric-default-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group minibuffer :type boolean] 12)
#@687 Toggle Minibuffer Electric Default mode.
If called interactively, enable Minibuffer-Electric-Default mode if
ARG is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
Minibuffer Electric Default mode is a global minor mode. When
enabled, 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.
(fn &optional ARG)
(defalias 'minibuffer-electric-default-mode #[256 "\302 \303\300\304=\203 \305\300!?\202 \306!\307V\"\210\203$ \310\311\312\"\210\202E \313\311\312\"\210 \211\203B \211@r\211q\210\313\314\315\316#\210)A\266\202\202* \210\317\320\321\305\300!\203Q \322\202R \323\"\210\324\325!\203| \326\300!\210\302 \203j \211\302 \232\203| \327\330\331\305\300!\203w \332\202x \333#\266\210\334 \210\305\300!\207" [minibuffer-electric-default-mode minibuf-eldef-frobbed-minibufs current-message set-default toggle default-value prefix-numeric-value 0 add-hook minibuffer-setup-hook minibuf-eldef-setup-minibuffer remove-hook post-command-hook minibuf-eldef-update-minibuffer t nil run-hooks minibuffer-electric-default-mode-hook minibuffer-electric-default-mode-on-hook minibuffer-electric-default-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Minibuffer-Electric-Default mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 4326) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar minibuffer-electric-default-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312!\207" [minibuffer-electric-default-mode-map minibuffer-electric-default-mode-hook variable-documentation put "Hook run after entering or leaving `minibuffer-electric-default-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode minibuffer-electric-default-mode nil boundp provide minibuf-eldef] 6)
Mini Shell