;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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require evil-vars evil-common evil-search evil-ex] 2) #@165 Hook run after entering Evil-cmd mode. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar evil-command-window-mode-hook nil (#$ . 532)) (byte-code "\300\301!\204\f\302\301\303\304#\210\300\207" [boundp evil-command-window-mode-map put definition-name evil-command-window-mode] 4) (defvar evil-command-window-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [evil-command-window-mode-map variable-documentation put purecopy "Keymap for `evil-command-window-mode'." boundp evil-command-window-mode-syntax-table definition-name evil-command-window-mode] 5) (defvar evil-command-window-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [evil-command-window-mode-syntax-table variable-documentation put purecopy "Syntax table for `evil-command-window-mode'." evil-command-window-mode-abbrev-table definition-name evil-command-window-mode] 5) (defvar evil-command-window-mode-abbrev-table (progn (define-abbrev-table 'evil-command-window-mode-abbrev-table nil) evil-command-window-mode-abbrev-table)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [evil-command-window-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `evil-command-window-mode'." evil-command-window-mode derived-mode-parent nil] 5) #@178 Major mode for the Evil command line window. This mode runs the hook `evil-command-window-mode-hook', as the final step during initialization. \{evil-command-window-mode-map} (defalias 'evil-command-window-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315\316!\210\306\317!\210\320B)\321\322!\207" [delay-mode-hooks major-mode mode-name evil-command-window-mode-map evil-command-window-mode-syntax-table evil-command-window-mode-abbrev-table make-local-variable t kill-all-local-variables evil-command-window-mode "Evil-cmd" use-local-map set-syntax-table auto-fill-mode 0 after-change-functions evil-command-window-draw-prefix run-mode-hooks evil-command-window-mode-hook local-abbrev-table] 2 (#$ . 2014) nil]) #@295 Open a command line window for HIST with CMD-KEY and EXECUTE-FN. HIST should be a list of commands. CMD-KEY should be the string of the key whose history is being shown (one of ":", "/", or "?"). EXECUTE-FN should be a function of one argument to execute on the result that the user selects. (defalias 'evil-command-window #[(hist cmd-key execute-fn) "\306=\203\n\307\310!\210\311\312\313 \"\210\314\315\316 !?\205 \317#\210p\315\320\321\217\210\322\323!\210\306 \210\324\304!\210 \324\325!\210 \326!\207" [major-mode evil-command-window-height evil-command-window-current-buffer execute-fn evil-command-window-execute-fn cmd-key evil-command-window-mode user-error "Cannot recursively open command line window" mapc #[(win) "\301\302!!\303\232\205\304\302!!\210\305!\207" [win buffer-name window-buffer "*Command Line*" kill-buffer delete-window] 3] window-list split-window nil zerop above (kill-buffer "*Command Line*") ((error)) switch-to-buffer "*Command Line*" make-local-variable evil-command-window-cmd-key evil-command-window-insert-commands hist] 4 (#$ . 2768)]) #@172 Open a command line window for editing and executing ex commands. If CURRENT-COMMAND is present, it will be inserted under the cursor as the current command to be edited. (defalias 'evil-command-window-ex #[(&optional current-command) "\302\206\303 B\304\305#\207" [current-command evil-ex-history evil-command-window " " ":" evil-command-window-ex-execute] 4 (#$ . 3865) nil]) #@150 Execute the command under the cursor in the appropriate buffer. The local var `evil-command-window-execute-fn' determines which function to execute. (defalias 'evil-command-window-execute #[nil "\305 \306 {\307 \310\311 !\210\fp\232\204\312\313!\210\314\315!\210\316 !\210\n !\210\317\211+\207" [evil-command-window-execute-fn command-window execute-fn result evil-command-window-current-buffer line-beginning-position line-end-position get-buffer-window select-window previous-window user-error "Originating buffer is no longer active" kill-buffer "*Command Line*" delete-window nil] 3 (#$ . 4253) nil]) #@60 Execute RESULT as an ex command in the appropriate buffer. (defalias 'evil-command-window-ex-execute #[(result) "\305\306\307\310#)\266\203?\205%\n\311!\210)\f@\232?\205%\fB\211\207" [result inhibit-changing-match-data evil-command-window-current-buffer evil-ex-current-buffer evil-ex-history "^ *$" nil t string-match evil-ex-execute] 7 (#$ . 4871)]) #@50 Open a command line window for forward searches. (defalias 'evil-command-window-search-forward #[nil "\301\302B\303\304#\207" [evil-search-forward-history evil-command-window " " "/" #[(result) "\301\302\"\207" [result evil-command-window-search-execute t] 3]] 4 (#$ . 5241) nil]) #@51 Open a command line window for backward searches. (defalias 'evil-command-window-search-backward #[nil "\301\302B\303\304#\207" [evil-search-backward-history evil-command-window " " "?" #[(result) "\301\302\"\207" [result evil-command-window-search-execute nil] 3]] 4 (#$ . 5530) nil]) #@57 Search for RESULT using FORWARD to determine direction. (defalias 'evil-command-window-search-execute #[(result forward) "\306\232?\205)\307\301!\203$ \310=\203$\311! \203\303\202 \312\313 \207\310 #\207" [result evil-search-module evil-ex-search-pattern forward evil-ex-search-direction evil-regexp-search " " boundp evil-search evil-ex-make-search-pattern backward evil-ex-search] 4 (#$ . 5824)]) #@122 Display `evil-command-window-cmd-key' as a prefix to the current line. Parameters passed in through IGNORED are ignored. (defalias 'evil-command-window-draw-prefix #[(&rest ignored) "\302\303\304#\305\306 \307 \310 D#)\207" [evil-command-window-cmd-key prefix propertize font-lock-face minibuffer-prompt set-text-properties line-beginning-position line-end-position line-prefix] 5 (#$ . 6242)]) #@30 Insert the commands in HIST. (defalias 'evil-command-window-insert-commands #[(hist) "\302\303\304 \"\210\305 \210\306\307!\210)\310ed\"\210db\210\311 \207" [inhibit-modification-hooks hist t mapc #[(cmd) "c\210\301 \207" [cmd newline] 1] join-line delete-char 1 reverse-region evil-adjust-cursor] 3 (#$ . 6645)]) (provide 'evil-command-window)