ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/electric.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'Electric-command-loop #[(return-tag &optional prompt inhibit-quitting loop-function loop-state) "\306\211 \307 !\203 \n;\204 \n\310=?\205 \311\312\n!\211\211GSH!\313
\314\"\211\"#\306#\204A $\315=\203e \306\211%&\316 G\317U\204S \204c \320 \210\321\322!\210\323'\306\"\210\202e \306&(
\203=\3241
\3251\360 \3261\322 \3271\263 \330
!\210\")#\306#\204\224 $\315=\205\254 \306% \204\252 \320 \210\321\322!\210\323'\306\"\202\254 \320 0000\2029000 *+\203\304 *\211\202\316 \320 \210\321\331!\210\332\333!)\202900 *+\203\342 *\211\202\354 \320 \210\321\334!\210\332\333!)\20290 *+\203\377 *\211\202 \320 \210\321\335!\210\332\333!)\2029 *+\203*\211\2028\320 \210\321\336*@\337=\203/*A@\2023\340*!\"\210\332\333!)\210\202@\320 \210+\203 +,\f\"\210\202 " [inhibit-quitting prompt prompt-string inhibit-quit err cmd nil functionp noprompt "->" read-key-sequence key-binding t 7 this-command-keys 1 ding message "Quit" throw (error) (end-of-buffer) (beginning-of-buffer) (buffer-read-only) command-execute "Buffer is read-only" sit-for 2 "Beginning of Buffer" "End of Buffer" "Error: %s" error prin1-to-string last-command-event this-command quit-flag last-input-event unread-command-events prefix-arg return-tag current-prefix-arg last-command conditions loop-function loop-state] 5])
(defalias 'Electric-pop-up-window #[(buffer &optional max-height) "\306!\206 \307 \310!\311\312!\312 \313 \n\204 \314\315\"\202Y \316 !\n=\203/ \317 !\210\202A \203= \320!\210\307 \202A \321\n!\210eb\210d\322 \312\"U\204X \323 \313\211\211\312&\210 -\207" [buffer win buf one-window pop-up-windows pop-up-frames get-buffer-window selected-window get-buffer one-window-p t nil error "Buffer %s does not exist" window-buffer select-window pop-to-buffer switch-to-buffer window-end fit-window-to-buffer max-height] 7])
(custom-declare-group 'electricity nil "Electric behavior for self inserting keys." :group 'editing)
#@96 Return the position after the char we just inserted.
Returns nil when we can't find this char.
(defalias 'electric--after-char-pos #[nil "``Sf =\204( \212\302\303x\210``Sf =\206$ \304\303x\210``Sf =)\205) )\207" [pos last-command-event " " nil " \n "] 2 (#$ . 2393)])
#@171 Ensure order of electric functions in `post-self-insertion-hook'.
Hooks in this variable interact in non-trivial ways, so a
relative order must be maintained within it.
(defalias 'electric--sort-post-self-insertion-hook #[nil "\300\301\302\303\301!\304\"\"\207" [set-default post-self-insert-hook sort default-value #[(fn1 fn2) "\302N\206 \303 \302N\206 \303W\207" [fn1 fn2 priority 0] 3]] 5 (#$ . 2673)])
#@55 Characters that should cause automatic reindentation.
(defvar electric-indent-chars '(10) (#$ . 3089))
#@267 Special hook run to decide whether to auto-indent.
Each function is called with one argument (the inserted char), with
point right after that char, and it should return t to cause indentation,
`no-indent' to prevent indentation or nil to let other functions decide.
(defvar electric-indent-functions nil (#$ . 3199))
#@185 If non-nil, reindentation is not appropriate for this buffer.
This should be set by major modes such as `python-mode' since
Python does not lend itself to fully automatic indentation.
(defvar electric-indent-inhibit nil (#$ . 3523))
(make-variable-buffer-local 'electric-indent-inhibit)
#@265 List of indent functions that can't reindent.
If `line-indent-function' is one of those, then `electric-indent-mode' will
not try to reindent lines. It is normally better to make the major
mode set `electric-indent-inhibit', but this can be used as a workaround.
(defvar electric-indent-functions-without-reindent '(indent-relative indent-to-left-margin indent-relative-maybe py-indent-line coffee-indent-line org-indent-line yaml-indent-line haskell-indentation-indent-line haskell-indent-cycle haskell-simple-indent yaml-indent-line) (#$ . 3817))
#@226 Function that `electric-indent-mode' adds to `post-self-insert-hook'.
This indents if the hook `electric-indent-functions' returns non-nil,
or if a member of `electric-indent-chars' was typed; but not in a string
or comment.
(defalias 'electric-indent-post-self-insert-function #[nil "\306 \205\203 \n\307>\203 \212\310\306x\210n)?\205\203 \311 \211\205\203 \212b\210\312\313\n\"\206, \n >\211 \314>\206> \f\315=?\205> \316\317 8*?\205\203 \320 X\211 \203u \321S\322\" \212>\204h \204h b\210\323 \210b\210l\203t \324\322!\210*\205|
??\205\202 \323 ))\207" [pos electric-indent-mode last-command-event electric-indent-chars act at-newline nil (32 9) " " electric--after-char-pos run-hook-with-args-until-success electric-indent-functions (nil no-indent) do-indent 8 syntax-ppss line-beginning-position copy-marker t indent-according-to-mode delete-horizontal-space before indent-line-function electric-indent-functions-without-reindent electric-indent-inhibit] 4 (#$ . 4374)])
(put 'electric-indent-post-self-insert-function 'priority 60)
#@54 Insert just a newline, without any auto-indentation.
(defalias 'electric-indent-just-newline #[(arg) "\302\303 \304\")\207" [electric-indent-mode arg nil newline interactive] 3 (#$ . 5439) "*P"])
(define-key global-map "\n" 'electric-newline-and-maybe-indent)
#@392 Insert a newline.
If `electric-indent-mode' is enabled, that's that, but if it
is *disabled* then additionally indent according to major mode.
Indentation is done using the value of `indent-line-function'.
In programming language modes, this is the same as TAB.
In some text modes, where TAB inserts a tab, this command indents to the
column specified by the function `current-left-margin'.
(defalias 'electric-newline-and-maybe-indent #[nil "\203 \301\302!\207\303 \207" [electric-indent-mode electric-indent-just-newline nil newline-and-indent] 2 (#$ . 5707) "*"])
#@281 Non-nil if Electric-Indent mode is enabled.
See the `electric-indent-mode' command
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 `electric-indent-mode'.
(custom-declare-variable 'electric-indent-mode t '(#$ . 6283) :set 'custom-set-minor-mode :initialize 'custom-initialize-delay :group 'electricity :type 'boolean)
#@479 Toggle on-the-fly reindentation (Electric Indent mode).
With a prefix argument ARG, enable Electric Indent mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
When enabled, this reindents whenever the hook `electric-indent-functions'
returns non-nil, or if you insert a character from `electric-indent-chars'.
This is a global minor mode. To toggle the mode in a single buffer,
use `electric-indent-local-mode'.
(defalias 'electric-indent-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\204P \3142E \315 \316\211 \205C \f@r q\210\n\203: \317\314\320\"\210)\fA\211\204* \316*0\204X \321\322\323\"\210\202X \324\322\323\"\210\325 \210\326\327\311\302!\203d \330\202e \331\"\210\332\333!\203\220 \334\302!\210\306 \203} \306 \232\203\220 \335 \336\337\311\302!\203\213 \340\202\214 \341
#\210))\342 \210\311\302!\207" [#1=#:last-message arg electric-indent-mode buf --dolist-tail-- local current-message set-default toggle default-value prefix-numeric-value 0 found buffer-list nil throw t remove-hook post-self-insert-hook electric-indent-post-self-insert-function add-hook electric--sort-post-self-insertion-hook run-hooks electric-indent-mode-hook electric-indent-mode-on-hook electric-indent-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Electric-Indent mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 6733) (list (or current-prefix-arg 'toggle))])
#@185 Hook run after entering or leaving `electric-indent-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar electric-indent-mode-hook nil (#$ . 8238))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [electric-indent-mode-map add-minor-mode electric-indent-mode nil boundp] 6)
#@52 Toggle `electric-indent-mode' only in this buffer.
(defalias 'electric-indent-local-mode #[(&optional arg) "\306 p\n\307=\203 \310\304p\"?\202 \311\n!\312Vr q\210\313\304!\210 +\f\314\304!=\2033 \315\304!\210\202B \314\304!\204B \304\316!\210\317\304\320\"\210\321\322\310\304p\"\203O \323\202P \324\"\210\325\326!\203x \306 \203d \306 \232\203x \327 \330\331\310\304p\"\203s \332\202t \333
#\210))\334 \210\310\304p\"\207" [#1=#:last-message #2=#:v arg #3=#:v electric-indent-mode local current-message toggle buffer-local-value prefix-numeric-value 0 make-local-variable default-value kill-local-variable 1 set-default nil run-hooks electric-indent-local-mode-hook electric-indent-local-mode-on-hook electric-indent-local-mode-off-hook called-interactively-p any " in current buffer" message "Electric-Indent-Local mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 8612) (list (or current-prefix-arg 'toggle))])
#@191 Hook run after entering or leaving `electric-indent-local-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar electric-indent-local-mode-hook nil (#$ . 9549))
#@484 List of rules saying where to automatically insert newlines.
Each rule has the form (CHAR . WHERE) where CHAR is the char that
was just inserted and WHERE specifies where to insert newlines
and can be: nil, `before', `after', `around', `after-stay', or a
function of no arguments that returns one of those symbols.
The symbols specify where in relation to CHAR the newline
character(s) should be inserted. `after-stay' means insert a
newline after CHAR but stay in the same place.
(defvar electric-layout-rules nil (#$ . 9803))
(defalias 'electric-layout-post-self-insert-function #[nil " \236A\306\n\205\213 \307 \211\205\213 \310\212\311 !)8?\205\213 \312 \313\n!\203* \n \202+ \n \314
\f\315=?\"\210 b\210\f\316=\203P Sb\210\317\306x\210n\204\210 \320c\210\202\210 \f\321=\203\\ \320c\210\202\210 \f\315=\203n \212\306\322\323\324\"\210*\202\210 \f\325=\203\210 \212 Sb\210\317\306x\210n\204\204 \320c\210)\320c\210
b**\207" [last-command-event electric-layout-rules rule pos sym end nil electric--after-char-pos 8 syntax-ppss point-marker functionp set-marker-insertion-type after-stay before " " "\n" after newline 1 t around] 4])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315\316\317& \207" [put electric-layout-post-self-insert-function priority 40 custom-declare-variable electric-layout-mode nil "Non-nil if Electric-Layout mode is enabled.\nSee the `electric-layout-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 `electric-layout-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group electricity :type boolean] 12)
#@291 Automatically insert newlines around some chars.
With a prefix argument ARG, enable Electric Layout mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
The variable `electric-layout-rules' says when and how to insert newlines.
(defalias 'electric-layout-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203( \312\313\314\"\210\315 \210\202- \316\313\314\"\210\317\320\307\302!\2039 \321\202: \322\"\210\323\324!\203e \325\302!\210\304 \203R \304 \232\203e \326\327\330\307\302!\203` \331\202a \332 #\210))\333 \210\307\302!\207" [#1=#:last-message arg electric-layout-mode local current-message set-default toggle default-value prefix-numeric-value 0 add-hook post-self-insert-hook electric-layout-post-self-insert-function electric--sort-post-self-insertion-hook remove-hook run-hooks electric-layout-mode-hook electric-layout-mode-on-hook electric-layout-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Electric-Layout mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 11543) (list (or current-prefix-arg 'toggle))])
#@185 Hook run after entering or leaving `electric-layout-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar electric-layout-mode-hook nil (#$ . 12707))
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306\307\310\311\312\313\314\315\316\317\320& \210\305\321\303\322\311\312\313\314\315\316\317\320& \210\305\323\307\324\311\312\313\314\315\316\317\320& \207" [electric-layout-mode-map add-minor-mode electric-layout-mode nil boundp custom-declare-variable electric-quote-comment t "Non-nil means to use electric quoting in program comments." :version "25.1" :type boolean :safe booleanp :group electricity electric-quote-string "Non-nil means to use electric quoting in program strings." electric-quote-paragraph "Non-nil means to use electric quoting in text paragraphs."] 12)
#@113 Function that `electric-quote-mode' adds to `post-self-insert-hook'.
This requotes when a quoting key is typed.
(defalias 'electric-quote-post-self-insert-function #[nil "\205\322 \306>\205\322 \n\203M \203M \f\204
\205d \307 \"\310\"8\211 #\205I \f\2033 \311\"8\204>
\205I \312\"8\205I #\310\212\307`S!)8=*\202d $\205d \313\314!\205d \315=\206d \212\316 \210`)\211 %\205\321 \212 \315=\203\254 \317\320`\321Z\322#\203\231 \323\324!\210&\203\223 \325'\236\243\326f=\203\223 \327\330!\210\331\211\202\320 \317\332`S\322#\205\320 \323\333!\210\325\211\202\320 \317\334`\321Z\322#\203\300 \323\335!\210\336\211\202\320 \317\337`S\322#\205\320 \323\340!\210\341\211))\207" [electric-quote-mode last-command-event comment-start comment-use-syntax electric-quote-comment electric-quote-string (39 96) syntax-ppss 8 4 3 derived-mode-p text-mode 96 backward-paragraph search-backward "‘`" 2 t replace-match "“" 8216 nil delete-char 1 8220 "`" "‘" "’'" "”" 8221 "'" "’" 8217 syntax beg electric-quote-paragraph start electric-pair-mode electric-pair-text-pairs] 5 (#$ . 13587)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315\316\317& \207" [put electric-quote-post-self-insert-function priority 10 custom-declare-variable electric-quote-mode nil "Non-nil if Electric-Quote mode is enabled.\nSee the `electric-quote-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 `electric-quote-mode'." :set custom-set-minor-mode :initialize custom-initialize-delay :group electricity :type boolean] 12)
#@617 Toggle on-the-fly requoting (Electric Quote mode).
With a prefix argument ARG, enable Electric Quote mode if
ARG is positive, and disable it otherwise. If called from Lisp,
enable the mode if ARG is omitted or nil.
When enabled, as you type this replaces \=` with \=‘, \=' with \=’,
\=`\=` with “, and \='\=' with ”. This occurs only in comments, strings,
and text paragraphs, and these are selectively controlled with
`electric-quote-comment', `electric-quote-string', and
`electric-quote-paragraph'.
This is a global minor mode. To toggle the mode in a single buffer,
use `electric-quote-local-mode'.
(defalias 'electric-quote-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\204P \3142E \315 \316\211 \205C \f@r q\210\n\203: \317\314\320\"\210)\fA\211\204* \316*0\204X \321\322\323\"\210\202X \324\322\323\"\210\325 \210\326\327\311\302!\203d \330\202e \331\"\210\332\333!\203\220 \334\302!\210\306 \203} \306 \232\203\220 \335 \336\337\311\302!\203\213 \340\202\214 \341
#\210))\342 \210\311\302!\207" [#1=#:last-message arg electric-quote-mode buf --dolist-tail-- local current-message set-default toggle default-value prefix-numeric-value 0 found buffer-list nil throw t remove-hook post-self-insert-hook electric-quote-post-self-insert-function add-hook electric--sort-post-self-insertion-hook run-hooks electric-quote-mode-hook electric-quote-mode-on-hook electric-quote-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Electric-Quote mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 15275) (list (or current-prefix-arg 'toggle))])
#@184 Hook run after entering or leaving `electric-quote-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar electric-quote-mode-hook nil (#$ . 16912))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [electric-quote-mode-map add-minor-mode electric-quote-mode nil boundp] 6)
#@51 Toggle `electric-quote-mode' only in this buffer.
(defalias 'electric-quote-local-mode #[(&optional arg) "\306 p\n\307=\203 \310\304p\"?\202 \311\n!\312Vr q\210\313\304!\210 +\f\314\304!=\2033 \315\304!\210\202B \314\304!\204B \304\316!\210\317\304\320\"\210\321\322\310\304p\"\203O \323\202P \324\"\210\325\326!\203x \306 \203d \306 \232\203x \327 \330\331\310\304p\"\203s \332\202t \333
#\210))\334 \210\310\304p\"\207" [#1=#:last-message #2=#:v arg #3=#:v electric-quote-mode local current-message toggle buffer-local-value prefix-numeric-value 0 make-local-variable default-value kill-local-variable 1 set-default nil run-hooks electric-quote-local-mode-hook electric-quote-local-mode-on-hook electric-quote-local-mode-off-hook called-interactively-p any " in current buffer" message "Electric-Quote-Local mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 17283) (list (or current-prefix-arg 'toggle))])
#@190 Hook run after entering or leaving `electric-quote-local-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar electric-quote-local-mode-hook nil (#$ . 18214))
(provide 'electric)
Kontol Shell Bypass