| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/minibuf-eldef.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:25 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/minibuf-eldef.el
;;; in Emacs version 24.3.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'minibuffer-default--in-prompt-regexps #[0 "\301\302\205 \303E\304B\207" [minibuffer-eldef-shorten-default "\\( (default\\(?: is\\)? \\(.*\\))\\):? \\'" 1 " [\\2]" (("\\( \\[.*\\]\\):? *\\'" 1))] 3 "\n\n(fn)"])
(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 "\n\n(fn)"] "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) (#$ . 1258))
(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)
#@131 Set up a minibuffer for `minibuffer-electric-default-mode'.
The prompt and initial input should already have been inserted.
(fn)
(defalias 'minibuf-eldef-setup-minibuffer #[0 "\306\307\212\214eb\210`\310 }\210\203o \211A\262@\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\261 \211:\203\206 \211A\202\207 \321\262\211:\203\223 \211@\202\224 \211\262\322\224\225\"\307\323 d\324\325p\"\210\326\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-to-list minibuf-eldef-frobbed-minibufs add-hook minibuf-eldef-initial-input minibuf-eldef-initial-buffer-length] 12 (#$ . 2123)])
#@265 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'.
(fn)
(defalias 'minibuf-eldef-update-minibuffer #[0 "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 (#$ . 3256)])
(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 "\n\n(fn)"] "Non-nil if Minibuffer-Electric-Default mode is enabled.\nSee the command `minibuffer-electric-default-mode' for 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)
#@605 Toggle Minibuffer Electric Default mode.
With a prefix argument ARG, enable Minibuffer Electric Default
mode if ARG is positive, and disable it otherwise. If called
from Lisp, enable the mode if ARG is omitted or nil.
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=\203
?\202 \304!\305V\211\203 \306\307\310\"\210\202@ \311\307\310\"\210 \211\203= \211@r\211q\210\311\312\313\314#\210)A\266\202\202% \210\315\316\317\203J \320\202K \321\"\210\322\323!\203p \324\300!\210\302 \203c \211\302 \232\203p \325\326\203m \327\202n \330\"\210\210\331 \210\207" [minibuffer-electric-default-mode minibuf-eldef-frobbed-minibufs current-message toggle 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" "en" "dis" force-mode-line-update] 9 (#$ . 4520) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306!\207" [minibuffer-electric-default-mode-map add-minor-mode minibuffer-electric-default-mode nil boundp provide minibuf-eldef] 6)