;;; compiled by mycroft@hal on Tue Sep 22 06:00:15 1992 ;;; from file /src/emacs-19.0/lisp/echistory.el ;;; emacs version 19.0.427. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "ÀÁ!ˆÀÂ!‡" [require electric chistory] 2) (fset 'Electric-command-history-redo-expression (make-byte-code (quote (&optional noconfirm)) "ÀŠÂqˆÃÄ!ˆÅp!ÆÇ!… …ÈÉ\n D\"*‡" [nil todo "*Command History*" forward-line 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 "ÀÁ!„ „Úà Ä Å\"ˆÆ Çà #ˆÄÈ Ç\"Å\"ˆÆ ÉÊ#ˆÆ ËÌ#ˆÆ ÍÌ#ˆÆ ÎÏ#ˆÆ ÐÑ#ˆÆ ÒÓ#ˆÆ ÔÕ#ˆÆ Ö×#ˆÆ ØÙ#ˆÆ ÚÛ#ˆÆ ÜÝ#ˆÆ Þß#ˆÆ àá#ˆÆ âÂ#ˆÆ ãá#ˆÆ äá#ˆÆ åæ#ˆÆ ç(!é#ˆÆ êë#ˆÆ ìí#ˆÆ îï#ˆÆ ðñ#ˆÆ òñ#ˆÆ óô#ˆÆ õñ#ˆÆ öô#ˆÆ ÷ø#ˆÆ ùú#ˆÆ ûü#ˆÆ ýþ#ˆÂ‡" [boundp electric-history-map nil make-keymap fillarray Electric-history-undefined define-key "" lookup-key "" 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 " " recenter "" scroll-other-window] 4) (defvar electric-command-history-hook nil "\ If non-nil, its value is called by `electric-command-history'.") (fset 'electric-command-history (make-byte-code (quote 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ƒÅ ˆÆÇ!ˆÈÉÊ\"‡Ë ÍÉÎÏ#)‡" [((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)) (byte-code "ÀÁÂÃÄʼn&M‡" [Electric-history-undefined make-byte-code nil "À ˆÁÂÃ!!ˆÄÅ!‡" [ding message substitute-command-keys "Type \\[Help-for-help] for help, ? for commands, C-c to quit, Space to execute" sit-for 4] 3] 8) (fset 'Electric-history-quit (make-byte-code (quote nil) "ÀÁ!…ÂÃ!ˆÄÅÆ\"‡" [boundp electric-history-in-progress message "" throw electric-history-quit nil] 3 "\ Quit Electric Command History, restoring previous window configuration." nil))