| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/echistory.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:16 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/echistory.el
;;; in Emacs version 24.3.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!\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 (#$ . 624) "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) (#$ . 1058))
#@64 If non-nil, its value is called by `electric-command-history'.
(defvar electric-command-history-hook nil (#$ . 2508))
#@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 "\303p\304\305\216\306\307\215):\205- q\210@\203' \310A@@A@A\"\202- \311\312A@\"+\207" [todo old-buffer electric-history-in-progress t nil ((byte-code "\300q\210\301 \210\302p!\207" ["*Command History*" command-history-mode bury-buffer] 2)) electric-history-quit (byte-code "\306 \307\216\306 \310\216\311 \210\312q\210\313 \210\314\315\316\f!\210*\317\312!\210\320\321!\210m\2036 \322 \210\323\324!\210\325\326\327\"\202> \330 \331\326\332\333#)*\207" [#1=#:wconfig #2=#:wconfig major-mode mode-name electric-history-map Helper-return-blurb current-window-configuration ((set-window-configuration #1#)) ((set-window-configuration #2#)) list-command-history "*Command History*" Command-history-setup electric-command-history "Electric History" use-local-map Electric-pop-up-window run-hooks electric-command-history-hook ding message "No command history." throw electric-history-quit nil "return to History" Electric-command-loop "->" t] 4) apply edit-and-eval-command "Redo: "] 3 (#$ . 2633) 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 (#$ . 4777) nil])
(provide 'echistory)