;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\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\317\320\321\"\210\317\322\321\"\210\323\324\211\203> @\325\326\327#\210 A\211\204.*\330\331!\210\330\332!\210\333\334\335\336\324$\210\337\334\324\"\210\333\340\341\336\324$\210\337\340\324\"\210\333\342\343\336\324$\210\337\342\324\"\210\333\344\345\346\324$\210\337\344\324\"\210\347\350\351\"\210\352\353\354\355\327\324\356\357\360\"&\210\352\361\362\355\327\324\356\357\363\"&\210\347\364\365\"\210\347\366\367\"\210\347\370\371\"\210\352\372\373\355\327\324\356\357\374\"&\210\352\375\376\355\327\324\356\357\377\"&\210\333\201@\201A\336\324$\210\352\201B\201C\355\327\324\356\357\201D\"&\210\347\201E\201F\"\210\333\201G\201H\201I\324$\210\337\201G\324\"\210\201J\302!\2032\201K\n\201L\201M#\210\201K\n\201N\201O#\210\201K\n\201P\201Q#\210\201K\n\201R\201S#\210\347\201T\201U\"\210\333\201V\201W\336\324$\210\337\201V\324\"\210\333\201X\201Y\336\324$\210\337\201X\324\"\210\333\201Z\201[\336\324$\210\337\201Z\324\"\210\333\201\\\201]\336\324$\210\337\201\\\324\"\210\201^\201_!\207" [cmd --dolist-tail-- undo-tree-visualizer-map require evil-maps evil-core 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 save-buffer split-window split-window-horizontally split-window-vertically) 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 key-binding (evil nil t (advice lambda nil (let (evil-esc-mode) ad-do-it))) around ad-activate read-key-sequence (evil nil t (advice lambda nil (let (evil-esc-mode) ad-do-it))) read-key-sequence-vector (evil nil t (advice lambda nil (let (evil-esc-mode) ad-do-it))) keyboard-quit (evil nil t (advice lambda nil (when (fboundp 'evil-repeat-abort) (evil-repeat-abort)))) before 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\303#\210\304\305\306\307\303\310\311\312\300\"&\207" [dired-mode-map evil-make-overriding-map normal t 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 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 t (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))))))))) (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\303#\210\304\305\306\307\303\310\311\312\300\"&\207" [ibuffer-mode-map evil-make-overriding-map normal t 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 nil format #13#] 9] undo-tree-visualize (evil nil t (advice lambda nil "Initialize Evil in the visualization buffer." (when evil-local-mode (evil-initialize-state)))) after 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 auto-complete #[nil "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\306#\210\300\307\302\306#\210\310\311!\210\312\303\313\"\207" [evil-add-command-properties ac-complete :repeat evil-ac-repeat 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] preceding-sexp (evil nil t (advice lambda nil "In normal-state, last sexp ends at point." (if (evil-normal-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, last sexp ends at point." (if (evil-normal-state-p) (save-excursion (unless (or (eobp) (eolp)) (forward-char)) ad-do-it) ad-do-it))) 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))) provide evil-integration] 10)