;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Fri May 6 22:17:35 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/echistory.el ;;; emacs version 19.22.93.1. ;;; 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) (defalias 'Electric-command-history-redo-expression #[(&optional noconfirm) "qyp!!  D\"*" [nil todo "*Command History*" 0 read boundp electric-history-in-progress throw electric-history-quit noconfirm] 4 "\ Edit current history line in minibuffer and execute result. With prefix arg NOCONFIRM, execute current line as-is without editing." "P"]) (byte-code "!  # # # # # # # # # # # # # # # # # # # # (!# # # # # # # # # # # # # # # # @A# BC#‡" [boundp electric-history-map nil 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) (defvar electric-command-history-hook nil "\ If non-nil, its value is called by `electric-command-history'.") (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 "\ \\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." nil]) (defalias (quote 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]) (defalias 'Electric-history-quit #[nil "!!\"" [boundp electric-history-in-progress message "" throw electric-history-quit nil] 3 "\ Quit Electric Command History, restoring previous window configuration." nil])