ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/minibuf-eldef.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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]" (("([^(]+?\\(, 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) (#$ . 1147))
(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 (#$ . 2012)])
#@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 (#$ . 3163)])
(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)
#@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\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 (#$ . 4328) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@197 Hook run after entering or leaving `minibuffer-electric-default-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar minibuffer-electric-default-mode-hook nil (#$ . 5962))
(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)
Kontol Shell Bypass