Current File : //usr/local/share/emacs/27.2/lisp/echistory.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\207" [require electric chistory] 2)
#@132 Edit current history line in minibuffer and execute result.
With prefix arg NOCONFIRM, execute current line as-is without editing.
(defalias 'Electric-command-history-redo-expression #[(&optional noconfirm) "\302r\303q\210\304 \210\305p!\306\307!\205 \205 \310\311 D\"*\207" [todo noconfirm nil "*Command History*" beginning-of-line read boundp electric-history-in-progress throw electric-history-quit] 4 (#$ . 480) "P"])
#@43 Keymap for Electric Command History mode.
(defvar electric-history-map (byte-code "\302 \303\304\305#\210\303\306\302 #\210\303\307\305#\210\303\310\311#\210\303\312\313#\210\303\314\313#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\340#\210\303\344\340#\210\303\345\346#\210\303\347 !\350#\210\303\351\352#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\360#\210\303\362\363#\210\303\364\360#\210\303\365\363#\210\303\366\367#\210\303\370\371#\210\303\372\356#\210\303\373\360#\210\303\374\363#\210\303\375\367#\210\303\376\371#\210\303\377\201@ #\210\303\201A \201B #\210)\207" [map help-char make-sparse-keymap define-key [t] Electric-history-undefined "" [27 t] "" universal-argument " " Electric-command-history-redo-expression "!" "" eval-sexp "" 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] 4) (#$ . 914))
#@64 If non-nil, its value is called by `electric-command-history'.
(defvar electric-command-history-hook nil (#$ . 2363))
#@843 \<electric-history-map>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 #[nil "\306p\307\310\216\3112L \312 \313\216\312 \314\216\315 \210\316q\210\317\320 \321 !\210*\322\316!\210\323\324!\210m\203A \325 \210\326\327!\210\330\311\307\"\202J \331 !\332\311\333\306#)*0):\205n q\210@\203h \334A@@A@A\"\202n \335\336A@\"+\207" [todo old-buffer electric-history-in-progress #1=#:wconfig #2=#:wconfig major-mode t nil #[nil "\300q\210\301 \210\302p!\207" ["*Command History*" command-history-mode bury-buffer] 2] electric-history-quit current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] #[nil "\301!\207" [#2# 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: " mode-name electric-history-map Helper-return-blurb] 4 (#$ . 2488) nil])
(defalias 'Electric-history-undefined #[nil "\300 \210\301\302\303\304!\"\210\305\306!\207" [ding message "%s" substitute-command-keys "Type \\[Helper-help] for help, ? for commands, C-c C-c to quit, Space to execute" sit-for 4] 4 nil nil])
#@73 Quit Electric Command History, restoring previous window configuration.
(defalias 'Electric-history-quit #[nil "\300\301!\205 \302\303!\210\304\305\306\"\207" [boundp electric-history-in-progress message "" throw electric-history-quit nil] 3 (#$ . 4581) nil])
(provide 'echistory)
Mini Shell