;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\301\302!\210\303\304\305\306\307\310\311\312\313#\314\310\315\316\315!\203\312\202\317 \320#\321\310\322\312\313#\323\310\324\312\325#\326\310\327\330\331#\332\310\333\312\334#\335\310\336\312\337#\340\310\341\312\342#\343\310\344\312\345#\346\310\347\312\350#\351\312\352\353\354\355\257\356\357\360#\211\203h\211\241\266\202r\357B\211\262B\210\266\312\211\203\210\211@\361\341\"\210A\266\202\202v\210\312\211\203\234\211@\361\344\"\210A\266\202\202\212\207" [evil-state-properties require evil-core :name "Normal state" :toggle evil-normal-state :mode defvar-1 evil-normal-state-minor-mode nil "Non-nil if Normal state is enabled.\nUse the command `evil-normal-state' to change this variable." :keymap evil-normal-state-map boundp make-sparse-keymap "Keymap for Normal state." :local evil-normal-state-local-minor-mode :local-keymap evil-normal-state-local-map "Buffer-local keymap for Normal state." :tag evil-normal-state-tag " " "Mode line tag for Normal state." :message evil-normal-state-message "Echo area message for Normal state." :cursor evil-normal-state-cursor "Cursor for Normal state.\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.\n\nIf set to nil, the value of `evil-default-cursor' is used; if you\nwant the nil `cursor-type' (i.e., you want to disable the cursor),\nset this variable to (list nil)." :entry-hook evil-normal-state-entry-hook "Hooks to run when entering Normal state." :exit-hook evil-normal-state-exit-hook "Hooks to run when exiting Normal state." :modes evil-normal-state-modes "Modes that should come up in Normal state." :input-method :predicate evil-normal-state-p :enable (motion) assoc normal equal add-hook] 30)#@111 Whether the current state is Normal state. (That is, whether `evil-state' is `normal'.) (fn &optional STATE) (defalias 'evil-normal-state-p #[256 "\205 \211\206 \302=\207" [evil-local-mode evil-state normal] 3 (#$ . 1901)])#@148 Enable Normal state. Disable with negative ARG. If ARG is nil, don't display a message in the echo area. AKA "Command" state. (fn &optional ARG) (defalias 'evil-normal-state #[256 "\211\247\2033\211\306W\2033\307\310\311\312!\210\307\313 \210\314 \203,\315\316!\210\317\320\321\307\322$\2021\323\320\321\322#)\207\n\204:\302 \210\310\307\211\324\307!\210\310\325\310\326# \203Y\241\266\202f\310B\211\262B\266\210\310\313 \210 \203v\327 \210!\204\212\330 p=\203\206\331\310!\210\332\310!\210\314 \203\235\315\316!\210\317\320\321\307\322$\210\202\243\323\320\321\322#\210\311\333!\210\"\205\315\211\205\315!?\205\315#\205\315\334#!\203\310# \202\315\335\336#\",\207" [evil-state evil-previous-state evil-local-mode input-method-deactivate-hook input-method-activate-hook evil-next-state 1 nil normal run-hooks evil-normal-state-exit-hook evil-normalize-keymaps evil-normal-state-p overwrite-mode -1 add-hook post-command-hook evil-normal-post-command t remove-hook evil-change-state assoc equal deactivate-input-method window-buffer evil-refresh-cursor evil-refresh-mode-line evil-normal-state-entry-hook functionp evil-echo "%s" evil-previous-state-alist deactivate-current-input-method-function evil-no-display evil-echo-state evil-normal-state-message] 6 (#$ . 2136) nil]) (evil-add-command-properties 'evil-normal-state :keep-visual t :suppress-operator t) (defvar evil-normal-state-map (make-sparse-keymap)) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-normal-state-map variable-documentation put nil] 4) (defvar evil-normal-state-minor-mode nil) (byte-code "\303\304N\204\f\305\303\304\306#\210\307\303!\210\305\303\310\311#\210\312\303\313#\211\203'\211\302\241\266\2021\303\302B\211\262B\210\210\312\303 \313#\n\203E\241\266\202P\303B\211\262 B\266 \207" [evil-global-keymaps-alist evil-mode-map-alist evil-normal-state-map evil-normal-state-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t assoc equal] 4) (defvar evil-normal-state-local-map nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-normal-state-local-map variable-documentation put nil] 4) (defvar evil-normal-state-local-minor-mode nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\301!\210\303\301\306\307#\210\305\310!\210\303\310\306\307#\210\311\301\312#\211\2031\211\310\241\266\202;\301\310B\211\262B\210\207" [evil-local-keymaps-alist evil-normal-state-local-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t evil-normal-state-local-map assoc equal] 4)#@173 Reset command loop variables in Normal state. Also prevent point from reaching the end of the line. If the region is activated, enter Visual state. (fn &optional COMMAND) (defalias 'evil-normal-post-command #[256 "\205(\211\206 \262\306 \205(\307\211\307\211\307\211\n\211\310>\204&\307 \311 \207" [this-command evil-this-type evil-this-operator evil-this-motion evil-this-motion-count evil-inhibit-operator evil-normal-state-p nil (evil-use-register digit-argument negative-argument universal-argument universal-argument-minus universal-argument-more universal-argument-other-key) evil-adjust-cursor evil-inhibit-operator-value evil-this-register] 4 (#$ . 4775)]) (put 'evil-normal-post-command 'permanent-local-hook t)#@572 Remove space from newly opened empty line. This function removes (indentation) spaces that have been inserted by opening a new empty line. The behavior depends on the variable `evil-maybe-remove-spaces'. If this variable is nil the function does nothing. Otherwise the behavior depends on DO-REMOVE. If DO-REMOVE is non-nil the spaces are removed. Otherwise `evil-maybe-remove-spaces' is set to nil unless the last command opened yet another new line. This function should be added as a post-command-hook to track commands opening a new line. (fn &optional DO-REMOVE) (defalias 'evil-maybe-remove-spaces #[256 "\204 \302\303\300\"\207\211\203%\212\304 \210\305\306!)\203\307 \310 |\210\311\302\303\300\"\207 \312>?\2052\311\302\303\300\"\207" [evil-maybe-remove-spaces this-command remove-hook post-command-hook beginning-of-line looking-at "^\\s-*$" line-beginning-position line-end-position nil (evil-open-above evil-open-below evil-append evil-append-line evil-change-whole-line newline newline-and-indent indent-and-newline)] 4 (#$ . 5517)]) (byte-code "\301\302\303\304\305\306\307\310\311#\312\306\313\314\313!\203\310\202\315 \316#\317\306\320\310\311#\321\306\322\310\323#\324\306\325\326\327#\330\306\331\332\333#\334\306\335\336\337#\340\306\341\310\342#\343\306\344\310\345#\346\306\347\310\350#\351\352\353\354\355\310\257\356\357\360#\211\203d\211\241\266\202n\357B\211\262B\210\266\361\211\203\204\211@\362\341\"\210A\266\202\202r\210\363\211\203\230\211@\362\344\"\210A\266\202\202\206\207" [evil-state-properties :name "Insert state" :toggle evil-insert-state :mode defvar-1 evil-insert-state-minor-mode nil "Non-nil if Insert state is enabled.\nUse the command `evil-insert-state' to change this variable." :keymap evil-insert-state-map boundp make-sparse-keymap "Keymap for Insert state." :local evil-insert-state-local-minor-mode :local-keymap evil-insert-state-local-map "Buffer-local keymap for Insert state." :tag evil-insert-state-tag " " "Mode line tag for Insert state." :message evil-insert-state-message "-- INSERT --" "Echo area message for Insert state." :cursor evil-insert-state-cursor (bar . 2) "Cursor for Insert state.\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.\n\nIf set to nil, the value of `evil-default-cursor' is used; if you\nwant the nil `cursor-type' (i.e., you want to disable the cursor),\nset this variable to (list nil)." :entry-hook evil-insert-state-entry-hook "Hooks to run when entering Insert state." :exit-hook evil-insert-state-exit-hook "Hooks to run when exiting Insert state." :modes evil-insert-state-modes "Modes that should come up in Insert state." :input-method t :predicate evil-insert-state-p :enable assoc insert equal (evil-start-track-last-insertion) add-hook (evil-cleanup-insert-state evil-stop-track-last-insertion)] 30)#@111 Whether the current state is Insert state. (That is, whether `evil-state' is `insert'.) (fn &optional STATE) (defalias 'evil-insert-state-p #[256 "\205 \211\206 \302=\207" [evil-local-mode evil-state insert] 3 (#$ . 8477)])#@126 Enable Insert state. Disable with negative ARG. If ARG is nil, don't display a message in the echo area. (fn &optional ARG) (defalias 'evil-insert-state #[256 "\211\247\203o\211\306W\203o\307\310\311\312!\210\307\313 \210\314 \2037\315\316\302\"\210\315\317\320\"\210\321 \321=?\205m\322 \202m\323\316\302\"\210\323\317\320\"\210\302\321!\210\f\324\325\307\321#\210 \321=\204V\326 \210\327&!\204d\330&!\205m\331l\205l'?!)\207\204w\332 \210\310\307\211()&\333\307!\210\310\334\310*\335# \203\231\241\266\202\246\310B\211\262*B*\266*\210\310\313 \210\336+!\210,\204\307\337 p=\203\303\340\310!\210\341\310!\210\314 \203\344\315\316\302\"\210\315\317\320\"\210\321 \321=\204\322 \210\202\323\316\302\"\210\323\317\320\"\210\302\321!\210\f\324\325\307\321#\210 \321=\204\326 \210\327&!\204\330&!\203\331l\205'?!\210\311\342!\210-\205E\211\205E,?\205E.\205E\343.!\203@. \202E\344\345.\",\207" [evil-state evil-previous-state evil-maybe-remove-spaces evil-want-fine-undo evil-repeat-info evil-insert-repeat-info 1 nil insert run-hooks evil-insert-state-exit-hook evil-normalize-keymaps evil-insert-state-p add-hook post-command-hook pre-command-hook evil-insert-repeat-hook t evil-start-undo-step remove-hook evil-set-marker 94 evil-end-undo-step evil-normal-state-p evil-motion-state-p evil-move-cursor-back evil-local-mode evil-change-state assoc equal activate-input-method window-buffer evil-refresh-cursor evil-refresh-mode-line evil-insert-state-entry-hook functionp evil-echo "%s" evil-next-state evil-move-beyond-eol input-method-deactivate-hook input-method-activate-hook evil-previous-state-alist evil-input-method evil-no-display evil-echo-state evil-insert-state-message] 5 (#$ . 8712) nil]) (evil-add-command-properties 'evil-insert-state :keep-visual t :suppress-operator t) (defvar evil-insert-state-map (make-sparse-keymap)) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-insert-state-map variable-documentation put nil] 4) (defvar evil-insert-state-minor-mode nil) (byte-code "\303\304N\204\f\305\303\304\306#\210\307\303!\210\305\303\310\311#\210\312\303\313#\211\203'\211\302\241\266\2021\303\302B\211\262B\210\210\312\303 \313#\n\203E\241\266\202P\303B\211\262 B\266 \207" [evil-global-keymaps-alist evil-mode-map-alist evil-insert-state-map evil-insert-state-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t assoc equal] 4) (defvar evil-insert-state-local-map nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-insert-state-local-map variable-documentation put nil] 4) (defvar evil-insert-state-local-minor-mode nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\301!\210\303\301\306\307#\210\305\310!\210\303\310\306\307#\210\311\301\312#\211\2031\211\310\241\266\202;\301\310B\211\262B\210\207" [evil-local-keymaps-alist evil-insert-state-local-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t evil-insert-state-local-map assoc equal] 4)#@53 Record insertion keys in `evil-insert-repeat-info'. (defalias 'evil-insert-repeat-hook #[0 "\302!\303\304\305\"\207" [evil-repeat-info evil-insert-repeat-info last remove-hook pre-command-hook evil-insert-repeat-hook] 3 (#$ . 11795)]) (put 'evil-insert-repeat-hook 'permanent-local-hook t)#@111 Called when Insert or Replace state is about to be exited. Handles the repeat-count of the insertion command. (defalias 'evil-cleanup-insert-state #[0 "\2030\306\211S\307\211W\203-\306 \203 \310 \210\f\203 \311 \210\312 A!\266\211T\262\202 *\266\203\202<\203C\313\314\"\202E\211G\315U\203Y\211A\262\242\202`\316\317\320GD\"\211A\262\242\242\212\321eb\210\322!\323\\S!\324\325 $#*\266\205\211\326 \207" [evil-insert-count post-command-hook pre-command-hook evil-insert-lines evil-auto-indent evil-insert-repeat-info nil 0 evil-insert-newline-below indent-according-to-mode evil-execute-repeat-info cl-remove-if #[257 "\211\242\206\211\300=\207" [hs] 3 "\n\n(fn X)"] 3 signal wrong-number-of-arguments (line col vcount) combine-change-calls-1 line-beginning-position line-end-position make-closure #[0 "\306\211\300S\307\211W\205^eb\210\302\\y\210 \203)\301\250\203)\212\310 \210i\301Y)\203W\301\250\2036\311\301\312\"\210\2029\301 \210 \206?\313\307\211W\203U\306\314A!\266\211T\262\202@\266\211T\262\202\266\202*\207" [V0 V1 V2 post-command-hook pre-command-hook evil-insert-skip-empty-lines nil 0 evil-move-end-of-line move-to-column t 1 evil-execute-repeat-info evil-insert-count evil-insert-repeat-info] 7] evil-end-undo-step evil-insert-vcount buffer-invisibility-spec evil-want-fine-undo] 12 (#$ . 12093)])#@467 Define a Visual selection SELECTION. Creates a command evil-visual-SELECTION for enabling the selection. DOC is the function's documentation string. The following keywords may be specified in BODY: :message STRING Status message when enabling the selection. :type TYPE Type to use (defaults to SELECTION). Following the keywords is optional code which is executed each time the selection is enabled. (fn SELECTION DOC [[KEY VAL]...] BODY...) (defalias 'evil-define-visual-selection '(macro . #[642 "\300\301\302\"!\300\301\303\"!\300\301\304\"!\305\306\211\211\307 \242!\203L\211A\262\n\242\262\211A\262\n\242\262\310\267\202\262\202\262\202\262\202\202\311\312\313\314\315D\315 DEE\316\n\315 D\301\317\"F\316\nF\316\n F\320 \321\322\205\203C\323\324\325\306\326\327\306\211\330\331\332\333\334\315\"DEE\335F\336BBBBD\337\330\340\341\342\343\344\343E\334\315\"D\257\345BBBBB\257\"BBB\315D\257\207" [intern format "evil-visual-%s" "%s-message" "%s-tag" " " nil keywordp #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:message 55 :type 61 :tag 67)) progn add-to-list 'evil-visual-alist cons quote defvar "*%s" evil-define-command (&optional mark point type message) append :keep-visual t :repeat interactive list if and (evil-visual-state-p) eq evil-visual-selection 'exit (t) (setq evil--region-from-mouse nil) (eq type 'exit) (evil-exit-visual-state) setq type or (evil-visual-make-region mark point type message)] 36 (#$ . 13483)])) (byte-code "\300\301\302\303#\300\301\304\305#\306\301\307\310#\210\311\312\313\314B\"\207" [function-put evil-define-visual-selection lisp-indent-function defun doc-string-elt 2 put edebug-form-spec (&define name stringp [&rest keywordp sexp] def-body) add-to-list evil-visual-alist char evil-visual-char] 6)#@27 *Characterwise selection. (defvar evil-visual-char 'inclusive (#$ . 15362))#@26 Characterwise selection. (defvar evil-visual-char-message "-- VISUAL --" (#$ . 15443))#@26 Characterwise selection. (defvar evil-visual-char-tag " " (#$ . 15535))#@66 Characterwise selection. (fn &optional MARK POINT TYPE MESSAGE) (defalias 'evil-visual-char #[1024 "\303\304=\203 \305 \207\206 \262\306\307$\207" [evil--region-from-mouse evil-visual-char evil-visual-selection nil exit evil-exit-visual-state char evil-visual-make-region] 9 (#$ . 15616) (byte-code "\302\211\303 \203\304=\203\305\202 \306F\207" [evil-visual-selection evil-visual-char nil evil-visual-state-p char exit t] 4)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311B\"\207" [evil-set-command-properties evil-visual-char :keep-visual t :repeat nil add-to-list evil-visual-alist line evil-visual-line] 6)#@22 *Linewise selection. (defvar evil-visual-line 'line (#$ . 16264))#@21 Linewise selection. (defvar evil-visual-line-message "-- VISUAL LINE --" (#$ . 16335))#@21 Linewise selection. (defvar evil-visual-line-tag " " (#$ . 16427))#@61 Linewise selection. (fn &optional MARK POINT TYPE MESSAGE) (defalias 'evil-visual-line #[1024 "\303\304=\203 \305 \207\206 \262\306\307$\207" [evil--region-from-mouse evil-visual-line evil-visual-selection nil exit evil-exit-visual-state line evil-visual-make-region] 9 (#$ . 16504) (byte-code "\302\211\303 \203\304=\203\305\202 \306F\207" [evil-visual-selection evil-visual-line nil evil-visual-state-p line exit t] 4)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311B\"\207" [evil-set-command-properties evil-visual-line :keep-visual t :repeat nil add-to-list evil-visual-alist screen-line evil-visual-screen-line] 6)#@44 *Linewise selection in `visual-line-mode'. (defvar evil-visual-screen-line 'screen-line (#$ . 17161))#@43 Linewise selection in `visual-line-mode'. (defvar evil-visual-screen-line-message "-- SCREEN LINE --" (#$ . 17268))#@43 Linewise selection in `visual-line-mode'. (defvar evil-visual-screen-line-tag " " (#$ . 17389))#@83 Linewise selection in `visual-line-mode'. (fn &optional MARK POINT TYPE MESSAGE) (defalias 'evil-visual-screen-line #[1024 "\303\304=\203 \305 \207\206 \262\306\307$\207" [evil--region-from-mouse evil-visual-screen-line evil-visual-selection nil exit evil-exit-visual-state screen-line evil-visual-make-region] 9 (#$ . 17495) (byte-code "\302\211\303 \203\304=\203\305\202 \306F\207" [evil-visual-selection evil-visual-screen-line nil evil-visual-state-p screen-line exit t] 4)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311B\"\207" [evil-set-command-properties evil-visual-screen-line :keep-visual t :repeat nil add-to-list evil-visual-alist block evil-visual-block] 6)#@23 *Blockwise selection. (defvar evil-visual-block 'block (#$ . 18204))#@22 Blockwise selection. (defvar evil-visual-block-message "-- VISUAL BLOCK --" (#$ . 18278))#@22 Blockwise selection. (defvar evil-visual-block-tag " " (#$ . 18373))#@62 Blockwise selection. (fn &optional MARK POINT TYPE MESSAGE) (defalias 'evil-visual-block #[1024 "\304\305=\203 \306 \207\206 \262\307\310$\210\311\312!\210\313 \314\315 #\211\207" [evil--region-from-mouse evil-visual-block evil-visual-selection evil-visual-properties nil exit evil-exit-visual-state block evil-visual-make-region evil-transient-mark -1 plist-put :corner evil-visual-block-corner] 9 (#$ . 18452) (byte-code "\302\211\303 \203\304=\203\305\202 \306F\207" [evil-visual-selection evil-visual-block nil evil-visual-state-p block exit t] 4)]) (byte-code "\301\302\303\304\305\306%\210\307\310\311\312\313\314\315\306\316#\317\314\320\321\320!\203\306\202!\322 \323#\324\314\325\306\316#\326\314\327\306\330#\331\314\332\333\334#\335\314\336\337\340#\341\314\342\306\343#\344\314\345\306\346#\347\314\350\306\351#\352\314\353\306\354#\355\306\356\357\360\361\257\362\363\364#\211\203l\211\241\266\202v\363B\211\262B\210\266\306\211\203\214\211@\365\345\"\210A\266\202\202z\210\306\211\203\240\211@\365\350\"\210A\266\202\202\216\207" [evil-state-properties evil-set-command-properties evil-visual-block :keep-visual t :repeat nil :name "Visual state" :toggle evil-visual-state :mode defvar-1 evil-visual-state-minor-mode "Non-nil if Visual state is enabled.\nUse the command `evil-visual-state' to change this variable." :keymap evil-visual-state-map boundp make-sparse-keymap "Keymap for Visual state." :local evil-visual-state-local-minor-mode :local-keymap evil-visual-state-local-map "Buffer-local keymap for Visual state." :tag evil-visual-state-tag evil-visual-tag "Mode line tag for Visual state." :message evil-visual-state-message evil-visual-message "Echo area message for Visual state." :cursor evil-visual-state-cursor "Cursor for Visual state.\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.\n\nIf set to nil, the value of `evil-default-cursor' is used; if you\nwant the nil `cursor-type' (i.e., you want to disable the cursor),\nset this variable to (list nil)." :entry-hook evil-visual-state-entry-hook "Hooks to run when entering Visual state." :exit-hook evil-visual-state-exit-hook "Hooks to run when exiting Visual state." :modes evil-visual-state-modes "Modes that should come up in Visual state." :input-method :predicate evil-visual-state-p :enable (motion normal) assoc visual equal add-hook] 30)#@111 Whether the current state is Visual state. (That is, whether `evil-state' is `visual'.) (fn &optional STATE) (defalias 'evil-visual-state-p #[256 "\205 \211\206 \302=\207" [evil-local-mode evil-state visual] 3 (#$ . 20952)])#@126 Enable Visual state. Disable with negative ARG. If ARG is nil, don't display a message in the echo area. (fn &optional ARG) (defalias 'evil-visual-state #[256 "\211\247\203\233\211\306W\203\233\307\310\311\312!\210\307\313 \210\314 \203h\315 \210\307\316 \203K\317 \320W\203=\321\322 \323 \317 $\210\202E\324\325\326!` #\210\327 \210\202Q\330`` #\210\331\332\333\307\326$\210\331\334\335\307\326$\210\331\336\337\307\326$\202\231\f\340=\203~ \341=\203~\331\342\337\307\326$\210\202\201\337 \210\3071\343\332\333\326#\210\343\334\335\326#\210\343\336\337\326#\210\327\344!)\207%\204\243\345 \210\310\307\21123\346\307!\210\310\347\3104\350# \203\304\241\266\202\321\310B\211\2624B4\2664\210\310\313 \2105\203\341\351 \2106\204\365\352 p=\203\361\353\310!\210\354\310!\210\314 \203D\315 \210\307\316 \203&\317 \320W\203\321\322 \323 \317 $\210\202 \324\325\326!` #\210\327 \210\202,\330`` #\210\331\332\333\307\326$\210\331\334\335\307\326$\210\331\336\337\307\326$\210\202v\f\340=\203Z \341=\203Z\331\342\337\307\326$\210\202]\337 \210\3071\343\332\333\326#\210\343\334\335\326#\210\343\336\337\326#\210\327\344!\210\311\355!\2107\205\240\211\205\2406?\205\2408\205\240\3568!\203\2338 \202\240\357\3608\",\207" [evil-state evil-previous-state select-active-regions evil-visual-char evil-next-state evil-visual-selection 1 nil visual run-hooks evil-visual-state-exit-hook evil-normalize-keymaps evil-visual-state-p evil-save-transient-mark-mode region-active-p evil-visual-direction 0 evil-visual-select region-beginning region-end evil-visual-make-selection mark t evil-visual-highlight evil-visual-make-region add-hook pre-command-hook evil-visual-pre-command post-command-hook evil-visual-post-command deactivate-mark-hook evil-visual-deactivate-hook insert char evil-normal-state-entry-hook remove-hook -1 evil-local-mode evil-change-state assoc equal deactivate-input-method window-buffer evil-refresh-cursor evil-refresh-mode-line evil-visual-state-entry-hook functionp evil-echo "%s" evil-visual-region-expanded input-method-deactivate-hook input-method-activate-hook evil-previous-state-alist deactivate-current-input-method-function evil-no-display evil-echo-state evil-visual-state-message] 6 (#$ . 21188) nil]) (evil-add-command-properties 'evil-visual-state :keep-visual t :suppress-operator t) (defvar evil-visual-state-map (make-sparse-keymap)) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-visual-state-map variable-documentation put nil] 4) (defvar evil-visual-state-minor-mode nil) (byte-code "\303\304N\204\f\305\303\304\306#\210\307\303!\210\305\303\310\311#\210\312\303\313#\211\203'\211\302\241\266\2021\303\302B\211\262B\210\210\312\303 \313#\n\203E\241\266\202P\303B\211\262 B\266 \207" [evil-global-keymaps-alist evil-mode-map-alist evil-visual-state-map evil-visual-state-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t assoc equal] 4) (defvar evil-visual-state-local-map nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-visual-state-local-map variable-documentation put nil] 4) (defvar evil-visual-state-local-minor-mode nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\301!\210\303\301\306\307#\210\305\310!\210\303\310\306\307#\210\311\301\312#\211\2031\211\310\241\266\202;\301\310B\211\262B\210\207" [evil-local-keymaps-alist evil-visual-state-local-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t evil-visual-state-local-map assoc equal] 4)#@129 Run before each COMMAND in Visual state. Expand the region to the selection unless COMMAND is a motion. (fn &optional COMMAND) (defalias 'evil-visual-pre-command #[256 "\306 \205S\211\206\n\262 \203 \n\203 \307 \"\204 \310\311 \207 \2033\n\2033\307 \"\2033\310\211 \203;\312 !\210\313\314\"?\205S\315 \210\316\317 \320=\205R\313\321\"!\207" [this-command evil-transient-mouse-selection evil--region-from-mouse evil-visual-alist evil-visual-selection evil-visual-x-select-timer evil-visual-state-p rassq nil evil-exit-visual-state cancel-timer evil-get-command-property :keep-visual evil-visual-update-x-selection evil-visual-expand-region evil-visual-type line :exclude-newline] 6 (#$ . 24789)]) (put 'evil-visual-pre-command 'permanent-local-hook t)#@141 Run after each COMMAND in Visual state. If COMMAND is a motion, refresh the selection; otherwise exit Visual state. (fn &optional COMMAND) (defalias 'evil-visual-post-command #[256 "\306 \205K\211\206\n\262 \204-\211\307>\204-\n\204- \2043\310 \2043\f\311=\2043 \2033\312 \210\313 \207 \203=\314 \210\202@\315 \210\316\317\320p$\321 \207" [this-command quit-flag deactivate-mark evil-visual-region-expanded evil-visual-selection transient-mark-mode evil-visual-state-p (keyboard-quit keyboard-escape-quit) region-active-p block evil-exit-visual-state evil-adjust-cursor evil-visual-contract-region evil-visual-refresh run-with-idle-timer nil evil-visual-update-x-selection evil-visual-highlight evil-visual-x-select-timeout evil-visual-x-select-timer] 6 (#$ . 25567)]) (put 'evil-visual-post-command 'permanent-local-hook t)#@89 Update the X selection with the current visual region of BUFFER. (fn &optional BUFFER) (defalias 'evil-visual-update-x-selection #[256 "\211\206p\205,\304!\205,\305 \205,\306 \205, \307=?\205,r\211q\210\310\311\312\n \"\")\207" [evil-visual-update-x-selection-p evil-visual-selection evil-visual-beginning evil-visual-end buffer-live-p evil-visual-state-p display-selections-p block evil-set-selection PRIMARY buffer-substring-no-properties] 7 (#$ . 26415)])#@73 Enable Visual state if the region is activated. (fn &optional COMMAND) (defalias 'evil-visual-activate-hook #[256 "\300 ?\205\301\302!\303\304\"M\210\305\306\307#\210\310\311\312\307$\266\202\207" [evil-visual-state-p make-symbol "evil-activate-visual-state" apply-partially #[385 "\301\302\303#\210\304 \204!\305 \204!\306 \204!\307 \203!\204!\310 \210\303\207" [deactivate-mark remove-hook post-command-hook t evil-visual-state-p evil-insert-state-p evil-emacs-state-p region-active-p evil-visual-state] 6 "\n\n(fn NAME &rest _)"] put permanent-local-hook t add-hook post-command-hook nil] 8 (#$ . 26889)]) (put 'evil-visual-activate-hook 'permanent-local-hook t)#@80 Deactivate the region and restore Transient Mark mode. (fn &optional COMMAND) (defalias 'evil-visual-deactivate-hook #[256 "\211\206\262\302\303\304\305#\210\302\306\304\305#\210\307 \203(\211\203(\310\311\"\204(\312\313 \207\307 ?\2054\314\315!\210\316 \207" [this-command evil-visual-region-expanded remove-hook deactivate-mark-hook evil-visual-deactivate-hook t evil-normal-state-entry-hook evil-visual-state-p evil-get-command-property :keep-visual nil evil-exit-visual-state evil-active-region -1 evil-restore-transient-mark-mode] 5 (#$ . 27575)]) (put 'evil-visual-deactivate-hook 'permanent-local-hook t)#@129 Exit from Visual state to the previous state. If LATER is non-nil, exit after the current command. (fn &optional LATER BUFFER) (defalias 'evil-exit-visual-state #[512 "r\211\206pq\210\306 \205/\203\307\211\202/ \203\310 \210\311 \312 !\f\312 !\313 )\207" [deactivate-mark evil-visual-region-expanded evil-this-register evil-visual-selection evil-prev-visual-selection evil-visual-mark evil-visual-state-p t evil-visual-contract-region nil copy-marker evil-change-to-previous-state evil-prev-visual-mark evil-visual-point evil-prev-visual-point] 4 (#$ . 28204) nil]) (evil-set-command-properties 'evil-exit-visual-state :keep-visual t :repeat 'abort)#@179 Return a mode-line tag for SELECTION. SELECTION is a kind of selection as defined by `evil-define-visual-selection', such as `char', `line' or `block'. (fn &optional SELECTION) (defalias 'evil-visual-tag #[256 "\211\206\262\211\205\301\302\303\"!J\207" [evil-visual-selection intern format "evil-visual-%s-tag"] 5 (#$ . 28877)])#@184 Create an echo area message for SELECTION. SELECTION is a kind of selection as defined by `evil-define-visual-selection', such as `char', `line' or `block'. (fn &optional SELECTION) (defalias 'evil-visual-message #[256 "\211\204\262\211\205(\301\302\303\"!J\304!\203\211 \202&\211;\205&\305\306\"\262\207" [evil-visual-selection intern format "evil-visual-%s-message" functionp evil-echo "%s"] 5 (#$ . 29220)])#@327 Create a Visual selection of type TYPE from BEG to END. Point and mark are positioned so that the resulting selection has the specified boundaries. If DIR is negative, point precedes mark, otherwise it succedes it. To specify point and mark directly, use `evil-visual-make-selection'. (fn BEG END &optional TYPE DIR MESSAGE) (defalias 'evil-visual-select #[1282 "\300#\301!\302!\206\303\211\304W\203\262\262\305 $\207" [evil-contract evil-range-beginning evil-range-end 1 0 evil-visual-make-selection] 14 (#$ . 29651)])#@269 Create a Visual selection with point at POINT and mark at MARK. The boundaries of the selection are inferred from these and the current TYPE. To specify the boundaries and infer mark and point, use `evil-visual-select' instead. (fn MARK POINT &optional TYPE MESSAGE) (defalias 'evil-visual-make-selection #[1026 "\302!\303!\304 \205\f\305!\305! \304 \204\306 \210\n\304!\2033 =?\2055\n$\207" [evil-visual-selection evil-state evil-visual-selection-for-type evil-visual-selection-function evil-visual-state-p evil-normalize-position evil-visual-state] 16 (#$ . 30197)])#@179 Create an active region from MARK to POINT. If TYPE is given, also set the Visual type. If MESSAGE is given, display it in the echo area. (fn MARK POINT &optional TYPE MESSAGE) (defalias 'evil-visual-make-region #[1026 "\206`\206\303 \204\304 \203\305\306!\206\211\303 \204\"\307 \210\310\311!\210\312\313#\210 ?\206T;\203>\314\315\"\207\205T\n;\203L\314\315\n\"\207\316\n!\205T\n \207" [evil-visual-region-expanded evil-echo-state evil-visual-state-message evil-visual-state-p region-active-p mark t evil-visual-state evil-active-region 1 nil evil-visual-refresh evil-echo "%s" functionp] 10 (#$ . 30796) nil])#@183 Expand the region to the Visual selection. If EXCLUDE-NEWLINE is non-nil and the selection ends with a newline, exclude that newline from the region. (fn &optional EXCLUDE-NEWLINE) (defalias 'evil-visual-expand-region #[256 "\304 \205F?\205F \n \305W\203\211\262\262\306\307\"\210\205D\212\nb\210n\205-o?)\205D \305W\203?\310\311 S]!\207`S]b\266\202\207" [evil-visual-region-expanded evil-visual-beginning evil-visual-end evil-visual-direction evil-visual-state-p 0 t evil-visual-refresh evil-move-mark mark] 6 (#$ . 31441)])#@107 The inverse of `evil-visual-expand-region'. Create a Visual selection that expands to the current region. (defalias 'evil-visual-contract-region #[0 "\303 \210\304\303 \n\"\207" [evil-visual-region-expanded evil-visual-mark evil-visual-point evil-visual-refresh nil] 3 (#$ . 31992)])#@284 Refresh point, mark and Visual variables. Refreshes `evil-visual-beginning', `evil-visual-end', `evil-visual-mark', `evil-visual-point', `evil-visual-selection', `evil-visual-direction', `evil-visual-properties' and `evil-this-type'. (fn &optional MARK POINT TYPE &rest PROPERTIES) (defalias 'evil-visual-refresh #[896 "\206`\206\306\307!\206\211\310 \206\311!\206\311 \312\313!\210b\210 \2066\314 \211^\312\223\262\n\206L\314 \315\307\"\210\211]\312\223\262 \206Y\314 \211\312\223\262\f\206g\314 \211\312\223\262\316 \"\203\276\311 \206y\262 ^\312\223\210\n]\312\223\210\317\320\"\203\347\321\322 %\262\323!\262\324!\262\325W\203\261\262\262 \312\223\210\f\312\223\210\202\347\321\326 %\262\327\"\262 \323!\312\223\210\n\324!\312\223\210 \312\223\210\f\312\223\210\211\207" [evil-visual-selection evil-visual-beginning evil-visual-end evil-visual-mark evil-visual-point evil-visual-properties mark t evil-visual-direction evil-visual-type nil evil-move-mark make-marker set-marker-insertion-type evil-concat-plists evil-type-property :one-to-one apply evil-contract evil-range-beginning evil-range-end 0 evil-expand evil-type evil-visual-region-expanded evil-this-type] 15 (#$ . 32283)])#@120 Highlight Visual selection, depending on the Visual type. With negative ARG, disable highlighting. (fn &optional ARG) (defalias 'evil-visual-highlight #[256 "\211\247\203\"\211\305W\203\"\203\306!\210\307 \205Z\310\306 \"\210\307\211\207\n\311=\2035\2030\312\313!\210\314 \f\"\207 \203=\312\313!\210\203J\315 \f#\210\202O\316 \f\"\317\320\321#\210\317\322\323#\207" [evil-visual-overlay evil-visual-block-overlays evil-visual-selection evil-visual-beginning evil-visual-end 1 delete-overlay nil mapc block evil-visual-highlight -1 evil-visual-highlight-block move-overlay make-overlay overlay-put face region priority 99] 5 (#$ . 33572)])#@257 Highlight rectangular region from BEG to END. Do this by putting an overlay on each line within the rectangle. Each overlay extends across all the columns of the rectangle. Reuse overlays where possible to prevent flicker. (fn BEG END &optional OVERLAYS) (defalias 'evil-visual-highlight-block #[770 "`\206\303\211J\304\211\211\211\211\211\211\212\305 !\262\305\f!\262Y\203OU\2033T\262\202:\262\262\fb\210\306!\262  b\210\306\307\"\262\f\310>\203^ \n=\203^\n\262\311\312!\210\313  ]\262\314 \fT^\262\315d^\"\262b\210\312\211W\203\236\304\211\211\211\211\306 !\210i W\203\251\316\317iZ\320\"\321\322`S\321\"\206\246\323#\262`\262\306\f!\210l\204\373i\fW\203\373\316\317`U\203\314 Z\202\320 iZ\320\"\321\324#\262U\203\355\325\312G\307^\326\327%\210\202\373\325\312GS]G\326\327%\210`\330 ^\262 \203. @\211\262\n\203.\331 !W\203.\332 !U\204.\333 !\210 A\262\202 \203u @\211\262\n\203u\331 !U\204N\332 !U\203u\334 #\210\335 \336#\210\335 \337#\210 B\262  A\262\266\202\223\340\"\262 \335 \336#\210\335 \337#\210 B\262 \266\307y\266\211T\262\202}\210\211\203\271\211@\335\321\324#\210\335\341\342#\210A\266\202\202\240\210\211\203\315\211@\333!\210A\266\202\202\274\210\237L)\207" [this-command temporary-goal-column most-positive-fixnum evil-visual-block-overlays nil evil-column evil-move-to-column 1 (next-line previous-line evil-use-register) sit-for 0 window-start window-end count-lines propertize make-string 32 face get-text-property default region put-text-property cursor t line-end-position overlay-start overlay-end delete-overlay move-overlay overlay-put before-string after-string make-overlay priority 99] 25 (#$ . 34238)])#@267 Return the Visual selection as a range. This is a list (BEG END TYPE PROPERTIES...), where BEG is the beginning of the selection, END is the end of the selection, TYPE is the selection's type, and PROPERTIES is a property list of miscellaneous selection attributes. (defalias 'evil-visual-range #[0 "\303\304 \305 \306\307\n&\207" [evil-visual-beginning evil-visual-end evil-visual-properties apply evil-range evil-visual-type :expanded t] 8 (#$ . 36025)])#@195 Return direction of Visual selection. The direction is -1 if point precedes mark and 1 otherwise. See also the variable `evil-visual-direction', which holds the direction of the last selection. (defalias 'evil-visual-direction #[0 "`\300\301!\206\211W\203\302\207\303\207" [mark t -1 1] 4 (#$ . 36490)])#@128 Return the type of the Visual selection. If SELECTION is specified, return the type of that instead. (fn &optional SELECTION) (defalias 'evil-visual-type #[256 "\211\204 \303 \203 \206\211\206 \n\236AJ\207" [evil-this-type evil-visual-selection evil-visual-alist evil-visual-state-p] 3 (#$ . 36806)])#@162 Go to the last line of the Visual selection. This position may differ from `evil-visual-end' depending on the selection type, and is contained in the selection. (defalias 'evil-visual-goto-end #[0 "\300\301 !\302!b\207" [evil-contract-range evil-visual-range evil-range-end] 3 (#$ . 37121)])#@61 Return an association list from types to selection symbols. (defalias 'evil-visual-alist #[0 "\301\302\"\207" [evil-visual-alist mapcar #[257 "\211\243J\243B\207" [] 3 "\n\n(fn E)"]] 3 (#$ . 37419)])#@93 Return a selection function for TYPE. Default to `evil-visual-make-region'. (fn SELECTION) (defalias 'evil-visual-selection-function #[257 "\211\236\243\206\301\207" [evil-visual-alist evil-visual-make-region] 3 (#$ . 37626)])#@48 Return a Visual selection for TYPE. (fn TYPE) (defalias 'evil-visual-selection-for-type #[257 "\3012'\211\205$\211@\211AJ\302!D>\203\303\301@\"\210A\266\202\202\2620\207" [evil-visual-alist done evil-visual-type throw] 7 (#$ . 37862)])#@460 Block corner corresponding to POINT, with MARK in opposite corner. Depending on POINT and MARK, the return value is `upper-left', `upper-right', `lower-left' or `lower-right': upper-left +---+ upper-right | | lower-left +---+ lower-right One-column or one-row blocks are ambiguous. In such cases, the horizontal or vertical component of CORNER is used. CORNER defaults to `upper-left'. (fn &optional CORNER POINT MARK) (defalias 'evil-visual-block-corner #[768 "\206`\206\f\301\302!\206\203\303\304\"\206\305\306!\306!\212^b\210\307\310]\302#)\203;W\202>\311>U\203J\312>\202MW\203Y\211\203W\305\207\313\207\211\203_\314\207\315\207" [evil-visual-overlay mark t overlay-get :corner upper-left evil-column search-forward "\n" (upper-left upper-right) (upper-left lower-left) upper-right lower-left lower-right] 12 (#$ . 38117)]) (byte-code "\301\302\303\304\305\306\307\310\311#\312\306\313\314\313!\203\310\202\315 \316#\317\306\320\310\311#\321\306\322\310\323#\324\306\325\326\327#\330\306\331\310\332#\333\306\334\335\336#\337\306\340\310\341#\342\306\343\310\344#\345\306\346\310\347#\350\310\351\352\353\354\257\355\356\357#\211\203d\211\241\266\202n\356B\211\262B\210\266\310\211\203\204\211@\360\340\"\210A\266\202\202r\210\310\211\203\230\211@\360\343\"\210A\266\202\202\206\207" [evil-state-properties :name "Operator-Pending state" :toggle evil-operator-state :mode defvar-1 evil-operator-state-minor-mode nil "Non-nil if Operator-Pending state is enabled.\nUse the command `evil-operator-state' to change this variable." :keymap evil-operator-state-map boundp make-sparse-keymap "Keymap for Operator-Pending state." :local evil-operator-state-local-minor-mode :local-keymap evil-operator-state-local-map "Buffer-local keymap for Operator-Pending state." :tag evil-operator-state-tag " " "Mode line tag for Operator-Pending state." :message evil-operator-state-message "Echo area message for Operator-Pending state." :cursor evil-operator-state-cursor evil-half-cursor "Cursor for Operator-Pending state.\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.\n\nIf set to nil, the value of `evil-default-cursor' is used; if you\nwant the nil `cursor-type' (i.e., you want to disable the cursor),\nset this variable to (list nil)." :entry-hook evil-operator-state-entry-hook "Hooks to run when entering Operator-Pending state." :exit-hook evil-operator-state-exit-hook "Hooks to run when exiting Operator-Pending state." :modes evil-operator-state-modes "Modes that should come up in Operator-Pending state." :input-method :predicate evil-operator-state-p :enable (evil-operator-shortcut-map operator motion normal) assoc operator equal add-hook] 30)#@123 Whether the current state is Operator-Pending state. (That is, whether `evil-state' is `operator'.) (fn &optional STATE) (defalias 'evil-operator-state-p #[256 "\205 \211\206 \302=\207" [evil-local-mode evil-state operator] 3 (#$ . 41002)])#@136 Enable Operator-Pending state. Disable with negative ARG. If ARG is nil, don't display a message in the echo area. (fn &optional ARG) (defalias 'evil-operator-state #[256 "\211\247\203\211\306W\203\307\310\311\312!\210\307\313 )\207\n\204\"\302 \210\310\307\211\314\307!\210\310\315\310\316# \203A\241\266\202N\310B\211\262B\266\210\310\313 \210\203^\317 \210\204r\320 p=\203n\321\310!\210\322\310!\210\311\323!\210\205\234\211\205\234?\205\234\205\234\324!\203\227 \202\234\325\326\",\207" [evil-state evil-previous-state evil-local-mode input-method-deactivate-hook input-method-activate-hook evil-next-state 1 nil operator run-hooks evil-operator-state-exit-hook evil-normalize-keymaps evil-change-state assoc equal deactivate-input-method window-buffer evil-refresh-cursor evil-refresh-mode-line evil-operator-state-entry-hook functionp evil-echo "%s" evil-previous-state-alist deactivate-current-input-method-function evil-no-display evil-echo-state evil-operator-state-message] 5 (#$ . 41254) nil]) (evil-add-command-properties 'evil-operator-state :keep-visual t :suppress-operator t) (defvar evil-operator-state-map (make-sparse-keymap)) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-operator-state-map variable-documentation put nil] 4) (defvar evil-operator-state-minor-mode nil) (byte-code "\303\304N\204\f\305\303\304\306#\210\307\303!\210\305\303\310\311#\210\312\303\313#\211\203'\211\302\241\266\2021\303\302B\211\262B\210\210\312\303 \313#\n\203E\241\266\202P\303B\211\262 B\266 \207" [evil-global-keymaps-alist evil-mode-map-alist evil-operator-state-map evil-operator-state-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t assoc equal] 4) (defvar evil-operator-state-local-map nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-operator-state-local-map variable-documentation put nil] 4) (defvar evil-operator-state-local-minor-mode nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\301!\210\303\301\306\307#\210\305\310!\210\303\310\306\307#\210\311\301\312#\211\2031\211\310\241\266\202;\301\310B\211\262B\210\207" [evil-local-keymaps-alist evil-operator-state-local-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t evil-operator-state-local-map assoc equal] 4) (defvar evil-operator-shortcut-map nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [evil-operator-shortcut-map variable-documentation put "Keymap for Operator-Pending shortcuts like \"dd\" and \"gqq\"."] 4) (defvar evil-operator-shortcut-mode nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\301!\210\303\301\306\307#\210\305\310!\210\303\310\306\307#\210\311\301\312#\211\2031\211\310\241\266\202;\301\310B\211\262B\210\207" [evil-local-keymaps-alist evil-operator-shortcut-mode variable-documentation put "Keymap for Operator-Pending shortcuts like \"dd\" and \"gqq\"." make-variable-buffer-local permanent-local t evil-operator-shortcut-map assoc equal] 4)#@80 Keymap for Operator-Pending shortcuts like "dd" and "gqq". (fn &optional ARG) (defalias 'evil-operator-shortcut-mode #[256 "\211\247\203\f\211\302V\202?\303 \304 \207" [evil-operator-shortcut-mode evil-operator-shortcut-map 0 make-sparse-keymap evil-initialize-local-keymaps] 3 (#$ . 44343) nil])#@83 Change cursor to a half-height box. (This is really just a thick horizontal bar.) (defalias 'evil-half-cursor #[0 "\301 \302 \303_\245\304B\211\207" [cursor-type window-pixel-height window-height 2 hbar] 3 (#$ . 44653)]) (byte-code "\301\302\303\304\305\306\307\310\311#\312\306\313\314\313!\203\310\202\315 \316#\317\306\320\310\311#\321\306\322\310\323#\324\306\325\326\327#\330\306\331\332\333#\334\306\335\336\337#\340\306\341\310\342#\343\306\344\310\345#\346\306\347\310\350#\351\352\353\354\355\310\257\356\357\360#\211\203d\211\241\266\202n\357B\211\262B\210\266\361\211\203\204\211@\362\341\"\210A\266\202\202r\210\363\211\203\230\211@\362\344\"\210A\266\202\202\206\207" [evil-state-properties :name "Replace state" :toggle evil-replace-state :mode defvar-1 evil-replace-state-minor-mode nil "Non-nil if Replace state is enabled.\nUse the command `evil-replace-state' to change this variable." :keymap evil-replace-state-map boundp make-sparse-keymap "Keymap for Replace state." :local evil-replace-state-local-minor-mode :local-keymap evil-replace-state-local-map "Buffer-local keymap for Replace state." :tag evil-replace-state-tag " " "Mode line tag for Replace state." :message evil-replace-state-message "-- REPLACE --" "Echo area message for Replace state." :cursor evil-replace-state-cursor hbar "Cursor for Replace state.\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.\n\nIf set to nil, the value of `evil-default-cursor' is used; if you\nwant the nil `cursor-type' (i.e., you want to disable the cursor),\nset this variable to (list nil)." :entry-hook evil-replace-state-entry-hook "Hooks to run when entering Replace state." :exit-hook evil-replace-state-exit-hook "Hooks to run when exiting Replace state." :modes evil-replace-state-modes "Modes that should come up in Replace state." :input-method t :predicate evil-replace-state-p :enable assoc replace equal (evil-start-track-last-insertion) add-hook (evil-cleanup-insert-state evil-stop-track-last-insertion)] 30)#@113 Whether the current state is Replace state. (That is, whether `evil-state' is `replace'.) (fn &optional STATE) (defalias 'evil-replace-state-p #[256 "\205 \211\206 \302=\207" [evil-local-mode evil-state replace] 3 (#$ . 46799)])#@127 Enable Replace state. Disable with negative ARG. If ARG is nil, don't display a message in the echo area. (fn &optional ARG) (defalias 'evil-replace-state #[256 "\211\247\203c\211\306W\203c\307\310\311\312!\210\307\313 \210\314 \203;\315\306!\210\316\317\320\307\321$\210\316\317\322\"\210\n\321=\204^\323 \210\202^\315\324!\210\325\317\320\321#\210\325\317\322\"\210 \326\327\307\321#\210\n\321=\204[\330 \210\331 \210\307\211)\207\204k\332 \210\310\307\211&'(\333\307!\210\310\334\310)\335# \203\215\241\266\202\232\310B\211\262)B)\266)\210\310\313 \210\336*!\210+\204\273\337 p=\203\267\340\310!\210\341\310!\210\314 \203\334\315\306!\210\316\317\320\307\321$\210\316\317\322\"\210\n\321=\204\377\323 \210\202\377\315\324!\210\325\317\320\321#\210\325\317\322\"\210 \326\327\307\321#\210\n\321=\204\374\330 \210\331 \210\307\311\342!\210,\205+\211\205++?\205+-\205+\343-!\203&- \202+\344\345-\",\207" [evil-state evil-previous-state evil-want-fine-undo evil-repeat-info evil-insert-repeat-info evil-replace-alist 1 nil replace run-hooks evil-replace-state-exit-hook evil-normalize-keymaps evil-replace-state-p overwrite-mode add-hook pre-command-hook evil-replace-pre-command t evil-insert-repeat-hook evil-start-undo-step -1 remove-hook evil-set-marker 94 evil-end-undo-step evil-move-cursor-back evil-local-mode evil-change-state assoc equal activate-input-method window-buffer evil-refresh-cursor evil-refresh-mode-line evil-replace-state-entry-hook functionp evil-echo "%s" input-method-deactivate-hook input-method-activate-hook evil-next-state evil-previous-state-alist evil-input-method evil-no-display evil-echo-state evil-replace-state-message] 6 (#$ . 47039) nil]) (evil-add-command-properties 'evil-replace-state :keep-visual t :suppress-operator t) (defvar evil-replace-state-map (make-sparse-keymap)) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-replace-state-map variable-documentation put nil] 4) (defvar evil-replace-state-minor-mode nil) (byte-code "\303\304N\204\f\305\303\304\306#\210\307\303!\210\305\303\310\311#\210\312\303\313#\211\203'\211\302\241\266\2021\303\302B\211\262B\210\210\312\303 \313#\n\203E\241\266\202P\303B\211\262 B\266 \207" [evil-global-keymaps-alist evil-mode-map-alist evil-replace-state-map evil-replace-state-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t assoc equal] 4) (defvar evil-replace-state-local-map nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-replace-state-local-map variable-documentation put nil] 4) (defvar evil-replace-state-local-minor-mode nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\301!\210\303\301\306\307#\210\305\310!\210\303\310\306\307#\210\311\301\312#\211\2031\211\310\241\266\202;\301\310B\211\262B\210\207" [evil-local-keymaps-alist evil-replace-state-local-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t evil-replace-state-local-map assoc equal] 4)#@37 Remember the character under point. (defalias 'evil-replace-pre-command #[0 "\301 \205\"l?\205\f\302f`\236\211\203\211\241\202 `BB\211\266\202\207" [evil-replace-alist evil-replace-state-p nil] 4 (#$ . 50095)]) (put 'evil-replace-pre-command 'permanent-local-hook t)#@33 Restore character under cursor. (defalias 'evil-replace-backspace #[0 "\302u\210`\236\211A\303\205\304\305!\210\211\205\212\211c))\207" [evil-replace-alist this-command -1 evil-replace-backspace delete-char 1] 4 (#$ . 50377) nil])#@243 Add CHARS-TO-DELETE chars to evil-replace-alist, starting at OPOINT. If COUNT is greater than CHARS-TO-DELETE, pad the alist with nils. Decrement recorded position by optional offset, or 0. (fn OPOINT COUNT CHARS-TO-DELETE &optional OFFSET) (defalias 'evil-update-replace-alist #[1027 "\300 \205.\301\211W\205,\211\\\302\303\206\301ZW\205!fB\"\266\211T\262\202\262\207" [evil-replace-state-p 0 add-to-list evil-replace-alist] 11 (#$ . 50621)]) (byte-code "\303\304\305\306\307\310\311\312\313#\314\310\301\315\301!\203\312\202\316 \317#\320\310\321\312\313#\322\310\323\312\324#\325\310\326\327\330#\331\310\332\312\333#\334\310\335\312\336#\337\310\340\312\341#\342\310\343\312\344#\345\310\346\312\347#\350\312\351\352\353\312\257\354\355\356#\211\203d\211\241\266\202n\355B\211\262B\210\266\357 \n\"\210\312\211\203\211\211@\360\340\"\210A\266\202\202w\210\312\211\203\235\211@\360\343\"\210A\266\202\202\213\207" [evil-state-properties evil-motion-state-map evil-suppress-map :name "Motion state" :toggle evil-motion-state :mode defvar-1 evil-motion-state-minor-mode nil "Non-nil if Motion state is enabled.\nUse the command `evil-motion-state' to change this variable." :keymap boundp make-sparse-keymap "Keymap for Motion state." :local evil-motion-state-local-minor-mode :local-keymap evil-motion-state-local-map "Buffer-local keymap for Motion state." :tag evil-motion-state-tag " " "Mode line tag for Motion state." :message evil-motion-state-message "Echo area message for Motion state." :cursor evil-motion-state-cursor "Cursor for Motion state.\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.\n\nIf set to nil, the value of `evil-default-cursor' is used; if you\nwant the nil `cursor-type' (i.e., you want to disable the cursor),\nset this variable to (list nil)." :entry-hook evil-motion-state-entry-hook "Hooks to run when entering Motion state." :exit-hook evil-motion-state-exit-hook "Hooks to run when exiting Motion state." :modes evil-motion-state-modes "Modes that should come up in Motion state." :input-method :predicate evil-motion-state-p :enable assoc motion equal set-keymap-parent add-hook] 30)#@111 Whether the current state is Motion state. (That is, whether `evil-state' is `motion'.) (fn &optional STATE) (defalias 'evil-motion-state-p #[256 "\205 \211\206 \302=\207" [evil-local-mode evil-state motion] 3 (#$ . 52916)])#@126 Enable Motion state. Disable with negative ARG. If ARG is nil, don't display a message in the echo area. (fn &optional ARG) (defalias 'evil-motion-state #[256 "\211\247\203\211\306W\203\307\310\311\312!\210\307\313 )\207\n\204\"\302 \210\310\307\211\314\307!\210\310\315\310\316# \203A\241\266\202N\310B\211\262B\266\210\310\313 \210\203^\317 \210\204r\320 p=\203n\321\310!\210\322\310!\210\311\323!\210\205\234\211\205\234?\205\234\205\234\324!\203\227 \202\234\325\326\",\207" [evil-state evil-previous-state evil-local-mode input-method-deactivate-hook input-method-activate-hook evil-next-state 1 nil motion run-hooks evil-motion-state-exit-hook evil-normalize-keymaps evil-change-state assoc equal deactivate-input-method window-buffer evil-refresh-cursor evil-refresh-mode-line evil-motion-state-entry-hook functionp evil-echo "%s" evil-previous-state-alist deactivate-current-input-method-function evil-no-display evil-echo-state evil-motion-state-message] 5 (#$ . 53152) nil]) (evil-add-command-properties 'evil-motion-state :keep-visual t :suppress-operator t) (defvar evil-motion-state-map (make-sparse-keymap)) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-motion-state-map variable-documentation put nil] 4) (defvar evil-motion-state-minor-mode nil) (byte-code "\303\304N\204\f\305\303\304\306#\210\307\303!\210\305\303\310\311#\210\312\303\313#\211\203'\211\302\241\266\2021\303\302B\211\262B\210\210\312\303 \313#\n\203E\241\266\202P\303B\211\262 B\266 \207" [evil-global-keymaps-alist evil-mode-map-alist evil-motion-state-map evil-motion-state-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t assoc equal] 4) (defvar evil-motion-state-local-map nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-motion-state-local-map variable-documentation put nil] 4) (defvar evil-motion-state-local-minor-mode nil) (byte-code "\302\303N\204\f\304\302\303\305#\210\306\302!\210\304\302\307\310#\210\306\311!\210\304\311\307\310#\210\312\302\313#\211\2031\211\311\241\266\202;\302\311B\211\262B\210\210\314\315\316\317\320\321\322\305\323#\324\321\325\326\325!\203T\305\202V\327 \330#\331\321\332\305\323#\333\321\334\305\335#\336\321\337\340\341#\342\321\343\344\345#\346\321\347\305\350#\351\321\352\305\353#\354\321\355\305\356#\357\321\360\305\361#\362\310\363\364\365\305\257\312\366 \313#\211\203\241\211\241\266\202\253\366B\211\262 B\210 \266\305\211\203\301\211@\367\352\"\210A\266\202\202\257\210\305\211\203\325\211@\367\355\"\210A\266\202\202\303\207" [evil-local-keymaps-alist evil-state-properties evil-motion-state-local-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t evil-motion-state-local-map assoc equal :name "Emacs state" :toggle evil-emacs-state :mode defvar-1 evil-emacs-state-minor-mode "Non-nil if Emacs state is enabled.\nUse the command `evil-emacs-state' to change this variable." :keymap evil-emacs-state-map boundp make-sparse-keymap "Keymap for Emacs state." :local evil-emacs-state-local-minor-mode :local-keymap evil-emacs-state-local-map "Buffer-local keymap for Emacs state." :tag evil-emacs-state-tag " " "Mode line tag for Emacs state." :message evil-emacs-state-message "-- EMACS --" "Echo area message for Emacs state." :cursor evil-emacs-state-cursor "Cursor for Emacs state.\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.\n\nIf set to nil, the value of `evil-default-cursor' is used; if you\nwant the nil `cursor-type' (i.e., you want to disable the cursor),\nset this variable to (list nil)." :entry-hook evil-emacs-state-entry-hook "Hooks to run when entering Emacs state." :exit-hook evil-emacs-state-exit-hook "Hooks to run when exiting Emacs state." :modes evil-emacs-state-modes "Modes that should come up in Emacs state." :input-method :predicate evil-emacs-state-p :enable emacs add-hook] 30)#@109 Whether the current state is Emacs state. (That is, whether `evil-state' is `emacs'.) (fn &optional STATE) (defalias 'evil-emacs-state-p #[256 "\205 \211\206 \302=\207" [evil-local-mode evil-state emacs] 3 (#$ . 57247)])#@125 Enable Emacs state. Disable with negative ARG. If ARG is nil, don't display a message in the echo area. (fn &optional ARG) (defalias 'evil-emacs-state #[256 "\211\247\203\211\306W\203\307\310\311\312!\210\307\313 )\207\n\204\"\302 \210\310\307\211\314\307!\210\310\315\310\316# \203A\241\266\202N\310B\211\262B\266\210\310\313 \210\317!\210\204o\320 p=\203k\321\310!\210\322\310!\210\311\323!\210\205\231\211\205\231?\205\231\205\231\324!\203\224 \202\231\325\326\",\207" [evil-state evil-previous-state evil-local-mode input-method-deactivate-hook input-method-activate-hook evil-next-state 1 nil emacs run-hooks evil-emacs-state-exit-hook evil-normalize-keymaps evil-change-state assoc equal activate-input-method window-buffer evil-refresh-cursor evil-refresh-mode-line evil-emacs-state-entry-hook functionp evil-echo "%s" evil-previous-state-alist evil-input-method evil-no-display evil-echo-state evil-emacs-state-message] 5 (#$ . 57479) nil]) (evil-add-command-properties 'evil-emacs-state :keep-visual t :suppress-operator t) (defvar evil-emacs-state-map (make-sparse-keymap)) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-emacs-state-map variable-documentation put nil] 4) (defvar evil-emacs-state-minor-mode nil) (byte-code "\303\304N\204\f\305\303\304\306#\210\307\303!\210\305\303\310\311#\210\312\303\313#\211\203'\211\302\241\266\2021\303\302B\211\262B\210\210\312\303 \313#\n\203E\241\266\202P\303B\211\262 B\266 \207" [evil-global-keymaps-alist evil-mode-map-alist evil-emacs-state-map evil-emacs-state-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t assoc equal] 4) (defvar evil-emacs-state-local-map nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\303\207" [evil-emacs-state-local-map variable-documentation put nil] 4) (defvar evil-emacs-state-local-minor-mode nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\301!\210\303\301\306\307#\210\305\310!\210\303\310\306\307#\210\311\301\312#\211\2031\211\310\241\266\202;\301\310B\211\262B\210\210\313\314!\207" [evil-local-keymaps-alist evil-emacs-state-local-minor-mode variable-documentation put nil make-variable-buffer-local permanent-local t evil-emacs-state-local-map assoc equal provide evil-states] 4)