|
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: ┃ r ┃
Length: 5701 (0x1645)
Names: »replace.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/replace.elc«
0x0000…0020 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 64 65 6c 65 74 65 2d 6e 6f 6e 2d 6d 61 74 63 68 69 6e ┆ (fset (quote delete-non-matchin┆
0x0020…0040 67 2d 6c 69 6e 65 73 29 20 28 71 75 6f 74 65 20 6b 65 65 70 2d 6c 69 6e 65 73 29 29 0a 0a 28 64 ┆g-lines) (quote keep-lines)) (d┆
0x0040…0060 65 66 75 6e 20 6b 65 65 70 2d 6c 69 6e 65 73 20 28 72 65 67 65 78 70 29 20 22 5c 0a 44 65 6c 65 ┆efun keep-lines (regexp) "\ Dele┆
0x0060…0080 74 65 20 6c 69 6e 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 61 74 63 68 65 73 20 ┆te lines not containing matches ┆
0x0080…00a0 66 6f 72 20 52 45 47 45 58 50 2e 0a 41 70 70 6c 69 65 73 20 74 6f 20 6c 69 6e 65 73 20 61 66 74 ┆for REGEXP. Applies to lines aft┆
0x00a0…00c0 65 72 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 4b 65 65 70 20 6c ┆er point." (interactive "sKeep l┆
0x00c0…00e0 69 6e 65 73 20 28 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 61 74 63 68 20 66 6f 72 20 72 65 67 65 78 ┆ines (containing match for regex┆
0x00e0…0100 70 29 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 8a 6d 3f 85 35 00 8a c4 c5 21 88 ┆p): ") (byte-code " m? 5 ! ┆
0x0100…0120 60 29 18 c6 09 08 c2 23 83 1d 00 08 62 82 30 00 c7 60 c6 09 c3 c2 23 83 2e 00 c8 20 88 60 82 2f ┆`) # b 0 ` # . ` /┆
0x0120…0140 00 64 5c 22 29 88 82 03 00 29 87 22 20 5b 65 6e 64 20 72 65 67 65 78 70 20 74 20 6e 69 6c 20 66 ┆ d\") ) " [end regexp t nil f┆
0x0140…0160 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 ┆orward-line 1 re-search-forward ┆
0x0160…0180 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 5d ┆delete-region beginning-of-line]┆
0x0180…01a0 20 39 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 64 65 6c 65 74 65 2d 6d 61 74 63 68 69 ┆ 9)) (fset (quote delete-matchi┆
0x01a0…01c0 6e 67 2d 6c 69 6e 65 73 29 20 28 71 75 6f 74 65 20 66 6c 75 73 68 2d 6c 69 6e 65 73 29 29 0a 0a ┆ng-lines) (quote flush-lines)) ┆
0x01c0…01e0 28 64 65 66 75 6e 20 66 6c 75 73 68 2d 6c 69 6e 65 73 20 28 72 65 67 65 78 70 29 20 22 5c 0a 44 ┆(defun flush-lines (regexp) "\ D┆
0x01e0…0200 65 6c 65 74 65 20 6c 69 6e 65 73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 61 74 63 68 65 73 20 66 ┆elete lines containing matches f┆
0x0200…0220 6f 72 20 52 45 47 45 58 50 2e 0a 41 70 70 6c 69 65 73 20 74 6f 20 6c 69 6e 65 73 20 61 66 74 65 ┆or REGEXP. Applies to lines afte┆
0x0220…0240 72 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 46 6c 75 73 68 20 6c ┆r point." (interactive "sFlush l┆
0x0240…0260 69 6e 65 73 20 28 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 61 74 63 68 20 66 6f 72 20 72 65 67 65 78 ┆ines (containing match for regex┆
0x0260…0280 70 29 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 8a 6d 3f 85 0d 00 c3 08 c1 c2 23 ┆p): ") (byte-code " m? #┆
0x0280…02a0 85 1f 00 c4 20 88 c5 60 c6 c7 21 88 60 5c 22 88 82 03 00 29 87 22 20 5b 72 65 67 65 78 70 20 6e ┆ ` ! `\" ) " [regexp n┆
0x02a0…02c0 69 6c 20 74 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 62 65 67 69 6e 6e 69 6e 67 ┆il t re-search-forward beginning┆
0x02c0…02e0 2d 6f 66 2d 6c 69 6e 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 6c ┆-of-line delete-region forward-l┆
0x02e0…0300 69 6e 65 20 31 5d 20 37 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 63 6f 75 6e 74 2d 6d ┆ine 1] 7)) (fset (quote count-m┆
0x0300…0320 61 74 63 68 65 73 29 20 28 71 75 6f 74 65 20 68 6f 77 2d 6d 61 6e 79 29 29 0a 0a 28 64 65 66 75 ┆atches) (quote how-many)) (defu┆
0x0320…0340 6e 20 68 6f 77 2d 6d 61 6e 79 20 28 72 65 67 65 78 70 29 20 22 5c 0a 50 72 69 6e 74 20 6e 75 6d ┆n how-many (regexp) "\ Print num┆
0x0340…0360 62 65 72 20 6f 66 20 6d 61 74 63 68 65 73 20 66 6f 72 20 52 45 47 45 58 50 20 66 6f 6c 6c 6f 77 ┆ber of matches for REGEXP follow┆
0x0360…0380 69 6e 67 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 48 6f 77 20 6d ┆ing point." (interactive "sHow m┆
0x0380…03a0 61 6e 79 20 6d 61 74 63 68 65 73 20 66 6f 72 20 28 72 65 67 65 78 70 29 3a 20 22 29 20 28 62 79 ┆any matches for (regexp): ") (by┆
0x03a0…03c0 74 65 2d 63 6f 64 65 20 22 c3 88 c5 c3 19 18 8a 6d 3f 85 15 00 60 89 11 88 c6 0a c3 c4 23 85 2c ┆te-code " m? ` # ,┆
0x03c0…03e0 00 09 60 55 83 24 00 c7 c8 21 82 28 00 08 54 89 10 88 82 07 00 88 c9 ca 08 5c 22 29 2a 87 22 20 ┆ `U $ ! ( T \")* " ┆
0x03e0…0400 5b 63 6f 75 6e 74 20 6f 70 6f 69 6e 74 20 72 65 67 65 78 70 20 6e 69 6c 20 74 20 30 20 72 65 2d ┆[count opoint regexp nil t 0 re-┆
0x0400…0420 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 6d 65 ┆search-forward forward-char 1 me┆
0x0420…0440 73 73 61 67 65 20 22 25 64 20 6f 63 63 75 72 72 65 6e 63 65 73 22 5d 20 35 29 29 0a 0a 28 64 65 ┆ssage "%d occurrences"] 5)) (de┆
0x0440…0460 66 76 61 72 20 6f 63 63 75 72 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 6f 63 ┆fvar occur-mode-map nil) (if oc┆
0x0460…0480 63 75 72 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 6f 63 63 75 72 2d 6d 6f 64 ┆cur-mode-map nil (setq occur-mod┆
0x0480…04a0 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 ┆e-map (make-sparse-keymap)) (def┆
0x04a0…04c0 69 6e 65 2d 6b 65 79 20 6f 63 63 75 72 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 03 22 20 28 71 75 6f ┆ine-key occur-mode-map " " (quo┆
0x04c0…04e0 74 65 20 6f 63 63 75 72 2d 6d 6f 64 65 2d 67 6f 74 6f 2d 6f 63 63 75 72 72 65 6e 63 65 29 29 29 ┆te occur-mode-goto-occurrence)))┆
0x04e0…0500 0a 0a 28 64 65 66 76 61 72 20 6f 63 63 75 72 2d 62 75 66 66 65 72 20 6e 69 6c 29 0a 0a 28 64 65 ┆ (defvar occur-buffer nil) (de┆
0x0500…0520 66 76 61 72 20 6f 63 63 75 72 2d 6e 6c 69 6e 65 73 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 ┆fvar occur-nlines nil) (defvar ┆
0x0520…0540 6f 63 63 75 72 2d 70 6f 73 2d 6c 69 73 74 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 6f 63 63 75 ┆occur-pos-list nil) (defun occu┆
0x0540…0560 72 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 6f 75 74 ┆r-mode nil "\ Major mode for out┆
0x0560…0580 70 75 74 20 66 72 6f 6d 20 5c 5c 5b 6f 63 63 75 72 5d 2e 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 ┆put from \\[occur]. Move point t┆
0x0580…05a0 6f 20 6f 6e 65 20 6f 66 20 74 68 65 20 6f 63 63 75 72 72 65 6e 63 65 73 20 69 6e 20 74 68 69 73 ┆o one of the occurrences in this┆
0x05a0…05c0 20 62 75 66 66 65 72 2c 0a 74 68 65 6e 20 75 73 65 20 6f 63 63 75 72 2d 6d 6f 64 65 2d 67 6f 74 ┆ buffer, then use occur-mode-got┆
0x05c0…05e0 6f 2d 6f 63 63 75 72 72 65 6e 63 65 20 74 6f 20 67 6f 20 74 6f 20 74 68 65 20 73 61 6d 65 20 6f ┆o-occurrence to go to the same o┆
0x05e0…0600 63 63 75 72 72 65 6e 63 65 0a 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 74 68 61 74 20 74 68 65 ┆ccurrence in the buffer that the┆
0x0600…0620 20 6f 63 63 75 72 72 65 6e 63 65 73 20 77 65 72 65 20 66 6f 75 6e 64 20 69 6e 2e 0a 5c 5c 7b 6f ┆ occurrences were found in. \\{o┆
0x0620…0640 63 63 75 72 2d 6d 6f 64 65 2d 6d 61 70 7d 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 20 88 c4 ┆ccur-mode-map}" (byte-code " ┆
0x0640…0660 08 21 88 c5 89 11 88 c6 89 12 88 c7 c8 21 88 c7 c9 21 88 c7 ca 21 87 22 20 5b 6f 63 63 75 72 2d ┆ ! ! ! ! " [occur-┆
0x0660…0680 6d 6f 64 65 2d 6d 61 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6b 69 ┆mode-map major-mode mode-name ki┆
0x0680…06a0 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c ┆ll-all-local-variables use-local┆
0x06a0…06c0 2d 6d 61 70 20 6f 63 63 75 72 2d 6d 6f 64 65 20 22 4f 63 63 75 72 22 20 6d 61 6b 65 2d 6c 6f 63 ┆-map occur-mode "Occur" make-loc┆
0x06c0…06e0 61 6c 2d 76 61 72 69 61 62 6c 65 20 6f 63 63 75 72 2d 62 75 66 66 65 72 20 6f 63 63 75 72 2d 6e ┆al-variable occur-buffer occur-n┆
0x06e0…0700 6c 69 6e 65 73 20 6f 63 63 75 72 2d 70 6f 73 2d 6c 69 73 74 5d 20 36 29 29 0a 0a 28 64 65 66 75 ┆lines occur-pos-list] 6)) (defu┆
0x0700…0720 6e 20 6f 63 63 75 72 2d 6d 6f 64 65 2d 67 6f 74 6f 2d 6f 63 63 75 72 72 65 6e 63 65 20 6e 69 6c ┆n occur-mode-goto-occurrence nil┆
0x0720…0740 20 22 5c 0a 47 6f 20 74 6f 20 74 68 65 20 6c 69 6e 65 20 74 68 69 73 20 6f 63 63 75 72 72 65 6e ┆ "\ Go to the line this occurren┆
0x0740…0760 63 65 20 77 61 73 20 66 6f 75 6e 64 20 69 6e 2c 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 69 ┆ce was found in, in the buffer i┆
0x0760…0780 74 20 77 61 73 20 66 6f 75 6e 64 20 69 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 ┆t was found in." (interactive) (┆
0x0780…07a0 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 3f 86 0b 00 c7 08 21 3f 85 17 00 c1 10 c1 89 12 88 c8 ┆byte-code " ? !? ┆
0x07a0…07c0 c9 21 88 ca cb 65 60 5c 22 53 0c cc 57 83 2a 00 cd 0c 5a 82 3a 00 0c cc 56 83 39 00 cd ce cd 0c ┆ ! e`\"S W * Z : V 9 ┆
0x07c0…07e0 5c 22 5c 5c 82 3a 00 cf 5c 22 1b 0b 0a 38 1e 06 d0 08 21 88 d1 0e 06 21 62 2a 87 22 20 5b 6f 63 ┆\"\\ : \" 8 ! !b* " [oc┆
0x07e0…0800 63 75 72 2d 62 75 66 66 65 72 20 6e 69 6c 20 6f 63 63 75 72 2d 70 6f 73 2d 6c 69 73 74 20 6f 63 ┆cur-buffer nil occur-pos-list oc┆
0x0800…0820 63 75 72 2d 6e 75 6d 62 65 72 20 6f 63 63 75 72 2d 6e 6c 69 6e 65 73 20 74 20 70 6f 73 20 62 75 ┆cur-number occur-nlines t pos bu┆
0x0820…0840 66 66 65 72 2d 6e 61 6d 65 20 65 72 72 6f 72 20 22 42 75 66 66 65 72 20 69 6e 20 77 68 69 63 68 ┆ffer-name error "Buffer in which┆
0x0840…0860 20 6f 63 63 75 72 65 6e 63 65 73 20 77 65 72 65 20 66 6f 75 6e 64 20 69 73 20 64 65 6c 65 74 65 ┆ occurences were found is delete┆
0x0860…0880 64 2e 22 20 2f 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 30 20 32 20 2a 20 31 20 70 6f 70 2d 74 6f ┆d." / count-lines 0 2 * 1 pop-to┆
0x0880…08a0 2d 62 75 66 66 65 72 20 6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 5d 20 39 29 29 0a 0a 28 64 ┆-buffer marker-position] 9)) (d┆
0x08a0…08c0 65 66 76 61 72 20 6c 69 73 74 2d 6d 61 74 63 68 69 6e 67 2d 6c 69 6e 65 73 2d 64 65 66 61 75 6c ┆efvar list-matching-lines-defaul┆
0x08c0…08e0 74 2d 63 6f 6e 74 65 78 74 2d 6c 69 6e 65 73 20 30 20 22 5c 0a 2a 44 65 66 61 75 6c 74 20 6e 75 ┆t-context-lines 0 "\ *Default nu┆
0x08e0…0900 6d 62 65 72 20 6f 66 20 63 6f 6e 74 65 78 74 20 6c 69 6e 65 73 20 74 6f 20 69 6e 63 6c 75 64 65 ┆mber of context lines to include┆
0x0900…0920 20 61 72 6f 75 6e 64 20 61 20 6c 69 73 74 2d 6d 61 74 63 68 69 6e 67 2d 6c 69 6e 65 73 0a 6d 61 ┆ around a list-matching-lines ma┆
0x0920…0940 74 63 68 2e 20 20 41 20 6e 65 67 61 74 69 76 65 20 6e 75 6d 62 65 72 20 6d 65 61 6e 73 20 74 6f ┆tch. A negative number means to┆
0x0940…0960 20 69 6e 63 6c 75 64 65 20 74 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 73 20 62 65 66 6f 72 65 20 ┆ include that many lines before ┆
0x0960…0980 74 68 65 20 6d 61 74 63 68 2e 0a 41 20 70 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72 20 6d 65 61 ┆the match. A positive number mea┆
0x0980…09a0 6e 73 20 74 6f 20 69 6e 63 6c 75 64 65 20 74 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 73 20 62 6f ┆ns to include that many lines bo┆
0x09a0…09c0 74 68 20 62 65 66 6f 72 65 20 61 6e 64 20 61 66 74 65 72 2e 22 29 0a 0a 28 66 73 65 74 20 28 71 ┆th before and after.") (fset (q┆
0x09c0…09e0 75 6f 74 65 20 6c 69 73 74 2d 6d 61 74 63 68 69 6e 67 2d 6c 69 6e 65 73 29 20 28 71 75 6f 74 65 ┆uote list-matching-lines) (quote┆
0x09e0…0a00 20 6f 63 63 75 72 29 29 0a 0a 28 64 65 66 75 6e 20 6f 63 63 75 72 20 28 72 65 67 65 78 70 20 26 ┆ occur)) (defun occur (regexp &┆
0x0a00…0a20 6f 70 74 69 6f 6e 61 6c 20 6e 6c 69 6e 65 73 29 20 22 5c 0a 53 68 6f 77 20 61 6c 6c 20 6c 69 6e ┆optional nlines) "\ Show all lin┆
0x0a20…0a40 65 73 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 6f 69 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 20 ┆es following point containing a ┆
0x0a40…0a60 6d 61 74 63 68 20 66 6f 72 20 52 45 47 45 58 50 2e 0a 44 69 73 70 6c 61 79 20 65 61 63 68 20 6c ┆match for REGEXP. Display each l┆
0x0a60…0a80 69 6e 65 20 77 69 74 68 20 4e 4c 49 4e 45 53 20 6c 69 6e 65 73 20 62 65 66 6f 72 65 20 61 6e 64 ┆ine with NLINES lines before and┆
0x0a80…0aa0 20 61 66 74 65 72 2c 0a 20 6f 72 20 2d 4e 4c 49 4e 45 53 20 62 65 66 6f 72 65 20 69 66 20 4e 4c ┆ after, or -NLINES before if NL┆
0x0aa0…0ac0 49 4e 45 53 20 69 73 20 6e 65 67 61 74 69 76 65 2e 0a 4e 4c 49 4e 45 53 20 64 65 66 61 75 6c 74 ┆INES is negative. NLINES default┆
0x0ac0…0ae0 73 20 74 6f 20 6c 69 73 74 2d 6d 61 74 63 68 69 6e 67 2d 6c 69 6e 65 73 2d 64 65 66 61 75 6c 74 ┆s to list-matching-lines-default┆
0x0ae0…0b00 2d 63 6f 6e 74 65 78 74 2d 6c 69 6e 65 73 2e 0a 49 6e 74 65 72 61 63 74 69 76 65 6c 79 20 69 74 ┆-context-lines. Interactively it┆
0x0b00…0b20 20 69 73 20 74 68 65 20 70 72 65 66 69 78 20 61 72 67 2e 0a 0a 54 68 65 20 6c 69 6e 65 73 20 61 ┆ is the prefix arg. The lines a┆
0x0b20…0b40 72 65 20 73 68 6f 77 6e 20 69 6e 20 61 20 62 75 66 66 65 72 20 6e 61 6d 65 64 20 2a 4f 63 63 75 ┆re shown in a buffer named *Occu┆
0x0b40…0b60 72 2a 2e 0a 49 74 20 73 65 72 76 65 73 20 61 73 20 61 20 6d 65 6e 75 20 74 6f 20 66 69 6e 64 20 ┆r*. It serves as a menu to find ┆
0x0b60…0b80 61 6e 79 20 6f 66 20 74 68 65 20 6f 63 63 75 72 72 65 6e 63 65 73 20 69 6e 20 74 68 69 73 20 62 ┆any of the occurrences in this b┆
0x0b80…0ba0 75 66 66 65 72 2e 0a 5c 5c 5b 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 5d 20 69 6e 20 74 68 61 74 ┆uffer. \\[describe-mode] in that┆
0x0ba0…0bc0 20 62 75 66 66 65 72 20 77 69 6c 6c 20 65 78 70 6c 61 69 6e 20 68 6f 77 2e 22 20 28 69 6e 74 65 ┆ buffer will explain how." (inte┆
0x0bc0…0be0 72 61 63 74 69 76 65 20 22 73 4c 69 73 74 20 6c 69 6e 65 73 20 6d 61 74 63 68 69 6e 67 20 72 65 ┆ractive "sList lines matching re┆
0x0be0…0c00 67 65 78 70 3a 20 0a 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cc 88 08 83 0c 00 d2 08 21 ┆gexp: P") (byte-code " !┆
0x0c00…0c20 82 0d 00 09 89 10 88 c3 70 cc cc 1e 06 1d 1c 1a 8a d3 20 88 d4 65 60 5c 22 54 89 15 88 60 89 16 ┆ p e`\"T ` ┆
0x0c20…0c40 06 29 88 d5 90 8a 0e 07 71 88 d6 63 88 d7 0e 08 21 88 d8 d9 da 0c 21 db dc 24 88 dd 20 88 0c 89 ┆ ) q c ! ! $ ┆
0x0c40…0c60 16 09 88 08 89 16 0a 88 cc 89 16 0b 29 88 8a de 0e 08 cc c3 23 85 46 01 d3 df 21 88 8a 0d d4 0e ┆ ) # F ! ┆
0x0c60…0c80 06 60 5c 22 5c 5c 89 15 88 60 89 16 06 29 88 8a e0 08 e1 57 83 81 00 08 82 83 00 08 5b 21 88 60 ┆ `\"\\ ` ) W [! `┆
0x0c80…0ca0 29 1e 0d 8a 08 e1 56 83 97 00 e0 08 54 21 82 9a 00 e0 df 21 88 60 29 1e 0e e2 e3 0d 5c 22 1e 0f ┆) V T! ! `) \" ┆
0x0ca0…0cc0 e4 0e 0f 47 e5 5c 22 1e 10 cc 1e 11 8a e6 20 89 16 11 88 e7 0e 11 60 5c 22 88 0e 07 71 88 0e 11 ┆ G \" `\" q ┆
0x0cc0…0ce0 0e 0b 42 89 16 0b 88 0a 86 d6 00 e8 08 21 86 d6 00 e9 63 88 cc 89 12 88 ea 0c 0e 0d 0e 0e 23 88 ┆ B ! c # ┆
0x0ce0…0d00 eb 0e 0e 0e 0d 5a 21 88 08 e1 57 83 f6 00 08 5b 82 f7 00 08 89 16 11 88 0e 11 e1 56 85 16 01 d8 ┆ Z! W [ V ┆
0x0d00…0d20 0e 10 ec 5c 22 88 e0 df 21 88 0e 11 53 89 16 11 88 82 fb 00 88 d8 0e 0f ec 5c 22 88 e0 df 21 88 ┆ \" ! S \" ! ┆
0x0d20…0d40 0e 11 08 57 85 3c 01 d8 0e 10 ec 5c 22 88 e0 df 21 88 0e 11 54 89 16 11 88 82 21 01 29 88 e0 df ┆ W < \" ! T ! ) ┆
0x0d40…0d60 21 2d 88 82 57 00 88 0e 07 71 88 ed 0e 0b 21 89 16 0b 88 74 85 5d 01 ee ef 0e 0b 47 5c 22 29 91 ┆!- W q ! t ] G\") ┆
0x0d60…0d80 2c 87 22 20 5b 6e 6c 69 6e 65 73 20 6c 69 73 74 2d 6d 61 74 63 68 69 6e 67 2d 6c 69 6e 65 73 2d ┆, " [nlines list-matching-lines-┆
0x0d80…0da0 64 65 66 61 75 6c 74 2d 63 6f 6e 74 65 78 74 2d 6c 69 6e 65 73 20 66 69 72 73 74 20 74 20 62 75 ┆default-context-lines first t bu┆
0x0da0…0dc0 66 66 65 72 20 6c 69 6e 65 6e 75 6d 20 70 72 65 76 70 6f 73 20 73 74 61 6e 64 61 72 64 2d 6f 75 ┆ffer linenum prevpos standard-ou┆
0x0dc0…0de0 74 70 75 74 20 72 65 67 65 78 70 20 6f 63 63 75 72 2d 62 75 66 66 65 72 20 6f 63 63 75 72 2d 6e ┆tput regexp occur-buffer occur-n┆
0x0de0…0e00 6c 69 6e 65 73 20 6f 63 63 75 72 2d 70 6f 73 2d 6c 69 73 74 20 6e 69 6c 20 73 74 61 72 74 20 65 ┆lines occur-pos-list nil start e┆
0x0e00…0e20 6e 64 20 74 61 67 20 65 6d 70 74 79 20 74 65 6d 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d ┆nd tag empty tem prefix-numeric-┆
0x0e20…0e40 76 61 6c 75 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 63 6f 75 6e 74 2d 6c 69 ┆value beginning-of-line count-li┆
0x0e40…0e60 6e 65 73 20 22 2a 4f 63 63 75 72 2a 22 20 22 4c 69 6e 65 73 20 6d 61 74 63 68 69 6e 67 20 22 20 ┆nes "*Occur*" "Lines matching " ┆
0x0e60…0e80 70 72 69 6e 31 20 69 6e 73 65 72 74 20 22 20 69 6e 20 62 75 66 66 65 72 20 22 20 62 75 66 66 65 ┆prin1 insert " in buffer " buffe┆
0x0e80…0ea0 72 2d 6e 61 6d 65 20 34 36 20 31 30 20 6f 63 63 75 72 2d 6d 6f 64 65 20 72 65 2d 73 65 61 72 63 ┆r-name 46 10 occur-mode re-searc┆
0x0ea0…0ec0 68 2d 66 6f 72 77 61 72 64 20 31 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 30 20 66 6f 72 6d 61 ┆h-forward 1 forward-line 0 forma┆
0x0ec0…0ee0 74 20 22 25 33 64 22 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 33 32 20 6d 61 6b 65 2d 6d 61 72 6b ┆t "%3d" make-string 32 make-mark┆
0x0ee0…0f00 65 72 20 73 65 74 2d 6d 61 72 6b 65 72 20 7a 65 72 6f 70 20 22 2d 2d 2d 2d 2d 2d 2d 2d 0a 22 20 ┆er set-marker zerop "-------- " ┆
0x0f00…0f20 69 6e 73 65 72 74 2d 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 62 61 63 6b 77 61 72 64 ┆insert-buffer-substring backward┆
0x0f20…0f40 2d 63 68 61 72 20 35 38 20 6e 72 65 76 65 72 73 65 20 6d 65 73 73 61 67 65 20 22 25 64 20 6d 61 ┆-char 58 nreverse message "%d ma┆
0x0f40…0f60 74 63 68 69 6e 67 20 6c 69 6e 65 73 2e 22 5d 20 33 32 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 ┆tching lines."] 32)) (defconst ┆
0x0f60…0f80 71 75 65 72 79 2d 72 65 70 6c 61 63 65 2d 68 65 6c 70 20 22 54 79 70 65 20 53 70 61 63 65 20 74 ┆query-replace-help "Type Space t┆
0x0f80…0fa0 6f 20 72 65 70 6c 61 63 65 20 6f 6e 65 20 6d 61 74 63 68 2c 20 44 65 6c 65 74 65 20 74 6f 20 73 ┆o replace one match, Delete to s┆
0x0fa0…0fc0 6b 69 70 20 74 6f 20 6e 65 78 74 2c 0a 45 53 43 20 74 6f 20 65 78 69 74 2c 20 50 65 72 69 6f 64 ┆kip to next, ESC to exit, Period┆
0x0fc0…0fe0 20 74 6f 20 72 65 70 6c 61 63 65 20 6f 6e 65 20 6d 61 74 63 68 20 61 6e 64 20 65 78 69 74 2c 0a ┆ to replace one match and exit, ┆
0x0fe0…1000 43 6f 6d 6d 61 20 74 6f 20 72 65 70 6c 61 63 65 20 62 75 74 20 6e 6f 74 20 6d 6f 76 65 20 70 6f ┆Comma to replace but not move po┆
0x1000…1020 69 6e 74 20 69 6d 6d 65 64 69 61 74 65 6c 79 2c 0a 43 2d 72 20 74 6f 20 65 6e 74 65 72 20 72 65 ┆int immediately, C-r to enter re┆
0x1020…1040 63 75 72 73 69 76 65 20 65 64 69 74 20 28 5c 5c 5b 65 78 69 74 2d 72 65 63 75 72 73 69 76 65 2d ┆cursive edit (\\[exit-recursive-┆
0x1040…1060 65 64 69 74 5d 20 74 6f 20 67 65 74 20 6f 75 74 20 61 67 61 69 6e 29 2c 0a 43 2d 77 20 74 6f 20 ┆edit] to get out again), C-w to ┆
0x1060…1080 64 65 6c 65 74 65 20 6d 61 74 63 68 20 61 6e 64 20 72 65 63 75 72 73 69 76 65 20 65 64 69 74 2c ┆delete match and recursive edit,┆
0x1080…10a0 0a 43 2d 6c 20 74 6f 20 63 6c 65 61 72 20 74 68 65 20 73 63 72 65 65 6e 2c 20 72 65 64 69 73 70 ┆ C-l to clear the screen, redisp┆
0x10a0…10c0 6c 61 79 2c 20 61 6e 64 20 6f 66 66 65 72 20 73 61 6d 65 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 ┆lay, and offer same replacement ┆
0x10c0…10e0 61 67 61 69 6e 2c 0a 21 20 74 6f 20 72 65 70 6c 61 63 65 20 61 6c 6c 20 72 65 6d 61 69 6e 69 6e ┆again, ! to replace all remainin┆
0x10e0…1100 67 20 6d 61 74 63 68 65 73 20 77 69 74 68 20 6e 6f 20 6d 6f 72 65 20 71 75 65 73 74 69 6f 6e 73 ┆g matches with no more questions┆
0x1100…1120 2c 0a 5e 20 74 6f 20 6d 6f 76 65 20 70 6f 69 6e 74 20 62 61 63 6b 20 74 6f 20 70 72 65 76 69 6f ┆, ^ to move point back to previo┆
0x1120…1140 75 73 20 6d 61 74 63 68 2e 22 20 22 48 65 6c 70 20 6d 65 73 73 61 67 65 20 77 68 69 6c 65 20 69 ┆us match." "Help message while i┆
0x1140…1160 6e 20 71 75 65 72 79 2d 72 65 70 6c 61 63 65 22 29 0a 0a 28 64 65 66 75 6e 20 70 65 72 66 6f 72 ┆n query-replace") (defun perfor┆
0x1160…1180 6d 2d 72 65 70 6c 61 63 65 20 28 66 72 6f 6d 2d 73 74 72 69 6e 67 20 74 6f 2d 73 74 72 69 6e 67 ┆m-replace (from-string to-string┆
0x1180…11a0 20 71 75 65 72 79 2d 66 6c 61 67 20 72 65 67 65 78 70 2d 66 6c 61 67 20 64 65 6c 69 6d 69 74 65 ┆ query-flag regexp-flag delimite┆
0x11a0…11c0 64 2d 66 6c 61 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 85 0e 00 0a 85 0e 00 d6 0b d7 0b ┆d-flag) (byte-code " ┆
0x11c0…11e0 21 5c 22 3f 0d 3f 0d 83 19 00 d8 82 1a 00 d9 0b c9 cb 1e 0a 1e 08 1e 07 1e 06 1c 18 0e 0c 85 40 ┆!\"? ? @┆
0x11e0…1200 00 d8 16 06 da 0d 83 38 00 0b 82 3b 00 db 0b 21 da 51 89 16 07 88 dc 20 88 dc 20 88 0e 08 85 5d ┆ 8 ; ! Q ]┆
0x1200…1220 00 6d 3f 85 5d 00 dd 60 21 88 de 0e 06 0e 07 cb c9 24 85 c9 01 0e 0a 60 3d 83 6d 00 df e0 21 82 ┆ m? ] `! $ `= m ! ┆
0x1220…1240 c5 01 e1 20 88 0e 0d 3f 83 7f 00 e2 0e 0e 08 0c 23 82 c0 01 cb cb 1e 10 1e 0f 0e 0f 3f 85 bf 01 ┆ ? # ? ┆
0x1240…1260 e3 20 e4 1e 12 1e 11 0e 14 89 16 13 88 0e 13 0e 14 55 85 c0 00 e5 e6 0b 0e 0e 23 88 72 89 16 13 ┆ U # r ┆
0x1260…1280 88 0e 13 e7 55 85 bc 00 0e 14 16 15 0e 14 89 16 13 88 82 98 00 88 e8 0e 11 21 2a 88 0e 13 e9 55 ┆ U !* U┆
0x1280…12a0 83 da 00 cb 89 16 08 88 c9 89 16 0f 82 bb 01 0e 13 ea 55 83 ec 00 eb 20 62 88 c9 89 16 10 82 bb ┆ U b ┆
0x12a0…12c0 01 0e 13 ec 55 83 06 01 0e 10 86 fe 00 e2 0e 0e 08 0c 23 88 c9 89 16 0f 82 bb 01 0e 13 ed 55 83 ┆ U # U ┆
0x12c0…12e0 25 01 0e 10 86 18 01 e2 0e 0e 08 0c 23 88 cb 89 16 08 88 c9 89 16 0f 82 bb 01 0e 10 3f 85 2f 01 ┆% # ? / ┆
0x12e0…1300 0e 13 ee 55 83 40 01 e2 0e 0e 08 0c 23 88 c9 89 16 10 82 bb 01 0e 13 ef 55 83 5d 01 0e 10 86 52 ┆ U @ # U ] R┆
0x1300…1320 01 e2 0e 0e 08 0c 23 88 c9 16 0f cb 89 16 0d 82 bb 01 0e 13 f0 55 83 6b 01 c9 89 16 0f 82 bb 01 ┆ # U k ┆
0x1320…1340 0e 13 f1 55 83 78 01 f2 cb 21 82 bb 01 0e 13 f3 55 83 8b 01 e8 e3 20 8a f4 20 29 88 21 82 bb 01 ┆ U x ! U ) ! ┆
0x1340…1360 0e 13 f5 55 83 ac 01 f6 f7 f8 21 f9 f8 21 5c 22 88 e8 e3 20 8a f4 20 29 88 21 88 c9 89 16 10 82 ┆ U ! !\" ) ! ┆
0x1360…1380 bb 01 cb 89 16 08 88 0e 13 89 16 15 88 c9 89 16 0f 88 82 85 00 2a 88 60 89 16 0a 88 82 47 00 88 ┆ * ` G ┆
0x1380…13a0 fa 20 88 0e 08 2e 06 87 22 20 5b 6e 6f 63 61 73 69 66 79 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 ┆ . " [nocasify case-fold-se┆
0x13a0…13c0 61 72 63 68 20 63 61 73 65 2d 72 65 70 6c 61 63 65 20 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6c 69 ┆arch case-replace from-string li┆
0x13c0…13e0 74 65 72 61 6c 20 72 65 67 65 78 70 2d 66 6c 61 67 20 73 65 61 72 63 68 2d 66 75 6e 63 74 69 6f ┆teral regexp-flag search-functio┆
0x13e0…1400 6e 20 73 65 61 72 63 68 2d 73 74 72 69 6e 67 20 6b 65 65 70 2d 67 6f 69 6e 67 20 74 20 6c 61 73 ┆n search-string keep-going t las┆
0x1400…1420 74 72 65 70 6c 20 6e 69 6c 20 64 65 6c 69 6d 69 74 65 64 2d 66 6c 61 67 20 71 75 65 72 79 2d 66 ┆trepl nil delimited-flag query-f┆
0x1420…1440 6c 61 67 20 74 6f 2d 73 74 72 69 6e 67 20 64 6f 6e 65 20 72 65 70 6c 61 63 65 64 20 64 61 74 61 ┆lag to-string done replaced data┆
0x1440…1460 20 68 65 6c 70 2d 66 6f 72 6d 20 63 68 61 72 20 68 65 6c 70 2d 63 68 61 72 20 75 6e 72 65 61 64 ┆ help-form char help-char unread┆
0x1460…1480 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 64 6f 77 6e 63 ┆-command-char string-equal downc┆
0x1480…14a0 61 73 65 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 73 65 61 72 63 68 2d 66 6f 72 ┆ase re-search-forward search-for┆
0x14a0…14c0 77 61 72 64 20 22 5c 5c 62 22 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 70 75 73 68 2d 6d 61 72 ┆ward "\\b" regexp-quote push-mar┆
0x14c0…14e0 6b 20 73 65 74 2d 6d 61 72 6b 20 66 75 6e 63 61 6c 6c 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 ┆k set-mark funcall forward-char ┆
0x14e0…1500 31 20 75 6e 64 6f 2d 62 6f 75 6e 64 61 72 79 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 6d 61 ┆1 undo-boundary replace-match ma┆
0x1500…1520 74 63 68 2d 64 61 74 61 20 28 63 6f 6e 63 61 74 20 22 51 75 65 72 79 20 72 65 70 6c 61 63 69 6e ┆tch-data (concat "Query replacin┆
0x1520…1540 67 20 22 20 28 69 66 20 72 65 67 65 78 70 2d 66 6c 61 67 20 22 72 65 67 65 78 70 20 22 20 22 22 ┆g " (if regexp-flag "regexp " ""┆
0x1540…1560 29 20 66 72 6f 6d 2d 73 74 72 69 6e 67 20 22 20 77 69 74 68 20 22 20 74 6f 2d 73 74 72 69 6e 67 ┆) from-string " with " to-string┆
0x1560…1580 20 22 2e 0a 0a 22 20 28 73 75 62 73 74 69 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 ┆ ". " (substitute-command-keys ┆
0x1580…15a0 71 75 65 72 79 2d 72 65 70 6c 61 63 65 2d 68 65 6c 70 29 29 20 6d 65 73 73 61 67 65 20 22 51 75 ┆query-replace-help)) message "Qu┆
0x15a0…15c0 65 72 79 20 72 65 70 6c 61 63 69 6e 67 20 25 73 20 77 69 74 68 20 25 73 3a 20 22 20 36 33 20 73 ┆ery replacing %s with %s: " 63 s┆
0x15c0…15e0 74 6f 72 65 2d 6d 61 74 63 68 2d 64 61 74 61 20 32 37 20 39 34 20 6d 61 72 6b 20 33 32 20 34 36 ┆tore-match-data 27 94 mark 32 46┆
0x15e0…1600 20 34 34 20 33 33 20 31 32 37 20 31 32 20 72 65 63 65 6e 74 65 72 20 31 38 20 72 65 63 75 72 73 ┆ 44 33 127 12 recenter 18 recurs┆
0x1600…1620 69 76 65 2d 65 64 69 74 20 32 33 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 6d 61 74 63 68 2d ┆ive-edit 23 delete-region match-┆
0x1620…1640 62 65 67 69 6e 6e 69 6e 67 20 30 20 6d 61 74 63 68 2d 65 6e 64 20 70 6f 70 2d 6d 61 72 6b 5d 20 ┆beginning 0 match-end pop-mark] ┆
0x1640…1645 33 32 29 29 0a ┆32)) ┆