;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May  2 20:23:07 1995
;;; from file /gd/gnu/emacs/19.0/lisp/echistory.el
;;; emacs version 19.28.90.69.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/echistory.el' was compiled for Emacs 19"))


(byte-code "АБ!€АВ!‡" [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) "АЉВq€Гy€Дp!ЕЖ!… 	… ЗИ		D\"*‡" [nil todo "*Command History*" 0 read boundp electric-history-in-progress throw electric-history-quit noconfirm] 4 (#$ . 541) "P"])
(byte-code "АБ!„ ВБB	„Д Е	ЖЗ#€Е	ИД #€Е	ЙЗ#€Е	КЛ#€Е	МН#€Е	ОН#€Е	ПР#€Е	СТ#€Е	УФ#€Е	ХЦ#€Е	ЧШ#€Е	ЩЪ#€Е	ЫЬ#€Е	ЭЮ#€Е	Яа#€Е	бв#€Е	гВ#€Е	дв#€Е	ев#€Е	жз#€Е	и)!к#€Е	лм#€Е	но#€Е	пр#€Е	ст#€Е	ут#€Е	фх#€Е	цт#€Е	чх#€Е	шщ#€Е	ъы#€Е	ьр#€Е	эт#€Е	юх#€Е	ящ#€Е	Ѓ@ ы#€Е	ЃA ЃB #€Е	ЃC ЃD #€В‡" [boundp electric-history-map nil current-load-list 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 "" "" "" "" suspend-emacs char-to-string help-char 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)
#@64 If non-nil, its value is called by `electric-command-history'.
(defvar electric-command-history-hook nil (#$ . 1881))
#@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 "АpБЕЋЖЗЌ)\n:…- q€\n@ѓ' И\nA@@\nA@A\"‚- ЙК\nA@\"+‡" [t nil todo old-buffer electric-history-in-progress ((byte-code "Аq€Б €Вp!‡" ["*Command History*" Command-history-setup bury-buffer] 2)) electric-history-quit (byte-code "А‹‡" [((byte-code "А‹€БВ!€ГД!€mѓ Е €ЖЗ!€ИЙК\"‡Л\fНЙОП#)‡" [((byte-code "А €Бq€ВГД#‡" [list-command-history "*Command History*" Command-history-setup electric-command-history "Electric History" electric-history-map] 4)) Electric-pop-up-window "*Command History*" run-hooks electric-command-history-hook ding message "No command history." throw electric-history-quit nil "return to History" Helper-return-blurb Electric-command-loop "->" t] 4))] 1) apply edit-and-eval-command "Redo: "] 3 (#$ . 2006) nil])
(defalias 'Electric-history-undefined #[nil "А €БВГ!!€ДЕ!‡" [ding message substitute-command-keys "Type \\[Helper-help] for help, ? for commands, C-c C-c to quit, Space to execute" sit-for 4] 3 nil nil])
#@73 Quit Electric Command History, restoring previous window configuration.
(defalias 'Electric-history-quit #[nil "АБ!… ВГ!€ДЕЖ\"‡" [boundp electric-history-in-progress message "" throw electric-history-quit nil] 3 (#$ . 3836) nil])