|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ e ┃
Length: 5590 (0x15d6)
Names: »echistory.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/echistory.elc«
0x0000…0020 0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 65 6c 65 63 74 72 69 63 29 29 0a 0a 28 72 65 ┆ (require (quote electric)) (re┆ 0x0020…0040 71 75 69 72 65 20 28 71 75 6f 74 65 20 63 68 69 73 74 6f 72 79 29 29 0a 0a 28 64 65 66 75 6e 20 ┆quire (quote chistory)) (defun ┆ 0x0040…0060 45 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 72 65 64 6f 2d 65 78 ┆Electric-command-history-redo-ex┆ 0x0060…0080 70 72 65 73 73 69 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 63 6f 6e 66 69 72 6d 29 20 22 ┆pression (&optional noconfirm) "┆ 0x0080…00a0 5c 0a 45 64 69 74 20 63 75 72 72 65 6e 74 20 68 69 73 74 6f 72 79 20 6c 69 6e 65 20 69 6e 20 6d ┆\ Edit current history line in m┆ 0x00a0…00c0 69 6e 69 62 75 66 66 65 72 20 61 6e 64 20 65 78 65 63 75 74 65 20 72 65 73 75 6c 74 2e 0a 57 69 ┆inibuffer and execute result. Wi┆ 0x00c0…00e0 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 4e 4f 43 4f 4e 46 49 52 4d 2c 20 65 78 ┆th prefix argument NOCONFIRM, ex┆ 0x00e0…0100 65 63 75 74 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 73 20 69 73 20 77 69 74 68 6f 75 74 ┆ecute current line as is without┆ 0x0100…0120 20 65 64 69 74 69 6e 67 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 ┆ editing." (interactive "P") (by┆ 0x0120…0140 74 65 2d 63 6f 64 65 20 22 c2 88 c2 18 8a c3 71 88 c4 20 88 c5 70 21 89 10 88 c6 c7 21 83 28 00 ┆te-code " q p! ! ( ┆ 0x0140…0160 08 83 24 00 c8 c9 09 08 44 5c 22 82 25 00 c2 82 29 00 c2 29 29 87 22 20 5b 74 6f 64 6f 20 6e 6f ┆ $ D\" % ) )) " [todo no┆ 0x0160…0180 63 6f 6e 66 69 72 6d 20 6e 69 6c 20 22 2a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 2a 22 20 ┆confirm nil "*Command History*" ┆ 0x0180…01a0 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 72 65 61 64 20 62 6f 75 6e 64 70 20 65 6c ┆beginning-of-line read boundp el┆ 0x01a0…01c0 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 69 6e 2d 70 72 6f 67 72 65 73 73 20 74 68 72 6f 77 ┆ectric-history-in-progress throw┆ 0x01c0…01e0 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 5d 20 37 29 29 0a 0a 28 64 65 ┆ electric-history-quit] 7)) (de┆ 0x01e0…0200 66 76 61 72 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69 6c 29 0a 0a ┆fvar electric-history-map nil) ┆ 0x0200…0220 28 69 66 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69 6c 20 28 73 65 ┆(if electric-history-map nil (se┆ 0x0220…0240 74 71 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 ┆tq electric-history-map (make-ke┆ 0x0240…0260 79 6d 61 70 29 29 20 28 66 69 6c 6c 61 72 72 61 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f ┆ymap)) (fillarray electric-histo┆ 0x0260…0280 72 79 2d 6d 61 70 20 28 71 75 6f 74 65 20 45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 75 ┆ry-map (quote Electric-history-u┆ 0x0280…02a0 6e 64 65 66 69 6e 65 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d ┆ndefined)) (define-key electric-┆ 0x02a0…02c0 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 22 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29 29 20 28 ┆history-map " " (make-keymap)) (┆ 0x02c0…02e0 66 69 6c 6c 61 72 72 61 79 20 28 6c 6f 6f 6b 75 70 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 ┆fillarray (lookup-key electric-h┆ 0x02e0…0300 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 22 29 20 28 71 75 6f 74 65 20 45 6c 65 63 74 72 69 63 2d ┆istory-map " ") (quote Electric-┆ 0x0300…0320 68 69 73 74 6f 72 79 2d 75 6e 64 65 66 69 6e 65 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆history-undefined)) (define-key ┆ 0x0320…0340 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 15 22 20 28 71 75 6f 74 65 20 ┆electric-history-map " " (quote ┆ 0x0340…0360 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 ┆universal-argument)) (define-key┆ 0x0360…0380 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 20 22 20 28 71 75 6f 74 65 ┆ electric-history-map " " (quote┆ 0x0380…03a0 20 45 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 72 65 64 6f 2d 65 ┆ Electric-command-history-redo-e┆ 0x03a0…03c0 78 70 72 65 73 73 69 6f 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 ┆xpression)) (define-key electric┆ 0x03c0…03e0 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 21 22 20 28 71 75 6f 74 65 20 45 6c 65 63 74 72 69 63 ┆-history-map "!" (quote Electric┆ 0x03e0…0400 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 72 65 64 6f 2d 65 78 70 72 65 73 73 69 6f 6e ┆-command-history-redo-expression┆ 0x0400…0420 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d ┆)) (define-key electric-history-┆ 0x0420…0440 6d 61 70 20 22 1b 18 22 20 28 71 75 6f 74 65 20 65 76 61 6c 2d 73 65 78 70 29 29 20 28 64 65 66 ┆map " " (quote eval-sexp)) (def┆ 0x0440…0460 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 04 ┆ine-key electric-history-map " ┆ 0x0460…0480 22 20 28 71 75 6f 74 65 20 64 6f 77 6e 2d 6c 69 73 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 ┆" (quote down-list)) (define-key┆ 0x0480…04a0 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 15 22 20 28 71 75 6f 74 ┆ electric-history-map " " (quot┆ 0x04a0…04c0 65 20 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 ┆e backward-up-list)) (define-key┆ 0x04c0…04e0 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 02 22 20 28 71 75 6f 74 ┆ electric-history-map " " (quot┆ 0x04e0…0500 65 20 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c ┆e backward-sexp)) (define-key el┆ 0x0500…0520 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 06 22 20 28 71 75 6f 74 65 20 66 ┆ectric-history-map " " (quote f┆ 0x0520…0540 6f 72 77 61 72 64 2d 73 65 78 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 ┆orward-sexp)) (define-key electr┆ 0x0540…0560 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 01 22 20 28 71 75 6f 74 65 20 62 65 67 69 6e ┆ic-history-map " " (quote begin┆ 0x0560…0580 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 ┆ning-of-defun)) (define-key elec┆ 0x0580…05a0 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 05 22 20 28 71 75 6f 74 65 20 65 6e 64 ┆tric-history-map " " (quote end┆ 0x05a0…05c0 2d 6f 66 2d 64 65 66 75 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 ┆-of-defun)) (define-key electric┆ 0x05c0…05e0 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 0e 22 20 28 71 75 6f 74 65 20 66 6f 72 77 61 72 64 ┆-history-map " " (quote forward┆ 0x05e0…0600 2d 6c 69 73 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 ┆-list)) (define-key electric-his┆ 0x0600…0620 74 6f 72 79 2d 6d 61 70 20 22 1b 10 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 6c 69 ┆tory-map " " (quote backward-li┆ 0x0620…0640 73 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 ┆st)) (define-key electric-histor┆ 0x0640…0660 79 2d 6d 61 70 20 22 71 22 20 28 71 75 6f 74 65 20 45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 ┆y-map "q" (quote Electric-histor┆ 0x0660…0680 79 2d 71 75 69 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 ┆y-quit)) (define-key electric-hi┆ 0x0680…06a0 73 74 6f 72 79 2d 6d 61 70 20 22 03 22 20 6e 69 6c 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 ┆story-map " " nil) (define-key e┆ 0x06a0…06c0 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 03 03 22 20 28 71 75 6f 74 65 20 ┆lectric-history-map " " (quote ┆ 0x06c0…06e0 45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 29 29 20 28 64 65 66 69 6e 65 2d ┆Electric-history-quit)) (define-┆ 0x06e0…0700 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1d 22 20 28 71 75 ┆key electric-history-map " " (qu┆ 0x0700…0720 6f 74 65 20 45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 29 29 20 28 64 65 66 ┆ote Electric-history-quit)) (def┆ 0x0720…0740 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1a 22 ┆ine-key electric-history-map " "┆ 0x0740…0760 20 28 71 75 6f 74 65 20 73 75 73 70 65 6e 64 2d 65 6d 61 63 73 29 29 20 28 64 65 66 69 6e 65 2d ┆ (quote suspend-emacs)) (define-┆ 0x0760…0780 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 08 22 20 28 71 75 ┆key electric-history-map " " (qu┆ 0x0780…07a0 6f 74 65 20 48 65 6c 70 65 72 2d 68 65 6c 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c ┆ote Helper-help)) (define-key el┆ 0x07a0…07c0 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 3f 22 20 28 71 75 6f 74 65 20 48 65 ┆ectric-history-map "?" (quote He┆ 0x07c0…07e0 6c 70 65 72 2d 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 29 29 20 28 64 65 66 69 6e 65 ┆lper-describe-bindings)) (define┆ 0x07e0…0800 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 3e 22 20 28 ┆-key electric-history-map " >" (┆ 0x0800…0820 71 75 6f 74 65 20 65 6e 64 2d 6f 66 2d 62 75 66 66 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 ┆quote end-of-buffer)) (define-ke┆ 0x0820…0840 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 3c 22 20 28 71 75 6f ┆y electric-history-map " <" (quo┆ 0x0840…0860 74 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 75 66 66 65 72 29 29 20 28 64 65 66 69 6e 65 ┆te beginning-of-buffer)) (define┆ 0x0860…0880 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 0a 22 20 28 71 ┆-key electric-history-map " " (q┆ 0x0880…08a0 75 6f 74 65 20 6e 65 78 74 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 ┆uote next-line)) (define-key ele┆ 0x08a0…08c0 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 0d 22 20 28 71 75 6f 74 65 20 6e 65 78 ┆ctric-history-map " " (quote nex┆ 0x08c0…08e0 74 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 ┆t-line)) (define-key electric-hi┆ 0x08e0…0900 73 74 6f 72 79 2d 6d 61 70 20 22 7f 22 20 28 71 75 6f 74 65 20 70 72 65 76 69 6f 75 73 2d 6c 69 ┆story-map " " (quote previous-li┆ 0x0900…0920 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 ┆ne)) (define-key electric-histor┆ 0x0920…0940 79 2d 6d 61 70 20 22 0e 22 20 28 71 75 6f 74 65 20 6e 65 78 74 2d 6c 69 6e 65 29 29 20 28 64 65 ┆y-map " " (quote next-line)) (de┆ 0x0940…0960 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 10 ┆fine-key electric-history-map " ┆ 0x0960…0980 22 20 28 71 75 6f 74 65 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 ┆" (quote previous-line)) (define┆ 0x0980…09a0 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 76 22 20 28 ┆-key electric-history-map " v" (┆ 0x09a0…09c0 71 75 6f 74 65 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆quote scroll-down)) (define-key ┆ 0x09c0…09e0 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 16 22 20 28 71 75 6f 74 65 20 ┆electric-history-map " " (quote ┆ 0x09e0…0a00 73 63 72 6f 6c 6c 2d 75 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 ┆scroll-up)) (define-key electric┆ 0x0a00…0a20 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 0c 22 20 28 71 75 6f 74 65 20 72 65 63 65 6e 74 65 72 ┆-history-map " " (quote recenter┆ 0x0a20…0a40 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d ┆)) (define-key electric-history-┆ 0x0a40…0a60 6d 61 70 20 22 1b 16 22 20 28 71 75 6f 74 65 20 73 63 72 6f 6c 6c 2d 6f 74 68 65 72 2d 77 69 6e ┆map " " (quote scroll-other-win┆ 0x0a60…0a80 64 6f 77 29 29 29 0a 0a 28 64 65 66 76 61 72 20 65 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 ┆dow))) (defvar electric-command┆ 0x0a80…0aa0 2d 68 69 73 74 6f 72 79 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c ┆-history-hook nil "\ If non-nil,┆ 0x0aa0…0ac0 20 69 74 73 20 76 61 6c 75 65 20 69 73 20 63 61 6c 6c 65 64 20 62 79 20 20 65 6c 65 63 74 72 69 ┆ its value is called by electri┆ 0x0ac0…0ae0 63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2e 22 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 ┆c-command-history.") (defun ele┆ 0x0ae0…0b00 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 20 6e 69 6c 20 22 5c 0a 4d 61 6a ┆ctric-command-history nil "\ Maj┆ 0x0b00…0b20 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 78 61 6d 69 6e 69 6e 67 20 61 6e 64 20 72 65 64 6f 69 6e ┆or mode for examining and redoin┆ 0x0b20…0b40 67 20 63 6f 6d 6d 61 6e 64 73 20 66 72 6f 6d 20 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 ┆g commands from command-history┆ 0x0b40…0b60 2e 0a 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6d 6d 61 6e 64 20 6c 69 73 74 65 64 20 69 ┆. The number of command listed i┆ 0x0b60…0b80 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 ┆s controlled by list-command-hi┆ 0x0b80…0ba0 73 74 6f 72 79 2d 6d 61 78 2e 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f 72 79 20 69 ┆story-max. The command history i┆ 0x0ba0…0bc0 73 20 66 69 6c 74 65 72 65 64 20 62 79 20 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 ┆s filtered by list-command-hist┆ 0x0bc0…0be0 6f 72 79 2d 66 69 6c 74 65 72 20 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2e 0a 43 6f 6d 62 69 6e 65 73 ┆ory-filter if non-nil. Combines┆ 0x0be0…0c00 20 74 79 70 65 6f 75 74 20 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 20 6c 69 73 74 20 77 69 ┆ typeout Command History list wi┆ 0x0c00…0c20 6e 64 6f 77 20 77 69 74 68 20 6d 65 6e 75 20 6c 69 6b 65 20 73 65 6c 65 63 74 69 6f 6e 0a 6f 66 ┆ndow with menu like selection of┆ 0x0c20…0c40 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 68 69 73 74 6f 72 79 20 ┆ an expression from the history ┆ 0x0c40…0c60 66 6f 72 20 72 65 2d 65 76 61 6c 75 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 2a 6f 72 69 67 69 6e ┆for re-evaluation in the *origin┆ 0x0c60…0c80 61 6c 2a 20 62 75 66 66 65 72 2e 0a 0a 54 68 65 20 68 69 73 74 6f 72 79 20 64 69 73 70 6c 61 79 ┆al* buffer. The history display┆ 0x0c80…0ca0 65 64 20 69 73 20 66 69 6c 74 65 72 65 64 20 62 79 20 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d ┆ed is filtered by list-command-┆ 0x0ca0…0cc0 68 69 73 74 6f 72 79 2d 66 69 6c 74 65 72 20 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 54 68 69 ┆history-filter if non-nil. Thi┆ 0x0cc0…0ce0 73 20 70 6f 70 73 20 75 70 20 61 20 77 69 6e 64 6f 77 20 77 69 74 68 20 74 68 65 20 43 6f 6d 6d ┆s pops up a window with the Comm┆ 0x0ce0…0d00 61 6e 64 20 48 69 73 74 6f 72 79 20 6c 69 73 74 69 6e 67 2e 20 20 49 66 20 74 68 65 20 76 65 72 ┆and History listing. If the ver┆ 0x0d00…0d20 79 0a 6e 65 78 74 20 63 68 61 72 61 63 74 65 72 20 74 79 70 65 64 20 69 73 20 53 70 61 63 65 2c ┆y next character typed is Space,┆ 0x0d20…0d40 20 74 68 65 20 6c 69 73 74 69 6e 67 20 69 73 20 6b 69 6c 6c 65 64 20 61 6e 64 20 74 68 65 20 70 ┆ the listing is killed and the p┆ 0x0d40…0d60 72 65 76 69 6f 75 73 0a 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 69 73 20 ┆revious window configuration is ┆ 0x0d60…0d80 72 65 73 74 6f 72 65 64 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 79 6f 75 20 63 61 6e 20 62 72 ┆restored. Otherwise, you can br┆ 0x0d80…0da0 6f 77 73 65 20 69 6e 20 74 68 65 0a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 20 77 69 74 68 ┆owse in the Command History with┆ 0x0da0…0dc0 20 20 52 65 74 75 72 6e 20 20 6d 6f 76 69 6e 67 20 64 6f 77 6e 20 61 6e 64 20 20 44 65 6c 65 74 ┆ Return moving down and Delet┆ 0x0dc0…0de0 65 20 20 6d 6f 76 69 6e 67 20 75 70 2c 20 70 6f 73 73 69 62 6c 79 0a 73 65 6c 65 63 74 69 6e 67 ┆e moving up, possibly selecting┆ 0x0de0…0e00 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 74 6f 20 62 65 20 72 65 64 6f 6e 65 20 77 69 74 68 ┆ an expression to be redone with┆ 0x0e00…0e20 20 53 70 61 63 65 20 6f 72 20 71 75 69 74 74 69 6e 67 20 77 69 74 68 20 60 51 27 2e 0a 0a 4c 69 ┆ Space or quitting with `Q'. Li┆ 0x0e20…0e40 6b 65 20 45 6d 61 63 73 2d 4c 69 73 70 20 4d 6f 64 65 20 65 78 63 65 70 74 20 74 68 61 74 20 63 ┆ke Emacs-Lisp Mode except that c┆ 0x0e40…0e60 68 61 72 61 63 74 65 72 73 20 64 6f 20 6e 6f 74 20 69 6e 73 65 72 74 20 74 68 65 6d 73 65 6c 76 ┆haracters do not insert themselv┆ 0x0e60…0e80 65 73 20 61 6e 64 0a 54 61 62 20 61 6e 64 20 6c 69 6e 65 66 65 65 64 20 64 6f 20 6e 6f 74 20 69 ┆es and Tab and linefeed do not i┆ 0x0e80…0ea0 6e 64 65 6e 74 2e 20 20 49 6e 73 74 65 61 64 20 74 68 65 73 65 20 63 6f 6d 6d 61 6e 64 73 20 61 ┆ndent. Instead these commands a┆ 0x0ea0…0ec0 72 65 20 70 72 6f 76 69 64 65 64 3a 0a 53 70 61 63 65 20 6f 72 20 21 09 65 64 69 74 20 74 68 65 ┆re provided: Space or ! edit the┆ 0x0ec0…0ee0 6e 20 65 76 61 6c 75 61 74 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 69 6e 20 68 69 73 74 6f ┆n evaluate current line in histo┆ 0x0ee0…0f00 72 79 20 69 6e 73 69 64 65 0a 09 09 20 20 20 74 68 65 20 4f 52 49 47 49 4e 41 4c 20 62 75 66 66 ┆ry inside the ORIGINAL buff┆ 0x0f00…0f20 65 72 20 77 68 69 63 68 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 6d 6f 64 65 2e 0a 09 09 20 20 ┆er which invoked this mode. ┆ 0x0f20…0f40 20 54 68 65 20 70 72 65 76 69 6f 75 73 20 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 ┆ The previous window configurati┆ 0x0f40…0f60 6f 6e 20 69 73 20 72 65 73 74 6f 72 65 64 0a 09 09 20 20 20 75 6e 6c 65 73 73 20 74 68 65 20 69 ┆on is restored unless the i┆ 0x0f60…0f80 6e 76 6f 6b 65 64 20 63 6f 6d 6d 61 6e 64 20 63 68 61 6e 67 65 73 20 69 74 2e 0a 43 2d 63 20 43 ┆nvoked command changes it. C-c C┆ 0x0f80…0fa0 2d 63 2c 20 43 2d 5d 2c 20 51 09 51 75 69 74 20 61 6e 64 20 72 65 73 74 6f 72 65 20 70 72 65 76 ┆-c, C-], Q Quit and restore prev┆ 0x0fa0…0fc0 69 6f 75 73 20 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 0a 4c 46 44 2c 20 ┆ious window configuration. LFD, ┆ 0x0fc0…0fe0 52 45 54 09 4d 6f 76 65 20 74 6f 20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65 20 69 6e 20 74 68 65 ┆RET Move to the next line in the┆ 0x0fe0…1000 20 68 69 73 74 6f 72 79 2e 0a 44 45 4c 09 09 4d 6f 76 65 20 74 6f 20 74 68 65 20 70 72 65 76 69 ┆ history. DEL Move to the previ┆ 0x1000…1020 6f 75 73 20 6c 69 6e 65 20 69 6e 20 74 68 65 20 68 69 73 74 6f 72 79 2e 0a 3f 09 09 50 72 6f 76 ┆ous line in the history. ? Prov┆ 0x1020…1040 69 64 65 73 20 61 20 63 6f 6d 70 6c 65 74 65 20 6c 69 73 74 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 ┆ides a complete list of commands┆ 0x1040…1060 2e 0a 0a 43 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 20 65 6c 65 63 74 72 69 63 2d ┆. Calls the value of electric-┆ 0x1060…1080 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 68 6f 6f 6b 20 20 69 66 20 74 68 61 74 20 69 73 ┆command-history-hook if that is┆ 0x1080…10a0 20 6e 6f 6e 2d 6e 69 6c 0a 54 68 65 20 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 20 6c 69 73 ┆ non-nil The Command History lis┆ 0x10a0…10c0 74 69 6e 67 20 69 73 20 72 65 63 6f 6d 70 75 74 65 64 20 65 61 63 68 20 74 69 6d 65 20 74 68 69 ┆ting is recomputed each time thi┆ 0x10c0…10e0 73 20 6d 6f 64 65 20 69 73 20 69 6e 76 6f 6b 65 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆s mode is invoked." (interactive┆ 0x10e0…1100 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c1 70 c4 1b 1a 18 c7 8e c8 c9 8d 89 13 29 88 0b ┆) (byte-code " p ) ┆ 0x1100…1120 3a 83 34 00 0a 71 88 0b 40 83 2b 00 ca 0b 41 40 40 0b 41 40 41 5c 22 82 31 00 cb cc 0b 41 40 5c ┆: 4 q @ + A@@ A@A\" 1 A@\┆ 0x1120…1140 22 82 35 00 c4 2b 87 22 20 5b 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 69 6e 2d 70 72 ┆" 5 + " [electric-history-in-pr┆ 0x1140…1160 6f 67 72 65 73 73 20 74 20 6f 6c 64 2d 62 75 66 66 65 72 20 74 6f 64 6f 20 6e 69 6c 20 65 6c 65 ┆ogress t old-buffer todo nil ele┆ 0x1160…1180 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 48 65 6c 70 65 72 2d 72 65 74 75 72 6e 2d ┆ctric-history-map Helper-return-┆ 0x1180…11a0 62 6c 75 72 62 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 71 88 c1 20 88 c2 70 21 87 22 20 5b ┆blurb ((byte-code " q p! " [┆ 0x11a0…11c0 22 2a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 2a 22 20 43 6f 6d 6d 61 6e 64 2d 68 69 73 74 ┆"*Command History*" Command-hist┆ 0x11c0…11e0 6f 72 79 2d 73 65 74 75 70 20 62 75 72 79 2d 62 75 66 66 65 72 5d 20 33 29 29 20 65 6c 65 63 74 ┆ory-setup bury-buffer] 3)) elect┆ 0x11e0…1200 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 8b 87 ┆ric-history-quit (byte-code " ┆ 0x1200…1220 22 20 5b 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69 6c 20 48 65 6c 70 ┆" [electric-history-map nil Help┆ 0x1220…1240 65 72 2d 72 65 74 75 72 6e 2d 62 6c 75 72 62 20 74 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 ┆er-return-blurb t ((byte-code " ┆ 0x1240…1260 8b 88 c5 c6 21 88 c7 c8 21 88 6d 83 1d 00 c9 20 88 ca cb 21 88 cc cd c1 5c 22 82 25 00 ce 1a cf ┆ ! ! m ! \" % ┆ 0x1260…1280 cd d0 c3 23 29 87 22 20 5b 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69 ┆ #) " [electric-history-map ni┆ 0x1280…12a0 6c 20 48 65 6c 70 65 72 2d 72 65 74 75 72 6e 2d 62 6c 75 72 62 20 74 20 28 28 62 79 74 65 2d 63 ┆l Helper-return-blurb t ((byte-c┆ 0x12a0…12c0 6f 64 65 20 22 c1 20 88 c2 71 88 c3 c4 c5 08 23 87 22 20 5b 65 6c 65 63 74 72 69 63 2d 68 69 73 ┆ode " q # " [electric-his┆ 0x12c0…12e0 74 6f 72 79 2d 6d 61 70 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 20 22 2a ┆tory-map list-command-history "*┆ 0x12e0…1300 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 2a 22 20 43 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 ┆Command History*" Command-histor┆ 0x1300…1320 79 2d 73 65 74 75 70 20 65 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 ┆y-setup electric-command-history┆ 0x1320…1340 20 22 45 6c 65 63 74 72 69 63 20 48 69 73 74 6f 72 79 22 5d 20 35 29 29 20 45 6c 65 63 74 72 69 ┆ "Electric History"] 5)) Electri┆ 0x1340…1360 63 2d 70 6f 70 2d 75 70 2d 77 69 6e 64 6f 77 20 22 2a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 ┆c-pop-up-window "*Command Histor┆ 0x1360…1380 79 2a 22 20 72 75 6e 2d 68 6f 6f 6b 73 20 65 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68 ┆y*" run-hooks electric-command-h┆ 0x1380…13a0 69 73 74 6f 72 79 2d 68 6f 6f 6b 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 4e 6f 20 63 6f 6d ┆istory-hook ding message "No com┆ 0x13a0…13c0 6d 61 6e 64 20 68 69 73 74 6f 72 79 2e 22 20 74 68 72 6f 77 20 65 6c 65 63 74 72 69 63 2d 68 69 ┆mand history." throw electric-hi┆ 0x13c0…13e0 73 74 6f 72 79 2d 71 75 69 74 20 22 72 65 74 75 72 6e 20 74 6f 20 48 69 73 74 6f 72 79 22 20 45 ┆story-quit "return to History" E┆ 0x13e0…1400 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 6c 6f 6f 70 20 22 2d 3e 22 5d 20 39 29 29 5d 20 ┆lectric-command-loop "->"] 9))] ┆ 0x1400…1420 31 29 20 61 70 70 6c 79 20 65 64 69 74 2d 61 6e 64 2d 65 76 61 6c 2d 63 6f 6d 6d 61 6e 64 20 22 ┆1) apply edit-and-eval-command "┆ 0x1420…1440 52 65 64 6f 3a 20 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 45 6c 65 63 74 72 69 63 2d 68 69 ┆Redo: "] 4)) (defun Electric-hi┆ 0x1440…1460 73 74 6f 72 79 2d 75 6e 64 65 66 69 6e 65 64 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆story-undefined nil (interactive┆ 0x1460…1480 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 c3 21 88 c4 c5 21 87 22 20 5b 6e 69 ┆) (byte-code " ! ! " [ni┆ 0x1480…14a0 6c 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 54 79 70 65 20 43 2d 68 20 66 6f 72 20 68 65 6c ┆l ding message "Type C-h for hel┆ 0x14a0…14c0 70 2c 20 3f 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 73 2c 20 43 2d 63 20 74 6f 20 71 75 69 74 2c 20 ┆p, ? for commands, C-c to quit, ┆ 0x14c0…14e0 53 70 61 63 65 20 74 6f 20 65 78 65 63 75 74 65 22 20 73 69 74 2d 66 6f 72 20 34 5d 20 34 29 29 ┆Space to execute" sit-for 4] 4))┆ 0x14e0…1500 0a 0a 28 64 65 66 75 6e 20 45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 20 6e ┆ (defun Electric-history-quit n┆ 0x1500…1520 69 6c 20 22 5c 0a 51 75 69 74 20 45 6c 65 63 74 72 69 63 20 43 6f 6d 6d 61 6e 64 20 48 69 73 74 ┆il "\ Quit Electric Command Hist┆ 0x1520…1540 6f 72 79 2c 20 72 65 73 74 6f 72 69 6e 67 20 70 72 65 76 69 6f 75 73 20 77 69 6e 64 6f 77 20 63 ┆ory, restoring previous window c┆ 0x1540…1560 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 ┆onfiguration." (interactive) (by┆ 0x1560…1580 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 83 13 00 c3 c4 21 88 c5 c6 c0 5c 22 82 14 00 c0 87 22 ┆te-code " ! ! \" "┆ 0x1580…15a0 20 5b 6e 69 6c 20 62 6f 75 6e 64 70 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 69 6e ┆ [nil boundp electric-history-in┆ 0x15a0…15c0 2d 70 72 6f 67 72 65 73 73 20 6d 65 73 73 61 67 65 20 22 22 20 74 68 72 6f 77 20 65 6c 65 63 74 ┆-progress message "" throw elect┆ 0x15c0…15d6 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 5d 20 35 29 29 0a ┆ric-history-quit] 5)) ┆