;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 23:30:48 1993 ;;; from file /th/jwz/emacs19/lisp/electric/echistory.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 "This file was compiled for Emacs 19.")) (byte-code "!!" [require electric chistory] 2) (fset '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 argument NOCONFIRM, execute current line as-is without editing." "P"]) (byte-code "! @  \"W \"#Tj)   #W \"#Ti* # # # # # # # # # # # # # # # # # # # # # # # # # # # # # @# A# B# C# D# EF# GH#‡" [boundp electric-history-map nil make-keymap set-keymap-name 0 i 128 define-key make-string 1 Electric-history-undefined map "" "" 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 (control h) Helper-help backspace previous-line "?" Helper-describe-bindings ">" end-of-buffer "<" beginning-of-buffer "\n" next-line " " "" "" "" "v" scroll-down "" scroll-up [home] [down] [up] [prior] [next] " " recenter "" scroll-other-window] 6) (defvar electric-command-history-hook nil "\ If non-nil, its value is called by `electric-command-history'.") (fset '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 !\" #)" [((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. This pops up a window with the Command History listing. If the very next character typed is Space, the listing is killed and the previous window configuration is restored. Otherwise, you can browse in the Command History with Return moving down and Delete moving up, possibly selecting an expression to be redone with Space or quitting with `Q'. 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]) (fset 'Electric-history-undefined #[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 nil nil]) (fset 'Electric-history-quit #[nil "!!\"" [boundp electric-history-in-progress message nil throw electric-history-quit] 3 "\ Quit Electric Command History, restoring previous window configuration." nil])