;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require evil-vars evil-common evil-ex evil-search] 2)#@59 The buffer from which the command-line window was called. (defvar evil-command-window-current-buffer nil (#$ . 204))#@62 The command to execute when exiting the command-line window. (defvar evil-command-window-execute-fn nil (#$ . 326))#@75 The key for the command that opened the command-line window (:, /, or ?). (defvar evil--command-window-prompt nil (#$ . 447)) (defvar evil-command-window-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [evil-command-window-mode-hook variable-documentation put "Hook run after entering Evil-cmd mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp evil-command-window-mode-map definition-name evil-command-window-mode] 4) (defvar evil-command-window-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\313#\207" [evil-command-window-mode-abbrev-table 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 defvar-1 nil make-syntax-table "Syntax table for `evil-command-window-mode'." define-abbrev-table "Abbrev table for `evil-command-window-mode'." derived-mode-parent] 5)#@193 Major mode for the Evil command-line window. This mode runs the hook `evil-command-window-mode-hook', as the final or penultimate step during initialization. \{evil-command-window-mode-map} (defalias 'evil-command-window-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315\316\317\320\307$\210\321\322!)\210\323\324!\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 add-hook after-change-functions evil--command-window-draw-prefix nil auto-fill-mode 0 run-mode-hooks evil-command-window-mode-hook local-abbrev-table] 5 (#$ . 1815) nil])#@350 Open a command-line window for HISTORY with PROMPT and EXECUTE-FN. HISTORY should be a list of commands. PROMPT should be the command-line prompt (one of ":", "/" or "?"). EXECUTE-FN should be a unary function to execute on the result that the user selects. If called interactively, edit this minibuffer argument. (fn HISTORY PROMPT EXECUTE-FN) (defalias 'evil-command-window #[771 "\304\305!\203\n\306\307!\210\310 \203\311 \210p\312\313!r\211q\210\314 \210\305 \210\315\300!\210\315\301!\210\315\302!\210\316!)\210\317\320 \321U?\205G\322\323 BB\324B\325\"B\326\"\327\330 \203Z\331\332#\210\333!\266db\210o?\205l\334u\210\335 \207" [evil-command-window-current-buffer evil-command-window-execute-fn evil--command-window-prompt evil-command-window-height derived-mode-p evil-command-window-mode user-error "Command-line window is already open" evil-ex-p evil-ex-teardown get-buffer-create "*Command Line*" erase-buffer make-local-variable evil--command-window-insert-commands (display-buffer-reuse-window display-buffer-at-bottom) append 0 window-height body-lines ((preserve-size nil . t)) ((dedicated . t)) display-buffer #[257 "\300\301\302#\210\301!\210\303 \207" [set-window-parameter delete-window nil switch-to-minibuffer] 5 "\n\n(fn WINDOW)"] minibufferp set-window-parameter delete-window select-window -1 evil-adjust-cursor] 12 (#$ . 2598) (byte-code "\300 \301 B\302 \206 \303\304!\305E\207" [minibuffer-contents minibuffer-history-value minibuffer-prompt user-error "Minibuffer is inactive" evil--command-window-minibuffer-execute] 3)])#@95 Display `evil--command-window-prompt' as a prefix of the changed lines. (fn BEG END OLD-LEN) (defalias 'evil--command-window-draw-prefix #[771 "\301\302\303#\304\305$\207" [evil--command-window-prompt propertize font-lock-face minibuffer-prompt put-text-property line-prefix] 9 (#$ . 4179)])#@47 Insert the commands in HISTORY. (fn HISTORY) (defalias 'evil--command-window-insert-commands #[257 "\301\302!\211\203\211@\211\303\261\210A\266\202\202\210\304ed\305#)\207" [inhibit-modification-hooks t reverse "\n" evil--command-window-draw-prefix nil] 5 (#$ . 4481)])#@158 Execute the command on the current line in the appropriate buffer. The local variable `evil-command-window-execute-fn' determines which function to execute. (defalias 'evil-command-window-execute #[0 "\303\304 \305 \" \306\3071\310 0\210\202\210)\311!\204!\312\313!\210\314!\211\203,\315!\210\210rq\210\211!)\207" [evil-command-window-current-buffer evil-command-window-execute-fn ignore-window-parameters buffer-substring-no-properties line-beginning-position line-end-position t (error) kill-buffer-and-window buffer-live-p user-error "Originating buffer is no longer active" get-buffer-window select-window] 6 (#$ . 4766) nil])#@62 Terminate this minibuffer argument with RESULT. (fn RESULT) (defalias 'evil--command-window-minibuffer-execute #[257 "\300 \210\211c\210\301 \207" [delete-minibuffer-contents exit-minibuffer] 2 (#$ . 5415)])#@204 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. (fn &optional CURRENT-COMMAND) (defalias 'evil-command-window-ex #[256 "\301\206\302B\303\304#\207" [evil-ex-history evil-command-window "" ":" evil-command-window-ex-execute] 5 (#$ . 5630) nil]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\302\307#\210\304\306\302\305#\207" [defalias evil-ex-command-window evil-command-window "Start command window with Ex history and current minibuffer content." make-obsolete "1.15.0" evil-ex-search-command-window "Start command window with search history and current minibuffer content."] 4)#@47 Execute RESULT as an Ex command. (fn RESULT) (defalias 'evil-command-window-ex-execute #[257 "\301\302\303\304$\266\203?\205\211@\232\204\211B\305!\207" [evil-ex-history "\\`[ \n ]*\\'" nil string-match t evil-ex-execute] 9 (#$ . 6361)])#@56 Open a command-line window for searches. (fn FORWARD) (defalias 'evil--command-window-search #[257 "\304\305\306=\203\f \202\203\n\202 B\307!\310\311\"#\207" [evil-search-module evil-ex-search-history evil-search-forward-history evil-search-backward-history evil-command-window "" evil-search evil-search-prompt make-closure #[257 "\301\300\"\207" [V0 evil-command-window-search-execute] 4 "\n\n(fn RESULT)"]] 7 (#$ . 6618)])#@50 Open a command-line window for forward searches. (defalias 'evil-command-window-search-forward #[0 "\300\301!\207" [evil--command-window-search t] 2 (#$ . 7062) nil])#@51 Open a command-line window for backward searches. (defalias 'evil-command-window-search-backward #[0 "\300\301!\207" [evil--command-window-search nil] 2 (#$ . 7234) nil])#@78 Search for RESULT using FORWARD to determine direction. (fn RESULT FORWARD) (defalias 'evil-command-window-search-execute #[514 "\305\230?\2053\306=\203)\307!\211\203\310\202\311 @\232\204& B\312 \207\313\"\210\306\f#\207" [evil-search-module evil-ex-search-pattern evil-ex-search-direction evil-ex-search-history evil-regexp-search "" evil-search evil-ex-make-search-pattern forward backward evil-ex-search evil-push-search-history] 6 (#$ . 7410)]) (provide 'evil-command-window)