;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@99 Non-nil if Evil-Local mode is enabled. Use the command `evil-local-mode' to change this variable. (require 'evil-common) (defvar evil-local-mode nil (#$ . 83))#@620 Minor mode for setting up Evil in a single buffer. This is a minor mode. If called interactively, toggle the `Evil-Local mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate the variable `evil-local-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (make-variable-buffer-local 'evil-local-mode) (defalias 'evil-local-mode #[256 "\306 \307=\203 ?\202\247\203\310W\203\311\202\312\313\301!\2031\314\300 \"\2031\300 B\203\200\315\n>\203@\n\210\202D\315\nB\316 \210\317 \203X\320\303!\210\321\320\304!\210\311 /\322 \210\323\324\325\312\211$\210\323\326\327\312\211$\210\323\330\331\311\312$\210\323\332\333\"\210\323\334\335\"\210\202\236\336 \210\337\330\331\312#\210\337\324\325\312#\210\337\326\327\312#\210\340/!\210\341\311!\210\342\343\203\250\344\202\251\345\"\210\346\347!\203\314\306 \203\275\211\306 \232\203\314\350\351\352\203\310\353\202\311\354\355$\210\210\356 \207" [evil-local-mode local-minor-modes emulation-mode-map-alists evil-default-state evil-echo-state current-input-method current-message toggle 1 nil t boundp delq evil-mode-map-alist evil-initialize-local-keymaps minibufferp make-local-variable insert evil-initialize-state add-hook input-method-activate-hook evil-activate-input-method input-method-deactivate-hook evil-deactivate-input-method activate-mark-hook evil-visual-activate-hook pre-command-hook evil-repeat-pre-hook post-command-hook evil-repeat-post-hook evil-refresh-mode-line remove-hook activate-input-method evil-change-state run-hooks evil-local-mode-hook evil-local-mode-on-hook evil-local-mode-off-hook called-interactively-p any message "%s %sabled%s" "Evil-Local mode" "en" "dis" " in current buffer" force-mode-line-update evil-input-method] 8 (#$ . 249) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar evil-local-mode-hook nil)#@37 Turn on Evil in the current buffer. (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\303\312\314\315#\207" [evil-local-mode-map evil-local-mode-hook variable-documentation put "Hook run after entering or leaving `evil-local-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode evil-local-mode boundp permanent-local t] 6) (defalias 'turn-on-evil-mode #[0 "\300 \207" [evil-local-mode] 1 (#$ . 2499) nil])#@38 Turn off Evil in the current buffer. (defalias 'turn-off-evil-mode #[0 "\300\301!\207" [evil-local-mode -1] 2 (#$ . 3127) nil])#@93 Enable Evil in the current buffer, if appropriate. To enable Evil globally, do (evil-mode). (defalias 'evil-initialize #[0 "\203\302 \207\303 \203 ?\206\304 \206\300 \207" [evil-local-mode evil-want-minibuffer evil-initialize-state minibufferp evil-disabled-buffer-p] 1 (#$ . 3260)]) (defalias 'evil--fundamental-mode 'fundamental-mode) (defvar evil--advices nil) (put 'evil-mode 'globalized-minor-mode t) (defvar evil-local-mode-major-mode nil)#@248 Non-nil if Evil mode is enabled. See the `evil-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 `evil-mode'.#@2 #@450 Toggle Evil-Local mode in all buffers. With prefix ARG, enable Evil mode if ARG is positive; otherwise, disable it. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. Evil-Local mode is enabled in all buffers where `evil-initialize' would do it. See `evil-local-mode' for more information on Evil-Local mode. (fn &optional ARG) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local evil-local-mode-major-mode custom-declare-variable evil-mode funcall function #[0 "\300\207" [nil] 1 (#$ . 3972)] (#$ . 3721) :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group evil] 12) (defalias 'evil-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203D\314\315\316\"\210\202I\317\315\316\"\210\320 \211\203m\211@r\211q\210 \203_\321 \210\202g\n\203g\302\322!\210)\210A\202K\210\323\324\306\301!\203z\325\202{\326\"\210\327\330!\203\244\331\301!\210\303 \203\223\211\303 \232\203\244\332\333\334\306\301!\203\240\335\202\241\336\337$\210\210\340 \210\306\301!\207" [global-minor-modes evil-mode evil-local-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook evil-mode-enable-in-buffer remove-hook buffer-list evil-initialize -1 run-hooks evil-mode-hook evil-mode-on-hook evil-mode-off-hook called-interactively-p any customize-mark-as-set message "%s %sabled%s" "Evil mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 3979) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar evil-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [evil-mode-map evil-mode-hook variable-documentation put "Hook run after entering or leaving `evil-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode evil-mode boundp] 6) (defvar evil-local-mode-set-explicitly nil) (make-variable-buffer-local 'evil-local-mode-set-explicitly) (defalias 'evil-local-mode-set-explicitly #[0 "\301\211\207" [evil-local-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put evil-local-mode-set-explicitly definition-name evil-mode add-hook evil-local-mode-hook] 4) (defvar evil-mode-buffers nil) (defalias 'evil-mode-enable-in-buffer #[0 "\305p\" \204 \n =\204 \f\203\304\306!\210\307 \210\202 \307 \210 \211\207" [evil-mode-buffers evil-local-mode-set-explicitly evil-local-mode-major-mode major-mode evil-local-mode delq -1 evil-initialize] 3])#@22 (fn &optional ARG) (put 'evil-mode-enable-in-buffer 'definition-name 'evil-mode) (defalias 'evil-mode@body #[256 "\203 \211\203\211@\302\303\"\266A\202\210\304\305!\207\306\307!\310=\203'\311\307\312\"\210 \211\203F\211@\211\242\243\211\242\243\211\242\243\313\314\"\266 A\202(\210\304\315!\207" [evil-mode evil--advices apply advice-add evil-esc-mode 1 default-value major-mode evil--fundamental-mode set-default fundamental-mode nil advice-remove -1] 13 (#$ . 6899)])#@76 Like `advice-add' for advices active only in `evil-mode'. (fn &rest ARGS) (advice-add 'evil-mode :after 'evil-mode@body '((name . body))) (defalias 'evil--advice-add #[128 "\203 \302\303\"\210\211 \235\203 \202\211 B\211\207" [evil-mode evil--advices apply advice-add] 4 (#$ . 7394)])#@95 Change the state to STATE. If STATE is nil, disable all states. (fn STATE &optional MESSAGE) (defalias 'evil-change-state #[513 "\301\206\302\"\303!\205(\204=?\205(\211\203&\205'\304\202'\305!\207" [evil-state evil-state-property :toggle functionp 1 -1] 5 (#$ . 7693)])#@75 Save the current state; execute BODY; restore the state. (fn &rest BODY) (defalias 'evil-save-state '(macro . #[128 "\300\301\302\303B\304BBE\207" [let ((evil-state evil-state) (evil-previous-state evil-previous-state) (evil-previous-state-alist (copy-tree evil-previous-state-alist)) (evil-next-state evil-next-state) (old-state evil-state) (inhibit-quit t) (buf (current-buffer))) unwind-protect progn ((when (buffer-live-p buf) (with-current-buffer buf (evil-change-state old-state))))] 6 (#$ . 7986)]))#@128 Change to STATE and execute BODY without refreshing the display. Restore the previous state afterwards. (fn STATE &rest BODY) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put evil-save-state lisp-indent-function defun put edebug-form-spec t] 5) (defalias 'evil-with-state '(macro . #[385 "\300\301\302\303DDBBD\207" [evil-without-display evil-save-state evil-change-state quote] 7 (#$ . 8501)]))#@85 Set up the initial state for the current buffer. See also `evil-set-initial-state'. (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put evil-with-state lisp-indent-function defun put edebug-form-spec t] 5) (defalias 'evil-initialize-state #[0 "\300\301 !\207" [evil-change-state evil-initial-state-for-buffer] 2 (#$ . 8922)])#@205 Return the initial Evil state to use for a buffer with name NAME. Matches the name against the regular expressions in `evil-buffer-regexps'. If none matches, returns DEFAULT. (fn &optional NAME DEFAULT) (defalias 'evil-initial-state-for-buffer-name #[512 ";\203 \202\f\301!\211\205;\3022;\211\2038\211@\211@A\303\304\305$\266\203\2032\306\302\"\210\266A\202\2100\207" [evil-buffer-regexps buffer-name done nil string-match t throw] 15 (#$ . 9268)])#@67 Whether Evil should be disabled in BUFFER. (fn &optional BUFFER) (defalias 'evil-disabled-buffer-p #[256 "\300\301\"?\207" [evil-initial-state-for-buffer-name undefined] 4 (#$ . 9744)])#@143 Return the initial Evil state to use for BUFFER. BUFFER defaults to the current buffer. See also `evil-initial-state'. (fn &optional BUFFER) (defalias 'evil-initial-state-for-buffer #[256 "r\211\206pq\210\303 \206P\304\211\211\211:\203B@\262@\262\305!\2037J\2037\306!\211\262?\211\262\2028\307\203BA\262\202\266\204\206P\306 \304\307#\206P\n)\207" [minor-mode-map-alist major-mode evil-default-state evil-initial-state-for-buffer-name nil boundp evil-initial-state t] 8 (#$ . 9938)])#@384 Return the Evil state to use for MODE or its alias. Return DEFAULT if no initial state is associated with MODE. The initial state for a mode can be set with `evil-set-initial-state'. If FOLLOW-PARENT is non-nil, also check parent modes of MODE and its alias. CHECKED-MODES is used internally and should not be set initially. (fn MODE &optional DEFAULT FOLLOW-PARENT CHECKED-MODES) (defalias 'evil-initial-state #[1025 ">\203\f\301\302#\210K\2119\205\211\262\3032H\304\305\306\"\211\203E\211@\211@AJ>\204:\203?>\203?\307\303\"\210\266A\202\2100\206}\203d\310N\203d\311\310N\312\305B$\206}\205}\211\205}\211\310N\205}\311\310N\312\305B$\207" [major-mode error "Circular reference detected in ancestors of `%s'\n%s" --cl-block-nil-- evil-state-property t :modes throw derived-mode-parent evil-initial-state nil] 12 (#$ . 10454)])#@112 Set the initial state for major mode MODE to STATE. This is the state the buffer comes up in. (fn MODE STATE) (defalias 'evil-set-initial-state #[514 "\300\301\302\"\211\203\211@\243\211\303J\"L\266A\202\210\211\205$\304\300\302\"\"\207" [evil-state-property t :modes delq add-to-list] 8 (#$ . 11334)])#@180 Change the state of BUFFER to its initial state. This is the state the buffer came up in. If Evil is not activated then this function does nothing. (fn &optional BUFFER MESSAGE) (defalias 'evil-change-to-initial-state #[512 "\205r\206\npq\210\301\302!\")\207" [evil-local-mode evil-change-state evil-initial-state-for-buffer] 5 (#$ . 11654) nil])#@82 Change the state of BUFFER to its previous state. (fn &optional BUFFER MESSAGE) (evil-set-command-properties 'evil-change-to-initial-state :keep-visual t :suppress-operator t) (defalias 'evil-change-to-previous-state #[512 "r\206pq\210\303 \"\243\304\305!\210\211\203\211\304\206\"\n\206\"\306\")\207" [evil-previous-state evil-previous-state-alist evil-default-state assoc evil-change-state nil normal] 7 (#$ . 12014) nil])#@70 Initialize Evil in the displayed buffer. (fn WINDOW BUFFER &rest _) (byte-code "\300\301\302\303\304\305\306\303&\210\307\310\311\312#\207" [evil-set-command-properties evil-change-to-previous-state :keep-visual t :repeat abort :suppress-operator evil--advice-add set-window-buffer :before evil--swb-initialize] 8) (defalias 'evil--swb-initialize #[642 "\205 \302!\205 rq\210 ?\205\303 \304\305\"\216\306 )\262)\207" [evil-mode evil-local-mode get-buffer match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] evil-initialize] 7 (#$ . 12457)])#@16 (fn &rest _) (byte-code "\300\301\302\"\210\303\304\305\306#\207" [add-hook window-configuration-change-hook evil-refresh-cursor advice-add select-window :after evil--sw-refresh-cursor] 4) (defalias 'evil--sw-refresh-cursor #[128 "\300 \207" [evil-refresh-cursor] 2 (#$ . 13036)])#@66 Generate the evil mode-line tag for STATE. (fn &optional STATE) (defalias 'evil-generate-mode-line-tag #[256 "\300\301\302#\303!\203\211 \262\211;\203\304\305\300\306\"\307\310%\207\207" [evil-state-property :tag t functionp propertize help-echo :name mouse-face mode-line-highlight] 8 (#$ . 13324)])#@46 Refresh mode line tag. (fn &optional STATE) (defalias 'evil-refresh-mode-line #[256 "<\205{\303!\304\301\"\211\305\211\211\n\306\267\202(\210\307\310\262\2024\210\307\311\262\2024\n:\2034\210\n@\nA\262\203R@\242\206@@=\262\204R\262A\262\2024\203w\211\312\267\202w\203i\301B\241\210\202w\301B\202w\301AB\241\210\313 \266\204\207" [mode-line-format evil-mode-line-tag evil-mode-line-format evil-generate-mode-line-tag delq nil #s(hash-table test eq purecopy t data (before 24 after 32)) after mode-line-position mode-line-modes #s(hash-table test eq purecopy t data (before 92 after 112)) force-mode-line-update] 9 (#$ . 13640)])#@59 Enable input method in states with :input-method non-nil. (defalias 'evil-activate-input-method #[0 "\306\211\n\205 \205\f\307 \310\"?\205\311 *\207" [input-method-deactivate-hook input-method-activate-hook evil-local-mode evil-state current-input-method evil-input-method nil evil-state-property :input-method deactivate-input-method] 3 (#$ . 14314)])#@37 Disable input method in all states. (put 'evil-activate-input-method 'permanent-local-hook t) (defalias 'evil-deactivate-input-method #[0 "\305\211\n\205 \205\305\211*\207" [input-method-deactivate-hook input-method-activate-hook evil-local-mode evil-state evil-input-method nil] 2 (#$ . 14681)])#@149 Execute body with evil's activate/deactivate-input-method hooks deactivated. This allows input methods to be used in normal-state. (fn &rest BODY) (put 'evil-deactivate-input-method 'permanent-local-hook t) (defalias 'evil-without-input-method-hooks '(macro . #[128 "\300\301\302\303BBB\304BB\207" [unwind-protect progn (remove-hook 'input-method-activate-hook #'evil-activate-input-method t) (remove-hook 'input-method-deactivate-hook #'evil-deactivate-input-method t) ((add-hook 'input-method-activate-hook #'evil-activate-input-method nil t) (add-hook 'input-method-deactivate-hook #'evil-deactivate-input-method nil t))] 6 (#$ . 14991)]))#@56 Refresh `evil-input-method'. (fn ORIG-FUN &rest ARGS) (byte-code "\300\301\302\303#\304\305\306\307#\207" [function-put evil-without-input-method-hooks lisp-indent-function defun evil--advice-add toggle-input-method :around evil--refresh-input-method] 5) (defalias 'evil--refresh-input-method #[385 "\204 \304\"\207\305 \306\"\203\304\"\207\n\304\")\207" [evil-local-mode evil-state evil-input-method current-input-method apply evil-state-property :input-method] 5 (#$ . 15641)])#@116 Initialize a buffer-local value for local keymaps as necessary. The initial value is that of `make-sparse-keymap'. (defalias 'evil-initialize-local-keymaps #[0 "\211\205!\211@\211A\301J!\203\302!\204\211\303 L\210\266A\202\207" [evil-local-keymaps-alist keymapp local-variable-p make-sparse-keymap] 5 (#$ . 16139)])#@317 Give KEYMAP precedence over the global keymap of STATE. The keymap will have lower precedence than custom STATE bindings. If STATE is nil, give it precedence over all states. If COPY is t, create a copy of KEYMAP and give that higher precedence. See also `evil-make-intercept-map'. (fn KEYMAP &optional STATE COPY) (defalias 'evil-make-overriding-map #[769 "\211\204\300\301\206\f\302#\207\303!\204\304\305\306!\"\262\300\301\206$\302#\210\300\301#\207" [define-key [override-state] all keymapp assq-delete-all menu-bar copy-keymap] 7 (#$ . 16472)])#@303 Give KEYMAP precedence over all Evil keymaps in STATE. If STATE is nil, give it precedence over all states. If AUX is non-nil, make the auxiliary keymap corresponding to KEYMAP in STATE an intercept keymap instead of KEYMAP itself. See also `evil-make-overriding-map'. (fn KEYMAP &optional STATE AUX) (defalias 'evil-make-intercept-map #[769 "\211\203 \300\301\211$\202\302\303\206\304#\207" [evil-get-auxiliary-keymap t define-key [intercept-state] all] 8 (#$ . 17044)])#@606 Define a keymap KEYMAP listed in `evil-mode-map-alist'. That means it will have precedence over regular keymaps. DOC is the documentation for the variable. BODY, if specified, is executed after toggling the mode. Optional keyword arguments may be specified before the body code: :mode VAR Mode variable. If unspecified, the variable is based on the keymap name. :local BOOLEAN Whether the keymap should be buffer-local, that is, reinitialized for each buffer. :func BOOLEAN Create a toggle function even if BODY is empty. (fn KEYMAP DOC [[KEY VAL]...] BODY...) (defalias 'evil-define-keymap '(macro . #[642 "\300\301\211\211\211\211\211\302\242!\203D\211A\262 \242\262\211A\262 \242\262\303\267\202\262\202\262\202\262\202\262\202\210\202\206R\304\305\306\307\310!#!\262\311\312 ?\205^\313E\314\315\316D\317BB\320\316D\321FE\312\322BB\314\315\316D\323BB\320\316 D\324FE\325\316DD\320\316 D\326BB\327\f\330DE\327 \331DE\332\f\203\313\325\316DD\320\316D\333BB\334\335\316D\316DFE\202\340\334\336\316D\316DF\334\337\316DFD\204\352\205\340 \341\332\205\367C\342\343\344\345\346BBD\300\345\347DEDED#BBB\316DD\"BBBBBBBBB\207" [t nil keywordp #s(hash-table test eq purecopy t data (:mode 39 :local 45 :func 51 :intercept 57 :overriding 63)) intern replace-regexp-in-string "\\(?:-\\(?:mode-\\)?\\(?:key\\)?map\\)?$" "-mode" symbol-name progn defvar (make-sparse-keymap) unless get quote ('variable-documentation) put 'variable-documentation (nil) ('variable-documentation) 'variable-documentation make-variable-buffer-local ('permanent-local t) when evil-make-intercept-map evil-make-overriding-map append ('permanent-local t) evil--add-to-alist evil-local-keymaps-alist evil-global-keymaps-alist evil-mode-map-alist defun (&optional arg) (interactive) cond (numberp arg) setq ((> arg 0)) not] 34 (#$ . 17533)]))#@450 Toggle interception of \e (escape). Enable with positive ARG and disable with negative ARG. When enabled, `evil-esc-mode' modifies the entry of \e in `input-decode-map'. If such an event arrives, it is translated to a plain `escape' event if no further event occurs within `evil-esc-delay' seconds. Otherwise no translation happens and the ESC prefix map (i.e. the map originally bound to \e in `input-decode-map`) is returned. (fn &optional ARG) (byte-code "\300\301\302\303#\300\301\304\305#\306\301\307\310#\207" [function-put evil-define-keymap lisp-indent-function defun doc-string-elt 2 put edebug-form-spec (&define name [&optional stringp] [&rest [keywordp sexp]] def-body)] 6) (defalias 'evil-esc-mode #[256 "\211\203\n\211\301=\203\300\203\302\202\303!\207\211\301V\203.?\205F\304\305\306\307\"\210\310\307\311 \"\207\211\301W\205F\205F\312\306\307\"\210\310\313\311 \"\210\314\211\207" [evil-esc-mode 0 -1 1 t add-hook after-make-frame-functions evil-init-esc mapc frame-list remove-hook evil-deinit-esc nil] 4 (#$ . 19491)])#@52 Update `input-decode-map' in terminal. (fn FRAME) (defalias 'evil-init-esc #[257 "\303 p\304\305#\216\306\307\"\210\310!\311=\204#\205B\312!\313=\205B\314\302\"?\205B\315 \316\"\317\302\n#\210\320 \321\322\323\n\324\325\257#))\207" [evil-intercept-esc input-decode-map evil-esc-map selected-frame make-closure #[0 "\302\301!\203 \303\301\304\"\210\305\300!\205\300q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord frame-terminal always terminal-live-p t terminal-parameter lookup-key [27] set-terminal-parameter define-key [27] menu-item "" :filter evil-esc] 12 (#$ . 20551)])#@53 Restore `input-decode-map' in terminal. (fn FRAME) (defalias 'evil-deinit-esc #[257 "\302 p\303\304#\216\305\306\"\210\307!\310!\205,\311\300\"\211\205+\312 \313#\210\314\300\315#))\207" [evil-esc-map input-decode-map selected-frame make-closure #[0 "\302\301!\203 \303\301\304\"\210\305\300!\205\300q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord frame-terminal terminal-live-p terminal-parameter define-key [27] set-terminal-parameter nil] 9 (#$ . 21191)])#@820 Translate \e to `escape' if no further event arrives. This function is used to translate a \e event either to `escape' or to the standard ESC prefix translation map. If \e arrives, this function waits for `evil-esc-delay' seconds for another event. If no other event arrives, the event is translated to `escape', otherwise it is translated to the standard ESC prefix map stored in `input-decode-map'. If `evil-inhibit-esc' is non-nil or if evil is in emacs state, the event is always translated to the ESC prefix. The translation to `escape' happens only if the current command has indeed been triggered by \e. In other words, this will only happen when the keymap is accessed from `read-key-sequence'. In particular, if it is access from `define-key' the returned mapping will always be the ESC prefix map. (fn MAP) (defalias 'evil-esc #[257 "\204E \204\305 \204\306 \203E\307 \204E\310 \211G\311V\205'\211GSH\312U\262\203E\313\n!\203E \203C\314 \210\315\f\316\"\317\320\211\"\210\321\207\207" [evil-inhibit-esc evil-local-mode evil-esc-delay defining-kbd-macro last-kbd-macro evil-ex-p active-minibuffer-window evil-emacs-state-p this-single-command-keys 0 27 sit-for end-kbd-macro vconcat [escape] start-kbd-macro t [escape]] 4 (#$ . 21712)])#@47 Whether SYM is the name of a state. (fn SYM) (defalias 'evil-state-p #[257 "\211\236\207" [evil-state-properties] 3 (#$ . 22980)])#@313 Return a keymap alist of keymaps activated by STATE. If STATE references other states in its :enable property, these states are recursively processed and added to the list. (The EXCLUDED argument is an internal safeguard against infinite recursion, keeping track of processed states.) (fn STATE &rest EXCLUDED) (defalias 'evil-state-keymaps #[385 "\206\301\302\"\301\303\"\301\304\305#B\301\306\"\301\307\305#B\310!\311!\312!\313!\211C ?  >\204?  B\262 \211\203\271\211@\211 >\204\264\211\f=\203s\314\nC\n\n\nC\257\"\262  B\262 \210\202\265\315!\203\211\314\316\317#C\"\262\210\202\265\320!\204\247\320J!\203\236\211J\211\262\204\247\321!\211\262\203\264\314\322\305\"BCC\"\262\210A\202A\210\211\203\303\316\323\"\207\316\314\"\207" [evil-state evil-state-property :enable :mode :keymap t :local :local-keymap evil-state-minor-mode-keymaps evil-state-auxiliary-keymaps evil-state-overriding-keymaps evil-state-intercept-keymaps append evil-state-p apply evil-state-keymaps keymapp evil-keymap-for-mode evil-mode-for-keymap evil-concat-keymap-alists] 21 (#$ . 23119)])#@162 Create a buffer-local value for `evil-mode-map-alist'. This is a keymap alist, determined by the current state (or by STATE if specified). (fn &optional STATE) (defalias 'evil-normalize-keymaps #[256 "\211\206\302\303\211\211\304 \210 \211\203\\\211@\211@\262\211A\262>\204:\305!\204:\306!\204:\307!\204:\310!\203DB\262\210\202X\311!\203SJ\203S\312!\210\303L\266A\202 \210\303\205\322\313!\262\211\211\203\316\211@\211@\262\211A\262\314!\203\202J\204\226\310!\204\226\311!\203\222\315!\210\316L\210>\204\265\305!\204\265\306!\204\265\307!\204\265\310!\203\277B\262\210\202\312\211\317!\206\307\241\266A\202i\210\211\211\207" [evil-state evil-mode-map-alist (nil t) nil evil-initialize-local-keymaps evil-intercept-keymap-p evil-overriding-keymap-p evil-auxiliary-keymap-p evil-minor-mode-keymap-p fboundp -1 evil-state-keymaps boundp 1 t evil-keymap-for-mode] 11 (#$ . 24259)])#@147 Return the minor mode associated with KEYMAP. Return DEFAULT if no mode is found. See also `evil-keymap-for-mode'. (fn KEYMAP &optional DEFAULT)#@10 (fn E) (defalias 'evil-mode-for-keymap #[513 "\303!\203\n\202\fJ9\205\211\203&\304\"@\206=\304 \"@\206=\304\305\306\307 \"\"\"@\206=\304\n\"@\206=\207" [evil-global-keymaps-alist evil-local-keymaps-alist minor-mode-map-alist keymapp rassq mapcar #[257 "\211\242\243JB\207" [] 3 (#$ . 25367)] append] 11 (#$ . 25216)])#@155 Return the keymap associated with MODE. Return the keymap variable if VARIABLE is non-nil. See also `evil-mode-for-keymap'. (fn MODE &optional VARIABLE) (defalias 'evil-keymap-for-mode #[513 "\236A\206  \236A\211J\206\n\236A\203\207\207" [evil-global-keymaps-alist evil-local-keymaps-alist minor-mode-map-alist] 5 (#$ . 25715)])#@67 Return a keymap alist of auxiliary keymaps for STATE. (fn STATE) (defalias 'evil-state-auxiliary-keymaps #[257 "\211\206\301\211\302 \211\203)\211@\303\"\211\262\203$\304\305\"BB\262\210A\202 \210\237\207" [evil-state nil current-active-maps evil-get-auxiliary-keymap evil-mode-for-keymap t] 9 (#$ . 26061)])#@68 Return a keymap alist of minor-mode keymaps for STATE. (fn STATE) (defalias 'evil-state-minor-mode-keymaps #[257 "\211\206 \236A\207" [evil-state evil-minor-mode-keymaps-alist] 3 (#$ . 26390)])#@78 Return a keymap alist of overriding keymaps for STATE. (fn &optional STATE) (defalias 'evil-state-overriding-keymaps #[256 "\211\206\301\302 \211\203'\211@\303\"\211\262\203\"\304\305\"BB\262\210A\202\210\237\207" [evil-state nil current-active-maps evil-overriding-keymap-p evil-mode-for-keymap t] 8 (#$ . 26593)])#@77 Return a keymap alist of intercept keymaps for STATE. (fn &optional STATE) (defalias 'evil-state-intercept-keymaps #[256 "\211\206\301\302 \211\2032\211@\303\"\206\303\304\"\"\211\262\203-\305\306\"BB\262\210A\202\210\237\207" [evil-state nil current-active-maps evil-intercept-keymap-p evil-get-auxiliary-keymap evil-mode-for-keymap t] 9 (#$ . 26929)])#@127 Set the auxiliary keymap for MAP in STATE to AUX. If AUX is nil, create a new auxiliary keymap. (fn MAP STATE &optional AUX) (defalias 'evil-set-auxiliary-keymap #[770 "\211\204\300 \262\301!\204\"\302\303\304\305\306\"\206\303\307\"\"\"\210\310\311\312\303\313\"!!#\210\207" [make-sparse-keymap evil-auxiliary-keymap-p evil-set-keymap-prompt format "Auxiliary keymap for %s" evil-state-property :name "%s state" define-key vector intern "%s-state"] 10 (#$ . 27310)])#@288 Get the auxiliary keymap for MAP in STATE. If CREATE is non-nil, create an auxiliary keymap if MAP does not have one. If CREATE and IGNORE-PARENT are non-nil then a new auxiliary keymap is created even if the parent of MAP has one already. (fn MAP STATE &optional CREATE IGNORE-PARENT) (defalias 'evil-get-auxiliary-keymap #[1026 "\205K\300\301\302\303\"!!\205\304!\205\305\304!\"\305\"\2038\232\2038\2038\306\"\207\307!\203?\207\205I\306\"\266\203\207" [vector intern format "%s-state" keymap-parent lookup-key evil-set-auxiliary-keymap evil-auxiliary-keymap-p] 10 (#$ . 27801)])#@105 Get the auxiliary keymap for MODE in STATE, creating one if it does not already exist. (fn STATE MODE) (defalias 'evil-get-minor-mode-keymap #[514 "\236\211\203\236\203\236A\207\301 \302\303\304\305 \306\"\206'\303\307\n\"#\"\210\2038BAB\241\210\207BDB\207" [evil-minor-mode-keymaps-alist make-sparse-keymap evil-set-keymap-prompt format "Minor-mode keymap for %s in %s" evil-state-property :name "%s state"] 12 (#$ . 28424)])#@47 Whether MAP is an auxiliary keymap. (fn MAP) (defalias 'evil-auxiliary-keymap-p #[257 "\300!\211\205 \301\302\"\207" [keymap-prompt string-prefix-p "Auxiliary keymap"] 5 (#$ . 28884)])#@47 Whether MAP is a minor-mode keymap. (fn MAP) (defalias 'evil-minor-mode-keymap-p #[257 "\300!\211\205 \301\302\"\207" [keymap-prompt string-prefix-p "Minor-mode keymap"] 5 (#$ . 29078)])#@110 Whether MAP is an intercept keymap for STATE. If STATE is nil, it means any state. (fn MAP &optional STATE) (defalias 'evil-intercept-keymap-p #[513 "\300!\205\n\301\302\"\211\204\303\207\204\207\211=\203\207\211\304=\205%\207" [keymapp lookup-key [intercept-state] nil all] 5 (#$ . 29275)])#@111 Whether MAP is an overriding keymap for STATE. If STATE is nil, it means any state. (fn MAP &optional STATE) (defalias 'evil-overriding-keymap-p #[513 "\300!\205\n\301\302\"\211\204\303\207\300!\203\304\"\207\204!\207\211=\203)\207\211\305=\2050\207" [keymapp lookup-key [override-state] nil evil-overriding-keymap-p all] 6 (#$ . 29589)])#@96 Return the state for the intercept keymap MAP. A return value of t means all states. (fn MAP) (defalias 'evil-intercept-keymap-state #[257 "\300\301#\302!\203\303!\207\211\304=\203\305\207\207" [lookup-key [intercept-state] keymapp evil-intercept-keymap-state all t] 5 (#$ . 29952)])#@97 Return the state for the overriding keymap MAP. A return value of t means all states. (fn MAP) (defalias 'evil-overriding-keymap-state #[257 "\300\301#\302!\203\303!\207\211\304=\203\305\207\207" [lookup-key [override-state] keymapp evil-overriding-keymap-state all t] 5 (#$ . 30250)])#@346 Set KEY to trigger leader bindings in STATE. KEY should be in the form produced by `kbd'. STATE is one of `normal', `insert', `visual', `replace', `operator', `motion', `emacs', a list of one or more of these, or `nil', which means all of the above. If LOCALLEADER is non-nil, set the local leader instead. (fn STATE KEY &optional LOCALLEADER)#@12 (fn CMD) (defalias 'evil-set-leader #[770 "\204\300\202:\203\202C\203\301\202\302\303\304\305\306\307\310\"\257\211\205:\211@\311#\266A\202(\207" [(normal insert visual replace operator motion emacs) [localleader] [leader] menu-item "" nil :filter make-closure #[257 "\301\300!\207" [V0 key-binding] 3 (#$ . 30901)] evil-global-set-key] 12 (#$ . 30551)])#@1740 Create a STATE binding from KEY to DEF for KEYMAP. STATE is one of `normal', `insert', `visual', `replace', `operator', `motion', `emacs', or a list of one or more of these. Omitting a state by using `nil' corresponds to a standard Emacs binding using `define-key'. The remaining arguments are like those of `define-key'. For example: (evil-define-key \='normal foo-map "a" \='bar) This creates a binding from `a' to `bar' in normal state, which is active whenever `foo-map' is active. Using nil for the state, the following lead to identical bindings: (evil-define-key nil foo-map "a" \='bar) (define-key foo-map "a" \='bar) It is possible to specify multiple states and/or bindings at once: (evil-define-key \='(normal visual) foo-map "a" \='bar "b" \='foo) If `foo-map' has not been initialized yet, this macro adds an entry to `after-load-functions', delaying execution as necessary. KEYMAP may also be a quoted symbol. If the symbol is `global', the global evil keymap corresponding to the state(s) is used, meaning the following lead to identical bindings: (evil-define-key \='normal \='global "a" \='bar) (evil-global-set-key \='normal "a" \='bar) The symbol `local' may also be used, which corresponds to using `evil-local-set-key'. If a quoted symbol is used that is not `global' or `local', it is assumed to be the name of a minor mode, in which case `evil-define-minor-mode-key' is used. KEY is an internal Emacs representation of a key, as for `define-key'. To bind key sequences that use modifier keys such as "C-a" or "M-a", convert the key sequences using `kbd'. For example: (evil-define-key \='normal foo-map (kbd "C-a") \='bar) (fn STATE KEYMAP KEY DEF &rest BINDINGS) (defalias 'evil-define-key '(macro . #[1156 "\300\235\203\301BBBBB\207\242\302=\203%\303BBBBB\207\3049\203:\305\306\302DD\307DE\202=\307D\310\311\312\313\314\n9\203M\n\202N\315\"F\316\317\301\n\n\n\n\nBBBBBEF\207" [('global 'local) evil-define-key* quote evil-define-minor-mode-key evil-with-delay and boundp keymapp after-load-functions t nil format "evil-define-key-in-%s" keymap with-demoted-errors "Error in evil-define-key: %S"] 16 (#$ . 31293)]))#@1560 Create a STATE binding from KEY to DEF for KEYMAP. STATE is one of normal, insert, visual, replace, operator, motion, emacs, or a list of one or more of these. Omitting a state by using nil corresponds to a standard Emacs binding using `define-key' The remaining arguments are like those of `define-key'. For example: (evil-define-key* \='normal foo-map "a" \='bar) This creates a binding from "a" to bar in Normal state, which is active whenever foo-map is active. Using nil for the state, the following are equivalent: (evil-define-key* nil foo-map "a" \='bar) (define-key foo-map "a" \='bar) It is possible to specify multiple states and/or bindings at once: (evil-define-key* \='(normal visual) foo-map "a" \='bar "b" \='foo) KEYMAP may also be a quoted symbol. If the symbol is global, the global evil keymap corresponding to the state(s) is used, meaning the following are equivalent: (evil-define-key* \='normal \='global "a" \='bar) (evil-global-set-key \='normal "a" \='bar) The symbol local may also be used, which corresponds to using `evil-local-set-key'. The use is nearly identical to `evil-define-key' with the exception that this is a function and not a macro (and so will not be expanded when compiled which can have unintended consequences). `evil-define-key*' also does not defer any bindings like `evil-define-key' does using `evil-with-delay'. This allows errors in the bindings to be caught immediately, and makes its behavior more predictable. (fn STATE KEYMAP KEY DEF &rest BINDINGS)#@11 (fn ST) (byte-code "\300\301\302\303#\304\305\301\"\207" [function-put evil-define-key lisp-indent-function defun defalias evil-declare-key] 4) (defalias 'evil-define-key* #[1156 "\203\301\302\303\"<\203\202C\"\2026\304\267\2024\2025\305 \2065\306 \307!\210\2025C\203b\211\211\203N\211@\310#\266A\202;\210\211A\262\242\262\211A\262\242\262\2026\211\211\205u\211@\311\312!\"\266A\202c\207" [global-map mapcar make-closure #[257 "\300\301=\203\f\302\303\304#\207\300\305=\203\302\306\304#\207\307\300\304\211$\207" [V0 global evil-state-property :keymap t local :local-keymap evil-get-auxiliary-keymap] 6 (#$ . 35088)] #s(hash-table test eq purecopy t data (global 34 local 38)) current-local-map make-sparse-keymap use-local-map define-key evil-set-keymap-prompt keymap-prompt] 12 (#$ . 33524)])#@611 Similar to `evil-define-key' but the bindings are associated with the minor-mode symbol MODE instead of a particular map. Associating bindings with a mode symbol instead of a map allows evil to use Emacs' built-in mechanisms to enable the bindings automatically when MODE is active without relying on calling `evil-normalize-keymaps'. Another less significant difference is that the bindings can be created immediately, because this function only uses the symbol MODE and does not rely on its value. See `evil-define-key' for the usage of STATE, KEY, DEF and BINDINGS. (fn STATE MODE KEY DEF &rest BINDINGS) (byte-code "\300\301\302\303#\300\207" [function-put evil-define-key* lisp-indent-function defun] 4) (defalias 'evil-define-minor-mode-key #[1156 "\300\301\302\"<\203\202C\"\205A\211\211\203-\211@\303#\266A\202\210\211A\262\242\262\211A\262\242\262\202\207" [mapcar make-closure #[257 "\301\300\"\207" [V0 evil-get-minor-mode-keymap] 4 (#$ . 35088)] define-key] 12 (#$ . 35943)])#@135 Add "h", "j", "k", "l" bindings to KEYMAP in STATE. Add additional BINDINGS if specified. (fn KEYMAP &optional STATE &rest BINDINGS) (byte-code "\300\301\302\303#\300\207" [function-put evil-define-minor-mode-key lisp-indent-function defun] 4) (defalias 'evil-add-hjkl-bindings '(macro . #[641 "\300\301\302\303\304\305\306\307\310\311\312 BBBBBBBBBBBBB\207" [evil-define-key "h" (lookup-key evil-motion-state-map "h") "j" (lookup-key evil-motion-state-map "j") "k" (lookup-key evil-motion-state-map "k") "l" (lookup-key evil-motion-state-map "l") ":" (lookup-key evil-motion-state-map ":")] 17 (#$ . 36971)]))#@47 Bind KEY to DEF in STATE. (fn STATE KEY DEF) (byte-code "\300\301\302\303#\300\207" [function-put evil-add-hjkl-bindings lisp-indent-function defun] 4) (defalias 'evil-global-set-key #[771 "\300\301\302\303##\207" [define-key evil-state-property :keymap t] 8 (#$ . 37591)])#@69 Bind KEY to DEF in STATE in the current buffer. (fn STATE KEY DEF) (defalias 'evil-local-set-key #[771 "\300\301\302\303##\207" [define-key evil-state-property :local-keymap t] 8 (#$ . 37874)])#@37 Refresh Evil keymaps. (fn &rest _) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [advice-add use-global-map :after evil--do-normalize-keymaps use-local-map] 4) (defalias 'evil--do-normalize-keymaps #[128 "\300 \207" [evil-normalize-keymaps] 2 (#$ . 38077)])#@957 Define an Evil state STATE. DOC is a general description and shows up in all docstrings; the first line of the string should be the full name of the state. BODY is executed each time the state is enabled or disabled. Optional keyword arguments: - `:tag' - the mode line indicator, e.g. "". - `:message' - string shown in the echo area when the state is activated. - `:cursor' - default cursor specification. - `:enable' - list of other state keymaps to enable when in this state. - `:entry-hook' - list of functions to run when entering this state. - `:exit-hook' - list of functions to run when exiting this state. - `:suppress-keymap' - if non-nil, effectively disables bindings to `self-insert-command' by making `evil-suppress-map' the parent of the global state keymap. The global keymap of this state will be `evil-test-state-map', the local keymap will be `evil-test-state-local-map', and so on. (fn STATE DOC [[KEY VAL]...] BODY...) (defalias 'evil-define-state '(macro . #[642 "\300\301\"\205 \302\303\"\302\304\"\300\305\"\205\302\303\"\203$\306\230\203(\306\202,\307\310\"\311\307\312 \"!\311\307\313\"!\311\307\314\"!\311\307\315\"!\311\307\316\"!\311\307\317\"!\311\307\320\"!\311\307\321 \"!\311\307\322\n\"!\311\307\323 \"!\311\307\324\f\"!\311\307\325 \"!\326\211\211\211\211\211\211\211\211\211\327\242!\203\362\211A\262\242\262\211A\262\242\262\n\330\267\202\207\210\202\207 \262\202\207 \262 \202\207 \262<\204\207C\262\202\207 \262<\204\207C\262\202\207 \262\202\207 \262\202\207 \262\202\207\331\332\333\334\335\336D\337\336D\340\341\326\307\342%$#F\343\341\344\307\345'\"F\346\341 \326\307\342)(#F\347\341!\326\307\350+\"F\351\341\"\307\352-\"F\353\341#\307\354/\"F\355\341$\336 D\307\3561\"F\357\341%\326\307\3603\"F\361\341&\326\307\3625\"F\363\341'\326\307\3647\"F\365\336\"D\366\336*D\367\336)D\257DC\370\371\336\"D\372BBBE\373\205\241\374\375BBC\376\377\336 DD\201@\336D\201ABBE\376\377\336 DD\201@\336D\201BBBE\201C\201D\307\201E\"(#\201F\201G\201H\201I\336+DEE\257\201C\201J\307\201K###\201L\201M\201N\201O\332\201P\336.DDC\201Q\336DD\201R\201S.BBBBBE\201T\201U\332\201V\336/DD\201WB\201X\201Y\201P\3362DE\370\201Z\3363D\201[BBB\332\201P\3364DDC\201\\\201]\336D\201^BB\201_\201`\201a\201b\201c\336;DDE\201d\336:DDF\3735\201Q\336+DD\201a\201F\201e\201f\201g1\257\201]\201h0D\201i1D\201j\201k3EFED\"BBBBB\257EE\257\201l\336D\201mBB\201n\326\340!\201oBBBBB\201n\326\340 \201pBBBBB\336(D\257\"BB\207" [string-match "^\\(.+\\)\\(\\(?:.\\|\n\\)*\\)" match-string 1 2 "^\\(.+?\\)\\.?$" "" format "\n%s" intern "evil-%s-state" "%s-minor-mode" "%s-map" "%s-local-minor-mode" "%s-local-map" "%s-tag" "%s-message" "%s-cursor" "%s-entry-hook" "%s-exit-hook" "%s-modes" "%s-p" nil keywordp #s(hash-table test eq purecopy t data (:tag 167 :message 173 :cursor 180 :entry-hook 187 :exit-hook 205 :enable 221 :input-method 228 :suppress-keymap 235)) progn let plist list :name quote :toggle :mode defvar "Non-nil if %s is enabled.\nUse the command `%s' to change this variable." :keymap (make-sparse-keymap) "Keymap for %s." :local :local-keymap "Buffer-local keymap for %s." :tag "Mode line tag for %s." :message "Echo area message for %s." :cursor "Cursor for %s.\nMay be a cursor type as per `cursor-type', a color string as passed\nto `set-cursor-color', a zero-argument function for changing the\ncursor, or a list of the above." :entry-hook "Hooks to run when entering %s." :exit-hook "Hooks to run when exiting %s." :modes "Modes that should come up in %s." :input-method :predicate :enable evil--add-to-alist evil-state-properties (plist) append set-keymap-parent (evil-suppress-map) dolist func add-hook (func) (func) defun (&optional state) "Whether the current state is %s.\n(That is, whether `evil-state' is `%s'.)" and evil-local-mode eq (or state evil-state) (&optional arg) "Enable %s. Disable with negative ARG.\nIf ARG is nil, don't display a message in the echo area.%s" (interactive) cond (and (numberp arg) (< arg 1)) (setq evil-previous-state evil-state evil-state nil) evil-state run-hooks (setq evil-state nil) (evil-normalize-keymaps) t (unless evil-local-mode (evil-local-mode)) evil-next-state (input-method-activate-hook input-method-deactivate-hook) (evil-change-state nil) setq evil-previous-state-alist (evil-previous-state) (evil-normalize-keymaps) if ((activate-input-method evil-input-method) (when deactivate-current-input-method-function (deactivate-input-method))) unless evil-no-display when (eq (window-buffer) (current-buffer)) evil-refresh-cursor evil-refresh-mode-line evil-echo-state arg (not evil-no-display) functionp funcall evil-echo "%s" evil-add-command-properties (:keep-visual t :suppress-operator t) evil-define-keymap (:func nil) (:local t :func nil)] 66 (#$ . 38352)])) (byte-code "\300\301\302\303#\300\301\304\305#\306\301\307\310#\210\311\312!\207" [function-put evil-define-state lisp-indent-function defun doc-string-elt 2 put edebug-form-spec (&define name [&optional stringp] [&rest [keywordp sexp]] def-body) provide evil-core] 6)