| 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/electric.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:16 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/electric.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 '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\315\306\204D \316=\203h \306\211 \317 G\320U\204V \204f \321 \210\322\323!\210\324 \306\"\210\202h \306
\203x \325\326\327\217\210\202{ \321 \210!\203 !\"\f\"\210\202 " [inhibit-quitting prompt prompt-string inhibit-quit err cmd nil functionp noprompt "->" read-key-sequence key-binding t 0 7 this-command-keys 1 ding message "Quit" throw conditions (byte-code "\306!\210 \307\204 \f\310=\203, \307
\204) \311 \210\312\313!\210\314\307\"\210\202, \311 \210\307\207" [cmd this-command last-command quit-flag last-input-event unread-command-events command-execute nil 7 ding message "Quit" throw inhibit-quit return-tag] 3) ((buffer-read-only (byte-code "\203 \202 \303 \210\304\305!\210\306\307!\210\303\207" [loop-function conditions err ding message "Buffer is read-only" sit-for 2] 2)) (beginning-of-buffer (byte-code "\203 \202 \303 \210\304\305!\210\306\307!\210\303\207" [loop-function conditions err ding message "Beginning of Buffer" sit-for 2] 2)) (end-of-buffer (byte-code "\203 \202 \303 \210\304\305!\210\306\307!\210\303\207" [loop-function conditions err ding message "End of Buffer" sit-for 2] 2)) (error (byte-code "\203 \202$ \303 \210\304\305 @\306=\203 A@\202 \307 !\"\210\310\311!\210\303\207" [loop-function conditions err ding message "Error: %s" error prin1-to-string sit-for 2] 4))) last-command-event this-command universal-argument-num-events quit-flag last-input-event unread-command-events prefix-arg return-tag current-prefix-arg 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\"\202T \316 !\n=\203/ \317 !\210\202A \203= \320!\210\307 \202A \321\n!\210eb\210d\322 \312\"U\204S \323 \"\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] 4])
(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 (#$ . 2913)])
#@55 Characters that should cause automatic reindentation.
(defvar electric-indent-chars '(10) (#$ . 3192))
#@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 (#$ . 3302))
(defalias 'electric-indent-post-self-insert-function #[nil "\306 \205q \n\307>\203 \212\310\306x\210n)?\205q \311 \211\205q \212b\210\312\313\n\"\206, \n >\211 \314>\206> \f\315=?\205> \316\317 8*?\205q S\320 W\203g \321S\322\" \212\323>\204_
b\210\324 \210
b\210\325\322!\210*\326>?\205q \324 )\207" [pos electric-indent-mode last-command-event electric-indent-chars act before 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-relative indent-to-left-margin indent-relative-maybe) indent-according-to-mode delete-horizontal-space (indent-to-left-margin) indent-line-function] 4])
#@281 Non-nil if Electric-Indent mode is enabled.
See the command `electric-indent-mode' 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 nil '(#$ . 4355) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'electricity :type 'boolean)
#@400 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.
This is a global minor mode. When enabled, it reindents whenever
the hook `electric-indent-functions' returns non-nil, or you
insert a character from `electric-indent-chars'.
(defalias 'electric-indent-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\204 \310\311\312\"\210\202A \313\311\312\314#\210\315\316\311!>\312 >\203@ \312\240\210 \315\317\312 A\"B\241\210)\320\321\n\203K \322\202L \323\"\210\324\325!\203q \326\302!\210\304 \203d \304 \232\203q \327\330\n\203n \331\202o \332\"\210)\333 \210\n\207" [#1=#:last-message arg electric-indent-mode bp current-message toggle prefix-numeric-value 0 remove-hook post-self-insert-hook electric-indent-post-self-insert-function add-hook append blink-paren-post-self-insert-function default-value delq 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" "en" "dis" force-mode-line-update] 6 (#$ . 4809) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306\307\310\311\312\313\314\315\316& \210\305\317\320\321\311\312\313\314\315\322& \207" [electric-indent-mode-map add-minor-mode electric-indent-mode nil boundp custom-declare-variable electric-pair-pairs '((34 . 34)) "Alist of pairs that should be used regardless of major mode." :group electricity :version "24.1" :type (repeat (cons character character)) electric-pair-skip-self t "If non-nil, skip char instead of inserting a second closing paren.\nWhen inserting a closing paren character right before the same character,\njust skip that character instead, so that hitting ( followed by ) results\nin \"()\" rather than \"())\".\nThis can be convenient for people who find it easier to hit ) than C-f." boolean] 10)
(defalias 'electric-pair-syntax #[(command-event) "\205* \n\236\211\203 @ A=\203 \304\202) \305\202) \306 \n\"\203' \307\202) z)\207" [electric-pair-mode command-event electric-pair-pairs x 34 40 rassq 41] 4])
(defalias 'electric-pair-post-self-insert-function #[nil "`Sf=\205 \306!\211\307=\203 \n\236\206 \310 HA\202! \311>\203N \312 \203N \313 `V\203; \313 b\210\202I \314\315!\210\212\313 b\210\316!\210) c\202\240 \212`Sb\210\317\320\321!\322\246!)\204b \323\202\240 \324>\203y \f\203y \323f=\203y \314\325!\202\240 \326>?\206\230
\206\230 \323f=\206\230 `SSf=\206\230 gz\327=?\205\240 \212 c)*\207" [last-command-event syntax electric-pair-pairs closer electric-pair-skip-self overwrite-mode electric-pair-syntax 40 syntax-table (40 34 36) use-region-p mark delete-char -1 insert-before-markers zerop skip-syntax-backward "\\" 2 nil (41 34 36) 1 (40 34 36) 119] 4])
(defalias 'electric-pair-will-use-region #[nil "\301 \205\n \302!\303>\207" [last-command-event use-region-p electric-pair-syntax (40 34 36)] 2])
#@275 Non-nil if Electric-Pair mode is enabled.
See the command `electric-pair-mode' 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-pair-mode'.
(custom-declare-variable 'electric-pair-mode nil '(#$ . 7912) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'electricity :type 'boolean)
#@463 Toggle automatic parens pairing (Electric Pair mode).
With a prefix argument ARG, enable Electric Pair mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Electric Pair mode is a global minor mode. When enabled, typing
an open parenthesis automatically inserts the corresponding
closing parenthesis. (Likewise for brackets, etc.)
See options `electric-pair-pairs' and `electric-pair-skip-self'.
(defalias 'electric-pair-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203% \307\310\311\"\210\307\312\313\"\210\202/ \314\310\311\"\210\314\312\313\"\210\315\316\n\2039 \317\202: \320\"\210\321\322!\203_ \323\302!\210\303 \203R \303 \232\203_ \324\325\n\203\\ \326\202] \327\"\210)\330 \210\n\207" [#1=#:last-message arg electric-pair-mode current-message toggle prefix-numeric-value 0 add-hook post-self-insert-hook electric-pair-post-self-insert-function self-insert-uses-region-functions electric-pair-will-use-region remove-hook run-hooks electric-pair-mode-hook electric-pair-mode-on-hook electric-pair-mode-off-hook called-interactively-p any customize-mark-as-set message "Electric-Pair mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 8358) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [electric-pair-mode-map add-minor-mode electric-pair-mode nil boundp] 6)
#@302 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', or a function of no
arguments that returns one of those symbols.
(defvar electric-layout-rules nil (#$ . 9778))
(defalias 'electric-layout-post-self-insert-function #[nil " \236A\306\n\205t \307 \211\205t \310\212\311 !)8?\205t \312`\313\" b\210\314\n!\2030 \n \2021 \n\211 \315=\203J Sb\210\316\306x\210n\204p \317c\210\202p
\320=\203V \317c\210\202p
\321=\203p \212 Sb\210\316\306x\210n\204l \317c\210)\317c\210)\fb)*\207" [last-command-event electric-layout-rules rule pos end #1=#:val nil electric--after-char-pos 8 syntax-ppss copy-marker t functionp before " " "\n" after around] 4])
#@281 Non-nil if Electric-Layout mode is enabled.
See the command `electric-layout-mode' 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-layout-mode'.
(custom-declare-variable 'electric-layout-mode nil '(#$ . 10620) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'electricity :type 'boolean)
#@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) "\303 \304=\203 \n?\202 \305 !\306V\211\203 \307\310\311\"\210\202% \312\310\311\"\210\313\314\n\203/ \315\2020 \316\"\210\317\320!\203U \321\302!\210\303 \203H \303 \232\203U \322\323\n\203R \324\202S \325\"\210)\326 \210\n\207" [#1=#:last-message arg electric-layout-mode current-message toggle prefix-numeric-value 0 add-hook post-self-insert-hook electric-layout-post-self-insert-function 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" "en" "dis" force-mode-line-update] 4 (#$ . 11075) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306!\207" [electric-layout-mode-map add-minor-mode electric-layout-mode nil boundp provide electric] 6)