;ELC ;;; Compiled ;;; in Emacs version 24.5.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\303\304!\210\303\305!\210\303\306!\210\303\307!\210\303\310!\210\311\312!\210\313\314\315\"\210\313\316\317\"\210\313\320\321\"\210\313\322\323\"\210\324\325\326\"\210\324\327\326\"\210\330\331\211\203N @\332\333\334#\210 A\211\204>*\335\336!\210\335\337!\210\340\341\342\343\331$\210\344\341\331\"\210\345\346\347\"\210\350\351\352\353\334\331\354\355\356\"&\210\350\357\360\353\334\331\354\355\361\"&\210\345\362\363\"\210\345\364\365\"\210\345\366\367\"\210\350\370\371\353\334\331\354\355\372\"&\210\350\373\374\353\334\331\354\355\375\"&\210\340\376\377\201@\331$\210\350\201A\201B\353\334\331\354\355\201C\"&\210\345\201D\201E\"\210\303\201F\331\334#\203\354\201G\201H!\203\354\201H\201I!\210\345\201F\201J\"\210\345\201K\201L\"\210\345\201M\201N\"\210\201O\n\201P\"\203=\340\201Q\201R\201@\331$\210\344\201Q\331\"\210\340\201S\201T\201@\331$\210\344\201S\331\"\210\202j\201U\201V\201W\"\210\201X\201Y\201Z\201V\201[$\210\201X\201S\201Z\201V\201\\$\210\340\201]\201^\201@\331$\210\344\201]\331\"\210\340\201_\201`\201@\331$\210\344\201_\331\"\207" [cmd --dolist-tail-- emacs-version require evil-maps evil-core evil-macros evil-types evil-repeat evil-declare-ignore-repeat undefined mapc #[(cmd) "\301\302\303#\210\304!\207" [cmd evil-set-command-property :keep-visual t evil-declare-not-repeat] 4] (digit-argument negative-argument universal-argument universal-argument-minus universal-argument-more universal-argument-other-key) evil-declare-not-repeat (what-cursor-position) evil-declare-change-repeat (dabbrev-expand hippie-expand) evil-declare-abort-repeat (balance-windows eval-expression execute-extended-command exit-minibuffer compile delete-window delete-other-windows find-file-at-point ffap-other-window recompile redo save-buffer split-window split-window-horizontally split-window-vertically undo undo-tree-redo undo-tree-undo) evil-set-type previous-line line next-line (keyboard-quit keyboard-escape-quit) nil evil-set-command-property :suppress-operator t evil-declare-insert-at-point-repeat mouse-yank-primary mouse-yank-secondary ad-add-advice keyboard-quit (evil nil t (advice lambda nil (when (fboundp 'evil-repeat-abort) (evil-repeat-abort)))) before ad-activate eval-after-load etags-select #[nil "\301\302\303#\207" [evil-motion-state-map define-key "g]" etags-select-find-tag-at-point] 4] evil-delay (and (boundp 'Buffer-menu-mode-map) (keymapp Buffer-menu-mode-map)) (let* ((state 'motion) (keymap Buffer-menu-mode-map) (key #1="h") (def #2=(lookup-key evil-motion-state-map "h")) (bindings (list #3="j" #4=(lookup-key evil-motion-state-map "j") #5="k" #6=(lookup-key evil-motion-state-map "k") #7="l" #8=(lookup-key evil-motion-state-map "l") #9=":" #10=(lookup-key evil-motion-state-map ":"))) . #11=(aux)) . #12=((if state (setq aux (evil-get-auxiliary-keymap keymap state t)) (setq aux keymap)) (while key (define-key aux key def) (setq key (pop bindings) def (pop bindings))) (evil-set-keymap-prompt aux (keymap-prompt aux)))) after-load-functions format #13="evil-define-key-in-%s" Buffer-menu-mode-map (and (boundp 'dictionary-mode-map) (keymapp dictionary-mode-map)) (let* ((state 'motion) (keymap dictionary-mode-map) (key #1#) (def #2#) (bindings (list #3# #4# #5# #6# #7# #8# #9# #10# "?" 'dictionary-help "C-o" 'dictionary-previous)) . #11#) . #12#) dictionary-mode-map dired #[nil "\301\302\"\210\303\304\305\306\307\310\311\312\300\"&\207" [dired-mode-map evil-make-overriding-map normal evil-delay (and (boundp 'dired-mode-map) (keymapp dired-mode-map)) (let* ((state 'normal) (keymap dired-mode-map) (key #1#) (def #2#) (bindings (list #3# #4# #5# #6# #7# #8# #9# #10# "J" 'dired-goto-file "K" 'dired-do-kill-lines "r" 'dired-do-redisplay ";" (lookup-key dired-mode-map ":"))) . #11#) . #12#) after-load-functions t nil format #13#] 9] wdired #[nil "\300\301\302\"\210\303\304\305\306\307$\210\310\304\307\"\210\304\207" [add-hook wdired-mode-hook evil-change-to-initial-state ad-add-advice wdired-change-to-dired-mode (evil nil t (advice lambda nil (evil-change-to-initial-state nil t))) after nil ad-activate] 5] elp #[nil "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice elp-results (evil nil t (advice lambda nil (evil-motion-state))) after nil ad-activate] 5] (and (boundp 'ert-results-mode-map) (keymapp ert-results-mode-map)) (let* ((state 'motion) (keymap ert-results-mode-map) (key #1#) (def #2#) (bindings (list #3# #4# #5# #6# #7# #8# #9# #10#)) . #11#) . #12#) ert-results-mode-map (and (boundp 'Info-mode-map) (keymapp Info-mode-map)) (let* ((state 'motion) (keymap Info-mode-map) (key #1#) (def #2#) (bindings (list #3# #4# #5# #6# #7# #8# #9# #10# "0" 'evil-digit-argument-or-evil-beginning-of-line (kbd "\350") 'Info-help "" 'Info-history-back "" 'Info-history-back " " 'Info-scroll-up "" 'Info-follow-nearest-node (kbd "DEL") 'Info-scroll-down)) . #11#) . #12#) Info-mode-map show-paren-function (evil nil nil (advice lambda nil "Match parentheses in Normal state." (if (if (memq 'not evil-highlight-closing-paren-at-point-states) (memq evil-state evil-highlight-closing-paren-at-point-states) (not (memq evil-state evil-highlight-closing-paren-at-point-states))) ad-do-it (let ((pos (point)) syntax narrow) (setq pos (catch 'end (dotimes (var (1+ (* 2 evil-show-paren-range))) (if (zerop (mod var 2)) (setq pos (+ pos var)) (setq pos (- pos var))) (setq syntax (syntax-class (syntax-after pos))) (cond ((eq syntax 4) (setq narrow pos) (throw 'end pos)) ((eq syntax 5) (throw 'end (1+ pos))))))) (if pos (save-excursion (goto-char pos) (save-restriction (when narrow (narrow-to-region narrow (point-max))) ad-do-it)) (dolist (ov '(show-paren--overlay show-paren--overlay-1 show-paren-overlay show-paren-overlay-1)) (let ((ov (and (boundp ov) (symbol-value ov)))) (when (overlayp ov) (delete-overlay ov))))))))) around (and (boundp 'speedbar-key-map) (keymapp speedbar-key-map)) (let* ((state 'motion) (keymap speedbar-key-map) (key #1#) (def #2#) (bindings (list #3# #4# #5# #6# #7# #8# #9# #10# "h" 'backward-char "j" 'speedbar-next "k" 'speedbar-prev "l" 'forward-char "i" 'speedbar-item-info "r" 'speedbar-refresh "u" 'speedbar-up-directory "o" 'speedbar-toggle-line-expansion (kbd "RET") 'speedbar-edit-line)) . #11#) . #12#) speedbar-key-map ibuffer #[nil "\301\302\"\210\303\304\305\306\307\310\311\312\300\"&\207" [ibuffer-mode-map evil-make-overriding-map normal evil-delay (and (boundp 'ibuffer-mode-map) (keymapp ibuffer-mode-map)) (let* ((state 'normal) (keymap ibuffer-mode-map) (key "j") (def 'evil-next-line) (bindings (list "k" 'evil-previous-line "RET" 'ibuffer-visit-buffer)) . #11#) . #12#) after-load-functions t nil format #13#] 9] undo-tree fboundp global-undo-tree-mode 1 #[nil "\302\303\304\"\210\305\306\303\"\210\307\310\311\312\313$\210\314\310\313\"\210\315\310!\203&\316\317\310\"\210\316\320\310\"\210\321\300!\203J\322\323\324#\210\322\325\326#\210\322\327\330#\210\322\331\332#\210\322\333\334#\210\321\301!\205m\322 \335\336#\210\322 \337\340#\210\322 \341\342#\210\322 \343\344#\210\322 \345\334#\207" [undo-tree-visualizer-mode-map undo-tree-visualizer-selection-mode-map defalias evil-turn-on-undo-tree-mode #[nil "\301\300!\205 \205 \302\303!\207" [global-undo-tree-mode boundp undo-tree-mode 1] 2 "Enable `undo-tree-mode' if evil is enabled.\nThis function enables `undo-tree-mode' when Evil is activated in\nsome buffer, but only if `global-undo-tree-mode' is also\nactivated."] add-hook evil-local-mode-hook ad-add-advice undo-tree-visualize (evil nil t (advice lambda nil "Initialize Evil in the visualization buffer." (when evil-local-mode (evil-initialize-state)))) after nil ad-activate fboundp evil-ex-define-cmd "undol[ist]" "ul" boundp define-key [remap evil-backward-char] undo-tree-visualize-switch-branch-left [remap evil-forward-char] undo-tree-visualize-switch-branch-right [remap evil-next-line] undo-tree-visualize-redo [remap evil-previous-line] undo-tree-visualize-undo [remap evil-ret] undo-tree-visualizer-set [remap evil-backward-char] undo-tree-visualizer-select-left [remap evil-forward-char] undo-tree-visualizer-select-right [remap evil-next-line] undo-tree-visualizer-select-next [remap evil-previous-line] undo-tree-visualizer-select-previous [remap evil-ret]] 5] auto-complete #[nil "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\307#\210\300\310\302\307#\210\311\312!\210\313\303\314\"\207" [evil-add-command-properties auto-complete :repeat evil-ac-repeat ac-complete ac-expand ac-next ignore ac-previous (lambda (#14=#:def-tmp-var) (defvar evil-ac-prefix-len #14# "The length of the prefix of the current item to be completed.")) nil defalias #[(flag) "\304=\203\f G\305 \207\306=\205'\307\n[\310\n#\210\307\n[\311 \nZ`\"\312#\210\313 \207" [flag ac-prefix evil-ac-prefix-len evil-repeat-pos pre evil-repeat-start-record-changes post evil-repeat-record-change "" buffer-substring-no-properties 0 evil-repeat-finish-record-changes] 5 "Record the changes for auto-completion."]] 4] company #[nil "\300\301\302\"\210\300\303\304\"\207" [mapc evil-declare-change-repeat (company-complete-mouse company-complete-number company-complete-selection company-complete-common) evil-declare-ignore-repeat (company-abort company-select-next company-select-previous company-select-next-or-abort company-select-previous-or-abort company-select-mouse company-show-doc-buffer company-show-location company-search-candidates company-filter-candidates)] 3] version< "25" preceding-sexp (evil nil t (advice lambda nil "In normal-state or motion-state, last sexp ends at point." (if (and (not evil-move-beyond-eol) (or (evil-normal-state-p) (evil-motion-state-p))) (save-excursion (unless (or (eobp) (eolp)) (forward-char)) ad-do-it) ad-do-it))) pp-last-sexp (evil nil t (advice lambda nil "In normal-state or motion-state, last sexp ends at point." (if (and (not evil-move-beyond-eol) (or (evil-normal-state-p) (evil-motion-state-p))) (save-excursion (unless (or (eobp) (eolp)) (forward-char)) ad-do-it) ad-do-it))) defalias evil--preceding-sexp #[(command &rest args) "\204 \303 \204\304 \203 \212m\204l\204\305u\210\306 \n\")\207\306 \n\"\207" [evil-move-beyond-eol command args evil-normal-state-p evil-motion-state-p nil apply] 3 "In normal-state or motion-state, last sexp ends at point."] advice-add elisp--preceding-sexp :around ((name . evil)) ((name . evil)) quail-show-key (evil nil t (advice lambda nil "Temporarily go to Emacs state" (evil-with-state emacs ad-do-it))) describe-char (evil nil t (advice lambda nil "Temporarily go to Emacs state" (evil-with-state emacs ad-do-it)))] 10) (defvar evil-ace-jump-active nil) #@221 Enclose ace-jump to make it suitable for motions. This includes restricting `ace-jump-mode' to the current window in visual and operator state, deactivating visual updates, saving the mark and entering `recursive-edit'. (defalias 'evil-enclose-ace-jump-for-motion '(macro . #[(&rest body) "\301\302\303\304\305\301\306\307\310\311\"BBB\312BB\257\207" [body let ((old-mark (mark)) (ace-jump-mode-scope (if (and (not (memq evil-state '(visual operator))) (boundp 'ace-jump-mode-scope)) ace-jump-mode-scope 'window))) (remove-hook 'pre-command-hook #'evil-visual-pre-command t) (remove-hook 'post-command-hook #'evil-visual-post-command t) unwind-protect ((evil-ace-jump-active 'prepare)) (add-hook 'ace-jump-mode-end-hook #'evil-ace-jump-exit-recursive-edit) append ((when evil-ace-jump-active (setq evil-ace-jump-active t) (recursive-edit))) ((remove-hook 'post-command-hook #'evil-ace-jump-exit-recursive-edit) (remove-hook 'ace-jump-mode-end-hook #'evil-ace-jump-exit-recursive-edit) (if (evil-visual-state-p) (progn (add-hook 'pre-command-hook #'evil-visual-pre-command nil t) (add-hook 'post-command-hook #'evil-visual-post-command nil t) (set-mark old-mark)) (push-mark old-mark)))] 11 (#$ . 11118)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307\310\"\207" [put evil-enclose-ace-jump-for-motion lisp-indent-function defun edebug-form-spec t eval-after-load ace-jump-mode #[nil "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice ace-jump-done (evil nil t (advice lambda nil (when evil-ace-jump-active (add-hook 'post-command-hook #'evil-ace-jump-exit-recursive-edit)))) after nil ad-activate] 5]] 4) #@47 Exit a recursive edit caused by an evil jump. (defalias 'evil-ace-jump-exit-recursive-edit #[nil "\301=\203\n\302\211\207\205\303\304\305\"\210\306 \207" [evil-ace-jump-active prepare nil remove-hook post-command-hook evil-ace-jump-exit-recursive-edit exit-recursive-edit] 3 (#$ . 12766)]) (eval-after-load 'eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-ace-jump-char-mode] 2]) #@50 Jump visually directly to a char using ace-jump. (defalias 'evil-ace-jump-char-mode #[(&optional count) "\306\307\"\306\310 \"`p\311 \f\312>\204 \313\305!\203 \202!\314\315\300\316\317#\210\315\301\320\317#\210\321\216\322\323\324\325\"\210\326\327!\210\203I\317\330 \210,\np\232\203k` W\203k\331=\203a\332\202i\332=\205i\331*\333 *\207" [pre-command-hook post-command-hook buf pnt evil-state ace-jump-mode-scope remq evil-repeat-pre-hook evil-repeat-post-hook mark (visual operator) boundp window remove-hook evil-visual-pre-command t evil-visual-post-command ((byte-code "\301\302\303\"\210\301\304\303\"\210\305 \203$\306\307\310\311\312$\210\306\302\313\311\312$\210\314!\210\202(\315!\210\311\207" [old-mark remove-hook post-command-hook evil-ace-jump-exit-recursive-edit ace-jump-mode-end-hook evil-visual-state-p add-hook pre-command-hook evil-visual-pre-command nil t evil-visual-post-command set-mark push-mark] 5)) prepare add-hook ace-jump-mode-end-hook evil-ace-jump-exit-recursive-edit call-interactively ace-jump-char-mode recursive-edit exclusive inclusive evil-repeat-abort old-mark evil-ace-jump-active evil-this-type] 4 (#$ . 13185) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310&\210\210)\311\312\313\"\207" [func evil-ace-jump-char-mode evil-set-command-properties :repeat motion :type inclusive :keep-visual t eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-ace-jump-char-to-mode] 2]] 8) #@62 Jump visually to the char in front of a char using ace-jump. (defalias 'evil-ace-jump-char-to-mode #[(&optional count) "\306\307\"\306\310 \"`p\311 \f\312>\204 \313\305!\203 \202!\314\315\300\316\317#\210\315\301\320\317#\210\321\216\322\323\324\325\"\210\326\327!\210\203I\317\330 \210,\np\232\203u` W\203um\204]\331u\210 \332=\203h\333\202p \333=\205p\332 \202x\334u\210*\335 *\207" [pre-command-hook post-command-hook buf pnt evil-state ace-jump-mode-scope remq evil-repeat-pre-hook evil-repeat-post-hook mark (visual operator) boundp window remove-hook evil-visual-pre-command t evil-visual-post-command ((byte-code "\301\302\303\"\210\301\304\303\"\210\305 \203$\306\307\310\311\312$\210\306\302\313\311\312$\210\314!\210\202(\315!\210\311\207" [old-mark remove-hook post-command-hook evil-ace-jump-exit-recursive-edit ace-jump-mode-end-hook evil-visual-state-p add-hook pre-command-hook evil-visual-pre-command nil t evil-visual-post-command set-mark push-mark] 5)) prepare add-hook ace-jump-mode-end-hook evil-ace-jump-exit-recursive-edit call-interactively ace-jump-char-mode recursive-edit nil exclusive inclusive -1 evil-repeat-abort old-mark evil-ace-jump-active evil-this-type] 4 (#$ . 14762) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310&\210\210)\311\312\313\"\207" [func evil-ace-jump-char-to-mode evil-set-command-properties :repeat motion :type inclusive :keep-visual t eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-ace-jump-line-mode] 2]] 8) #@58 Jump visually to the beginning of a line using ace-jump. (defalias 'evil-ace-jump-line-mode #[(&optional count) "\306\307\"\306\310 \"\311 \n\312>\204\313\303!\203 \202\314\315\300\316\317#\210\315\301\320\317#\210\321\216\322\323\324\325\"\210\326\327!\210 \203A\317\330 \210,\331 *\207" [pre-command-hook post-command-hook evil-state ace-jump-mode-scope old-mark evil-ace-jump-active remq evil-repeat-pre-hook evil-repeat-post-hook mark (visual operator) boundp window remove-hook evil-visual-pre-command t evil-visual-post-command ((byte-code "\301\302\303\"\210\301\304\303\"\210\305 \203$\306\307\310\311\312$\210\306\302\313\311\312$\210\314!\210\202(\315!\210\311\207" [old-mark remove-hook post-command-hook evil-ace-jump-exit-recursive-edit ace-jump-mode-end-hook evil-visual-state-p add-hook pre-command-hook evil-visual-pre-command nil t evil-visual-post-command set-mark push-mark] 5)) prepare add-hook ace-jump-mode-end-hook evil-ace-jump-exit-recursive-edit call-interactively ace-jump-line-mode recursive-edit evil-repeat-abort] 4 (#$ . 16392) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310&\210\210)\311\312\313\"\207" [func evil-ace-jump-line-mode evil-set-command-properties :repeat abort :type line :keep-visual t eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-ace-jump-word-mode] 2]] 8) #@58 Jump visually to the beginning of a word using ace-jump. (defalias 'evil-ace-jump-word-mode #[(&optional count) "\306\307\"\306\310 \"\311 \n\312>\204\313\303!\203 \202\314\315\300\316\317#\210\315\301\320\317#\210\321\216\322\323\324\325\"\210\326\327!\210 \203A\317\330 \210,\331 *\207" [pre-command-hook post-command-hook evil-state ace-jump-mode-scope old-mark evil-ace-jump-active remq evil-repeat-pre-hook evil-repeat-post-hook mark (visual operator) boundp window remove-hook evil-visual-pre-command t evil-visual-post-command ((byte-code "\301\302\303\"\210\301\304\303\"\210\305 \203$\306\307\310\311\312$\210\306\302\313\311\312$\210\314!\210\202(\315!\210\311\207" [old-mark remove-hook post-command-hook evil-ace-jump-exit-recursive-edit ace-jump-mode-end-hook evil-visual-state-p add-hook pre-command-hook evil-visual-pre-command nil t evil-visual-post-command set-mark push-mark] 5)) prepare add-hook ace-jump-mode-end-hook evil-ace-jump-exit-recursive-edit call-interactively ace-jump-word-mode recursive-edit evil-repeat-abort] 4 (#$ . 17852) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\302\303\304\305\306\307\310\311&\210\210)\312 \313\314#\210\312 \315\316#\210\312 \317\302#\207" [func evil-motion-state-map evil-ace-jump-word-mode evil-set-command-properties :repeat abort :type exclusive :keep-visual t define-key [remap ace-jump-char-mode] evil-ace-jump-char-mode [remap ace-jump-line-mode] evil-ace-jump-line-mode [remap ace-jump-word-mode]] 8) #@91 Enclose avy to make it suitable for motions. Based on `evil-enclose-ace-jump-for-motion'. (defalias 'evil-enclose-avy-for-motion '(macro . #[(&rest body) "\301\302BB\207" [body let ((avy-all-windows (if (and (not (memq evil-state '(visual operator))) (boundp 'avy-all-windows)) avy-all-windows nil)))] 3 (#$ . 19401)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put evil-enclose-avy-for-motion lisp-indent-function defun edebug-form-spec t] 4) (defalias 'evil-define-avy-motion '(macro . #[(command type) "\303\304\305\"!\306 \307\304\310\"\311\n\312\313\314\315\316\317\320\321DDDD\257 )\207" [command name type intern format "evil-%s" evil-define-motion (_count) "Evil motion for `%s'." :type :jump t :repeat abort evil-without-repeat evil-enclose-avy-for-motion call-interactively quote] 15])) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307\310\"\207" [put evil-define-avy-motion lisp-indent-function defun edebug-form-spec t eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-avy-goto-word-or-subword-1] 2]] 4) #@47 Evil motion for `avy-goto-word-or-subword-1'. (defalias 'evil-avy-goto-word-or-subword-1 #[(&optional _count) "\304\305\"\304\306 \"\n\307>?\205\310\303!\205 \311\312!\210)\313 *\207" [pre-command-hook post-command-hook evil-state avy-all-windows remq evil-repeat-pre-hook evil-repeat-post-hook (visual operator) boundp call-interactively avy-goto-word-or-subword-1 evil-repeat-abort] 4 (#$ . 20498) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310\311\310& \210\210)\312\313\314\"\207" [func evil-avy-goto-word-or-subword-1 evil-set-command-properties :repeat abort :type exclusive :jump t :keep-visual eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-avy-goto-line] 2]] 10) #@34 Evil motion for `avy-goto-line'. (defalias 'evil-avy-goto-line #[(&optional _count) "\304\305\"\304\306 \"\n\307>?\205\310\303!\205 \311\312!\210)\313 *\207" [pre-command-hook post-command-hook evil-state avy-all-windows remq evil-repeat-pre-hook evil-repeat-post-hook (visual operator) boundp call-interactively avy-goto-line evil-repeat-abort] 4 (#$ . 21312) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310\311\310& \210\210)\312\313\314\"\207" [func evil-avy-goto-line evil-set-command-properties :repeat abort :type line :jump t :keep-visual eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-avy-goto-char] 2]] 10) #@34 Evil motion for `avy-goto-char'. (defalias 'evil-avy-goto-char #[(&optional _count) "\304\305\"\304\306 \"\n\307>?\205\310\303!\205 \311\312!\210)\313 *\207" [pre-command-hook post-command-hook evil-state avy-all-windows remq evil-repeat-pre-hook evil-repeat-post-hook (visual operator) boundp call-interactively avy-goto-char evil-repeat-abort] 4 (#$ . 22069) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310\311\310& \210\210)\312\313\314\"\207" [func evil-avy-goto-char evil-set-command-properties :repeat abort :type inclusive :jump t :keep-visual eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-avy-goto-char-2] 2]] 10) #@36 Evil motion for `avy-goto-char-2'. (defalias 'evil-avy-goto-char-2 #[(&optional _count) "\304\305\"\304\306 \"\n\307>?\205\310\303!\205 \311\312!\210)\313 *\207" [pre-command-hook post-command-hook evil-state avy-all-windows remq evil-repeat-pre-hook evil-repeat-post-hook (visual operator) boundp call-interactively avy-goto-char-2 evil-repeat-abort] 4 (#$ . 22833) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310\311\310& \210\210)\312\313\314\"\207" [func evil-avy-goto-char-2 evil-set-command-properties :repeat abort :type inclusive :jump t :keep-visual eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-avy-goto-word-0] 2]] 10) #@36 Evil motion for `avy-goto-word-0'. (defalias 'evil-avy-goto-word-0 #[(&optional _count) "\304\305\"\304\306 \"\n\307>?\205\310\303!\205 \311\312!\210)\313 *\207" [pre-command-hook post-command-hook evil-state avy-all-windows remq evil-repeat-pre-hook evil-repeat-post-hook (visual operator) boundp call-interactively avy-goto-word-0 evil-repeat-abort] 4 (#$ . 23605) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310\311\310& \210\210)\312\313\314\"\207" [func evil-avy-goto-word-0 evil-set-command-properties :repeat abort :type exclusive :jump t :keep-visual eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-avy-goto-word-1] 2]] 10) #@36 Evil motion for `avy-goto-word-1'. (defalias 'evil-avy-goto-word-1 #[(&optional _count) "\304\305\"\304\306 \"\n\307>?\205\310\303!\205 \311\312!\210)\313 *\207" [pre-command-hook post-command-hook evil-state avy-all-windows remq evil-repeat-pre-hook evil-repeat-post-hook (visual operator) boundp call-interactively avy-goto-word-1 evil-repeat-abort] 4 (#$ . 24377) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310\311\310& \210\210)\312\313\314\"\207" [func evil-avy-goto-word-1 evil-set-command-properties :repeat abort :type exclusive :jump t :keep-visual eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-avy-goto-subword-0] 2]] 10) #@39 Evil motion for `avy-goto-subword-0'. (defalias 'evil-avy-goto-subword-0 #[(&optional _count) "\304\305\"\304\306 \"\n\307>?\205\310\303!\205 \311\312!\210)\313 *\207" [pre-command-hook post-command-hook evil-state avy-all-windows remq evil-repeat-pre-hook evil-repeat-post-hook (visual operator) boundp call-interactively avy-goto-subword-0 evil-repeat-abort] 4 (#$ . 25152) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\301\302\303\304\305\306\307\310\311\310& \210\210)\312\313\314\"\207" [func evil-avy-goto-subword-0 evil-set-command-properties :repeat abort :type exclusive :jump t :keep-visual eval-after-load eldoc #[nil "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-avy-goto-subword-1] 2]] 10) #@39 Evil motion for `avy-goto-subword-1'. (defalias 'evil-avy-goto-subword-1 #[(&optional _count) "\304\305\"\304\306 \"\n\307>?\205\310\303!\205 \311\312!\210)\313 *\207" [pre-command-hook post-command-hook evil-state avy-all-windows remq evil-repeat-pre-hook evil-repeat-post-hook (visual operator) boundp call-interactively avy-goto-subword-1 evil-repeat-abort] 4 (#$ . 25939) (list (if current-prefix-arg (progn (prefix-numeric-value current-prefix-arg))))]) (byte-code "\304\305\306\307\310\311\312\313\314\313& \210\210)\315\316\211\2032\n@\317 \320\321 \"\322\323\324 \"!#\210\nA\211\204*\325\326\327\"\210\325\330\331\"\210\332\333!\207" [func command --dolist-tail-- evil-motion-state-map evil-avy-goto-subword-1 evil-set-command-properties :repeat abort :type exclusive :jump t :keep-visual (avy-goto-word-or-subword-1 avy-goto-line avy-goto-char avy-goto-char-2 avy-goto-word-0 avy-goto-word-1 avy-goto-subword-0 avy-goto-subword-1) nil define-key vector remap intern-soft format "evil-%s" eval-after-load mumamo #[nil "\301B\211\207" [mumamo-change-major-mode-no-nos evil-mode-cmhh] 2] ag #[nil "\300\301\302\"\210\303\304\305\306\307\310\311\312\313\"&\207" [add-to-list evil-motion-state-modes ag-mode evil-delay (and (boundp 'ag-mode-map) (keymapp ag-mode-map)) (let* ((state 'motion) (keymap ag-mode-map) (key "h") (def (lookup-key evil-motion-state-map "h")) (bindings (list "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 ":"))) aux) (if state (setq aux (evil-get-auxiliary-keymap keymap state t)) (setq aux keymap)) (while key (define-key aux key def) (setq key (pop bindings) def (pop bindings))) (evil-set-keymap-prompt aux (keymap-prompt aux))) after-load-functions t nil format "evil-define-key-in-%s" ag-mode-map] 9] provide evil-integration] 11)