;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require electric chistory] 2)#@158 Edit current history line in minibuffer and execute result. With prefix arg NOCONFIRM, execute current line as-is without editing. (fn &optional NOCONFIRM) (defalias 'Electric-command-history-redo-expression #[256 "\300r\301q\210\302 \210\303p!\262\304\305!\205\211\205\306\307D\")\207" [nil "*Command History*" beginning-of-line read boundp electric-history-in-progress throw electric-history-quit] 6 (#$ . 155) "P"])#@43 Keymap for Electric Command History mode. (defvar electric-history-map (byte-code "\301 \302\303\304#\210\302\305\301 #\210\302\306\304#\210\302\307\310#\210\302\311\312#\210\302\313\312#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210\302\336\337#\210\302\340\335#\210\302\341\335#\210\302\342\343#\210\302\344!\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\355#\210\302\357\360#\210\302\361\355#\210\302\362\360#\210\302\363\364#\210\302\365\366#\210\302\367\353#\210\302\370\355#\210\302\371\360#\210\302\372\364#\210\302\373\366#\210\302\374\375#\210\302\376\377#\210\207" [help-char make-sparse-keymap define-key [t] Electric-history-undefined "" [27 t] "" universal-argument " " Electric-command-history-redo-expression "!" "" down-list "" backward-up-list "" backward-sexp "" forward-sexp "" beginning-of-defun "" end-of-defun "" forward-list "" backward-list "q" Electric-history-quit "" nil "" "" "" suspend-frame char-to-string Helper-help "?" Helper-describe-bindings ">" end-of-buffer "<" beginning-of-buffer "\n" next-line " " "" previous-line "" "" "v" scroll-down "" scroll-up [home] [down] [up] [prior] [next] "\f" recenter "" scroll-other-window] 5) (#$ . 587))#@64 If non-nil, its value is called by `electric-command-history'. (defvar electric-command-history-hook nil (#$ . 1989))#@843 \Major mode for examining and redoing commands from `command-history'. This pops up a window with the Command History listing. The number of command listed is controlled by `list-command-history-max'. The command history is filtered by `list-command-history-filter' if non-nil. Combines typeout Command History list window with menu like selection of an expression from the history for re-evaluation in the *original* buffer. The history displayed is filtered by `list-command-history-filter' if non-nil. Like Emacs-Lisp mode except that characters do not insert themselves and Tab and Linefeed do not indent. Instead these commands are provided: \{electric-history-map} Calls the value of `electric-command-history-hook' if that is non-nil. The Command History listing is recomputed each time this mode is invoked. (defalias 'electric-command-history #[0 "\305p\306\307\216\3102O\311 \312\313\"\216\311 \312\314\"\216\315 \210\316q\210\317\320\321 !)\266\322\316!\210\323\324!\210m\203C\325 \210\326\327!\210\330\310\306\"\202K\331\332\310\333\305#))\2620)\262\211:\205rq\210\211@\203l\334A@@A@A\"\202r\335\336A@\")\207" [electric-history-in-progress major-mode mode-name electric-history-map Helper-return-blurb t nil #[0 "\300q\210\301 \210\302p!\207" ["*Command History*" command-history-mode bury-buffer] 2] electric-history-quit current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] #[0 "\301\300!\207" [V0 set-window-configuration] 2] list-command-history "*Command History*" electric-command-history "Electric History" use-local-map Electric-pop-up-window run-hooks electric-command-history-hook ding message "No command history." throw "return to History" Electric-command-loop "->" apply edit-and-eval-command "Redo: "] 8 (#$ . 2113) nil]) (defalias 'Electric-history-undefined #[0 "\300 \210\301\302\303\304!\"\210\305\306!\207" [ding message "%s" substitute-command-keys "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[Electric-history-quit] to quit, \\[Electric-command-history-redo-expression] to execute" sit-for 4] 4 nil nil])#@73 Quit Electric Command History, restoring previous window configuration. (defalias 'Electric-history-quit #[0 "\300\301!\205\302\303!\210\304\305\306\"\207" [boundp electric-history-in-progress message "" throw electric-history-quit nil] 3 (#$ . 4278) nil]) (provide 'echistory)