|
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 - metrics - downloadIndex: r
Length: 5995 (0x176b)
Names: »replace.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/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 61 6c 6c 20 6c 69 6e 65 73 20 65 78 63 65 70 74 20 74 68 6f 73 65 20 63 6f 6e 74 61 69 ┆te all lines except those contai┆
0x0080…00a0 6e 69 6e 67 20 6d 61 74 63 68 65 73 20 66 6f 72 20 52 45 47 45 58 50 2e 0a 41 20 6d 61 74 63 68 ┆ning matches for REGEXP. A match┆
0x00a0…00c0 20 73 70 6c 69 74 20 61 63 72 6f 73 73 20 6c 69 6e 65 73 20 70 72 65 73 65 72 76 65 73 20 61 6c ┆ split across lines preserves al┆
0x00c0…00e0 6c 20 74 68 65 20 6c 69 6e 65 73 20 69 74 20 6c 69 65 73 20 69 6e 2e 0a 41 70 70 6c 69 65 73 20 ┆l the lines it lies in. Applies ┆
0x00e0…0100 74 6f 20 61 6c 6c 20 6c 69 6e 65 73 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 ┆to all lines after point." (inte┆
0x0100…0120 72 61 63 74 69 76 65 20 22 73 4b 65 65 70 20 6c 69 6e 65 73 20 28 63 6f 6e 74 61 69 6e 69 6e 67 ┆ractive "sKeep lines (containing┆
0x0120…0140 20 6d 61 74 63 68 20 66 6f 72 20 72 65 67 65 78 70 29 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 ┆ match for regexp): ") (byte-cod┆
0x0140…0160 65 20 22 c2 88 8a 6e 86 0a 00 c4 c5 21 88 60 18 6d 3f 85 47 00 c6 09 c2 c7 23 3f 83 5c 22 00 c8 ┆e " n ! ` m? G #? \" ┆
0x0160…0180 08 64 5c 22 82 39 00 8a c9 ca 21 62 88 cb 20 88 60 29 1b 08 0b 57 85 38 00 c8 08 0b 5c 22 29 88 ┆ d\" 9 !b `) W 8 \") ┆
0x0180…01a0 8a c4 c5 21 88 60 29 89 10 88 82 0d 00 29 29 87 22 20 5b 73 74 61 72 74 20 72 65 67 65 78 70 20 ┆ ! `) )) " [start regexp ┆
0x01a0…01c0 6e 69 6c 20 65 6e 64 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 72 65 2d 73 65 61 72 63 68 ┆nil end forward-line 1 re-search┆
0x01c0…01e0 2d 66 6f 72 77 61 72 64 20 6d 6f 76 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 6d 61 74 63 ┆-forward move delete-region matc┆
0x01e0…0200 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 5d ┆h-beginning 0 beginning-of-line]┆
0x0200…0220 20 31 30 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 ┆ 10)) (fset (quote delete-match┆
0x0220…0240 69 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 ┆ing-lines) (quote flush-lines)) ┆
0x0240…0260 0a 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 ┆ (defun flush-lines (regexp) "\ ┆
0x0260…0280 44 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 ┆Delete lines containing matches ┆
0x0280…02a0 66 6f 72 20 52 45 47 45 58 50 2e 0a 49 66 20 61 20 6d 61 74 63 68 20 69 73 20 73 70 6c 69 74 20 ┆for REGEXP. If a match is split ┆
0x02a0…02c0 61 63 72 6f 73 73 20 6c 69 6e 65 73 2c 20 61 6c 6c 20 74 68 65 20 6c 69 6e 65 73 20 69 74 20 6c ┆across lines, all the lines it l┆
0x02c0…02e0 69 65 73 20 69 6e 20 61 72 65 20 64 65 6c 65 74 65 64 2e 0a 41 70 70 6c 69 65 73 20 74 6f 20 6c ┆ies in are deleted. Applies to l┆
0x02e0…0300 69 6e 65 73 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 ┆ines after point." (interactive ┆
0x0300…0320 22 73 46 6c 75 73 68 20 6c 69 6e 65 73 20 28 63 6f 6e 74 61 69 6e 69 6e 67 20 6d 61 74 63 68 20 ┆"sFlush lines (containing match ┆
0x0320…0340 66 6f 72 20 72 65 67 65 78 70 29 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 8a 6d ┆for regexp): ") (byte-code " m┆
0x0340…0360 3f 85 0d 00 c3 08 c1 c2 23 85 26 00 c4 8a c5 c6 21 62 88 c7 20 88 60 29 c8 c9 21 88 60 5c 22 88 ┆? # & !b `) ! `\" ┆
0x0360…0380 82 03 00 29 87 22 20 5b 72 65 67 65 78 70 20 6e 69 6c 20 74 20 72 65 2d 73 65 61 72 63 68 2d 66 ┆ ) " [regexp nil t re-search-f┆
0x0380…03a0 6f 72 77 61 72 64 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 6d 61 74 63 68 2d 62 65 67 69 6e ┆orward delete-region match-begin┆
0x03a0…03c0 6e 69 6e 67 20 30 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 66 6f 72 77 61 72 64 ┆ning 0 beginning-of-line forward┆
0x03c0…03e0 2d 6c 69 6e 65 20 31 5d 20 38 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 63 6f 75 6e 74 ┆-line 1] 8)) (fset (quote count┆
0x03e0…0400 2d 6d 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 ┆-matches) (quote how-many)) (de┆
0x0400…0420 66 75 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 ┆fun how-many (regexp) "\ Print n┆
0x0420…0440 75 6d 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 ┆umber of matches for REGEXP foll┆
0x0440…0460 6f 77 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 ┆owing point." (interactive "sHow┆
0x0460…0480 20 6d 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 ┆ many matches for (regexp): ") (┆
0x0480…04a0 62 79 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 ┆byte-code " m? ` #┆
0x04a0…04c0 85 2c 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 ┆ , `U $ ! ( T \")* ┆
0x04c0…04e0 22 20 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 ┆" [count opoint regexp nil t 0 r┆
0x04e0…0500 65 2d 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 ┆e-search-forward forward-char 1 ┆
0x0500…0520 6d 65 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 ┆message "%d occurrences"] 5)) (┆
0x0520…0540 64 65 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 ┆defvar occur-mode-map nil) (if ┆
0x0540…0560 6f 63 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 ┆occur-mode-map nil (setq occur-m┆
0x0560…0580 6f 64 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 ┆ode-map (make-sparse-keymap)) (d┆
0x0580…05a0 65 66 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 ┆efine-key occur-mode-map " " (q┆
0x05a0…05c0 75 6f 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 ┆uote occur-mode-goto-occurrence)┆
0x05c0…05e0 29 29 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 ┆)) (defvar occur-buffer nil) (┆
0x05e0…0600 64 65 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 ┆defvar occur-nlines nil) (defva┆
0x0600…0620 72 20 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 ┆r occur-pos-list nil) (defun oc┆
0x0620…0640 63 75 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 ┆cur-mode nil "\ Major mode for o┆
0x0640…0660 75 74 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 ┆utput from \\[occur]. Move point┆
0x0660…0680 20 74 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 ┆ to one of the occurrences in th┆
0x0680…06a0 69 73 20 62 75 66 66 65 72 2c 0a 74 68 65 6e 20 75 73 65 20 5c 5c 5b 6f 63 63 75 72 2d 6d 6f 64 ┆is buffer, then use \\[occur-mod┆
0x06a0…06c0 65 2d 67 6f 74 6f 2d 6f 63 63 75 72 72 65 6e 63 65 5d 20 74 6f 20 67 6f 20 74 6f 20 74 68 65 20 ┆e-goto-occurrence] to go to the ┆
0x06c0…06e0 73 61 6d 65 20 6f 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 ┆same occurrence in the buffer th┆
0x06e0…0700 61 74 20 74 68 65 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 ┆at the occurrences were found in┆
0x0700…0720 2e 0a 5c 5c 7b 6f 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 ┆. \\{occur-mode-map}" (byte-code┆
0x0720…0740 20 22 c3 20 88 c4 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 ┆ " ! ! ! ! " [┆
0x0740…0760 6f 63 63 75 72 2d 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 ┆occur-mode-map major-mode mode-n┆
0x0760…0780 61 6d 65 20 6b 69 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 ┆ame kill-all-local-variables use┆
0x0780…07a0 2d 6c 6f 63 61 6c 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 ┆-local-map occur-mode "Occur" ma┆
0x07a0…07c0 6b 65 2d 6c 6f 63 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 ┆ke-local-variable occur-buffer o┆
0x07c0…07e0 63 63 75 72 2d 6e 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 ┆ccur-nlines occur-pos-list] 6)) ┆
0x07e0…0800 0a 28 64 65 66 75 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 ┆ (defun occur-mode-goto-occurren┆
0x0800…0820 63 65 20 6e 69 6c 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 ┆ce nil "\ Go to the line this oc┆
0x0820…0840 63 75 72 72 65 6e 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 ┆currence was found in, in the bu┆
0x0840…0860 66 66 65 72 20 69 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 ┆ffer it was found in." (interact┆
0x0860…0880 69 76 65 29 20 28 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 ┆ive) (byte-code " ? !? ┆
0x0880…08a0 10 c1 89 12 88 c8 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 ┆ ! e`\"S W * Z : V ┆
0x08a0…08c0 39 00 cd ce cd 0c 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 ┆9 \"\\ : \" 8 ! !b*┆
0x08c0…08e0 87 22 20 5b 6f 63 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 ┆ " [occur-buffer nil occur-pos-l┆
0x08e0…0900 69 73 74 20 6f 63 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 ┆ist occur-number occur-nlines t ┆
0x0900…0920 70 6f 73 20 62 75 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 ┆pos buffer-name error "Buffer in┆
0x0920…0940 20 77 68 69 63 68 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 ┆ which occurences were found is ┆
0x0940…0960 64 65 6c 65 74 65 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 ┆deleted." / count-lines 0 2 * 1 ┆
0x0960…0980 70 6f 70 2d 74 6f 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 ┆pop-to-buffer marker-position] 9┆
0x0980…09a0 29 29 0a 0a 28 64 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 ┆)) (defvar list-matching-lines-┆
0x09a0…09c0 64 65 66 61 75 6c 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 ┆default-context-lines 0 "\ *Defa┆
0x09c0…09e0 75 6c 74 20 6e 75 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 ┆ult number of context lines to i┆
0x09e0…0a00 6e 63 6c 75 64 65 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 ┆nclude around a list-matching-li┆
0x0a00…0a20 6e 65 73 0a 6d 61 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 ┆nes match. A negative number me┆
0x0a20…0a40 61 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 ┆ans to include that many lines b┆
0x0a40…0a60 65 66 6f 72 65 20 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 ┆efore the match. A positive numb┆
0x0a60…0a80 65 72 20 6d 65 61 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 ┆er means to include that many li┆
0x0a80…0aa0 6e 65 73 20 62 6f 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 ┆nes both before and after.") (f┆
0x0aa0…0ac0 73 65 74 20 28 71 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 ┆set (quote list-matching-lines) ┆
0x0ac0…0ae0 28 71 75 6f 74 65 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 ┆(quote occur)) (defun occur (re┆
0x0ae0…0b00 67 65 78 70 20 26 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 ┆gexp &optional nlines) "\ Show a┆
0x0b00…0b20 6c 6c 20 6c 69 6e 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 ┆ll lines following point contain┆
0x0b20…0b40 69 6e 67 20 61 20 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 ┆ing a match for REGEXP. Display ┆
0x0b40…0b60 65 61 63 68 20 6c 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 ┆each line with NLINES lines befo┆
0x0b60…0b80 72 65 20 61 6e 64 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 ┆re and after, or -NLINES before┆
0x0b80…0ba0 20 69 66 20 4e 4c 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 ┆ if NLINES is negative. NLINES d┆
0x0ba0…0bc0 65 66 61 75 6c 74 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 ┆efaults to list-matching-lines-d┆
0x0bc0…0be0 65 66 61 75 6c 74 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 ┆efault-context-lines. Interactiv┆
0x0be0…0c00 65 6c 79 20 69 74 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 ┆ely it is the prefix arg. The l┆
0x0c00…0c20 69 6e 65 73 20 61 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 ┆ines are shown in a buffer named┆
0x0c20…0c40 20 2a 4f 63 63 75 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 ┆ *Occur*. It serves as a menu to┆
0x0c40…0c60 20 66 69 6e 64 20 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 ┆ find any of the occurrences in ┆
0x0c60…0c80 74 68 69 73 20 62 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 ┆this buffer. \\[describe-mode] i┆
0x0c80…0ca0 6e 20 74 68 61 74 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 ┆n that buffer will explain how."┆
0x0ca0…0cc0 20 28 69 6e 74 65 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 ┆ (interactive "sList lines match┆
0x0cc0…0ce0 69 6e 67 20 72 65 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 ┆ing regexp: P") (byte-code " ┆
0x0ce0…0d00 83 0c 00 d2 08 21 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 ┆ ! p e`\"T┆
0x0d00…0d20 89 15 88 60 89 16 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 ┆ ` ) q c ! ! $┆
0x0d20…0d40 88 dd 20 88 0c 89 16 09 88 08 89 16 0a 88 cc 89 16 0b 29 88 0c 0e 07 3d 85 5f 00 64 62 88 8a de ┆ ) = _ db ┆
0x0d40…0d60 0e 08 cc c3 23 85 50 01 d3 df 21 88 8a 0d d4 0e 06 60 5c 22 5c 5c 89 15 88 60 89 16 06 29 88 8a ┆ # P ! `\"\\ ` ) ┆
0x0d60…0d80 e0 08 e1 57 83 8b 00 08 82 8d 00 08 5b 21 88 60 29 1e 0d 8a 08 e1 56 83 a1 00 e0 08 54 21 82 a4 ┆ W [! `) V T! ┆
0x0d80…0da0 00 e0 df 21 88 60 29 1e 0e e2 e3 0d 5c 22 1e 0f e4 0e 0f 47 e5 5c 22 1e 10 cc 1e 11 8a e6 20 89 ┆ ! `) \" G \" ┆
0x0da0…0dc0 16 11 88 e7 0e 11 60 5c 22 88 0e 07 71 88 0e 11 0e 0b 42 89 16 0b 88 0a 86 e0 00 e8 08 21 86 e0 ┆ `\" q B ! ┆
0x0dc0…0de0 00 e9 63 88 cc 89 12 88 ea 0c 0e 0d 0e 0e 23 88 eb 0e 0e 0e 0d 5a 21 88 08 e1 57 83 00 01 08 5b ┆ c # Z! W [┆
0x0de0…0e00 82 01 01 08 89 16 11 88 0e 11 e1 56 85 20 01 d8 0e 10 ec 5c 22 88 e0 df 21 88 0e 11 53 89 16 11 ┆ V \" ! S ┆
0x0e00…0e20 88 82 05 01 88 d8 0e 0f ec 5c 22 88 e0 df 21 88 0e 11 08 57 85 46 01 d8 0e 10 ec 5c 22 88 e0 df ┆ \" ! W F \" ┆
0x0e20…0e40 21 88 0e 11 54 89 16 11 88 82 2b 01 29 88 e0 df 21 2d 88 82 61 00 88 0e 07 71 88 ed 0e 0b 21 89 ┆! T + ) !- a q ! ┆
0x0e40…0e60 16 0b 88 74 85 67 01 ee ef 0e 0b 47 5c 22 29 91 2c 87 22 20 5b 6e 6c 69 6e 65 73 20 6c 69 73 74 ┆ t g G\") , " [nlines list┆
0x0e60…0e80 2d 6d 61 74 63 68 69 6e 67 2d 6c 69 6e 65 73 2d 64 65 66 61 75 6c 74 2d 63 6f 6e 74 65 78 74 2d ┆-matching-lines-default-context-┆
0x0e80…0ea0 6c 69 6e 65 73 20 66 69 72 73 74 20 74 20 62 75 66 66 65 72 20 6c 69 6e 65 6e 75 6d 20 70 72 65 ┆lines first t buffer linenum pre┆
0x0ea0…0ec0 76 70 6f 73 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 72 65 67 65 78 70 20 6f 63 63 75 ┆vpos standard-output regexp occu┆
0x0ec0…0ee0 72 2d 62 75 66 66 65 72 20 6f 63 63 75 72 2d 6e 6c 69 6e 65 73 20 6f 63 63 75 72 2d 70 6f 73 2d ┆r-buffer occur-nlines occur-pos-┆
0x0ee0…0f00 6c 69 73 74 20 6e 69 6c 20 73 74 61 72 74 20 65 6e 64 20 74 61 67 20 65 6d 70 74 79 20 74 65 6d ┆list nil start end tag empty tem┆
0x0f00…0f20 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 62 65 67 69 6e 6e 69 6e 67 2d ┆ prefix-numeric-value beginning-┆
0x0f20…0f40 6f 66 2d 6c 69 6e 65 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 22 2a 4f 63 63 75 72 2a 22 20 22 4c ┆of-line count-lines "*Occur*" "L┆
0x0f40…0f60 69 6e 65 73 20 6d 61 74 63 68 69 6e 67 20 22 20 70 72 69 6e 31 20 69 6e 73 65 72 74 20 22 20 69 ┆ines matching " prin1 insert " i┆
0x0f60…0f80 6e 20 62 75 66 66 65 72 20 22 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 34 36 20 31 30 20 6f 63 63 ┆n buffer " buffer-name 46 10 occ┆
0x0f80…0fa0 75 72 2d 6d 6f 64 65 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 31 20 66 6f 72 77 ┆ur-mode re-search-forward 1 forw┆
0x0fa0…0fc0 61 72 64 2d 6c 69 6e 65 20 30 20 66 6f 72 6d 61 74 20 22 25 33 64 22 20 6d 61 6b 65 2d 73 74 72 ┆ard-line 0 format "%3d" make-str┆
0x0fc0…0fe0 69 6e 67 20 33 32 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 20 73 65 74 2d 6d 61 72 6b 65 72 20 7a 65 ┆ing 32 make-marker set-marker ze┆
0x0fe0…1000 72 6f 70 20 22 2d 2d 2d 2d 2d 2d 2d 2d 0a 22 20 69 6e 73 65 72 74 2d 62 75 66 66 65 72 2d 73 75 ┆rop "-------- " insert-buffer-su┆
0x1000…1020 62 73 74 72 69 6e 67 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 35 38 20 6e 72 65 76 65 72 73 ┆bstring backward-char 58 nrevers┆
0x1020…1040 65 20 6d 65 73 73 61 67 65 20 22 25 64 20 6d 61 74 63 68 69 6e 67 20 6c 69 6e 65 73 2e 22 5d 20 ┆e message "%d matching lines."] ┆
0x1040…1060 33 32 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 71 75 65 72 79 2d 72 65 70 6c 61 63 65 2d 68 65 ┆32)) (defconst query-replace-he┆
0x1060…1080 6c 70 20 22 54 79 70 65 20 53 70 61 63 65 20 6f 72 20 60 79 27 20 74 6f 20 72 65 70 6c 61 63 65 ┆lp "Type Space or `y' to replace┆
0x1080…10a0 20 6f 6e 65 20 6d 61 74 63 68 2c 20 44 65 6c 65 74 65 20 6f 72 20 60 6e 27 20 74 6f 20 73 6b 69 ┆ one match, Delete or `n' to ski┆
0x10a0…10c0 70 20 74 6f 20 6e 65 78 74 2c 0a 45 53 43 20 6f 72 20 60 71 27 20 74 6f 20 65 78 69 74 2c 20 50 ┆p to next, ESC or `q' to exit, P┆
0x10c0…10e0 65 72 69 6f 64 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 ┆eriod to replace one match and e┆
0x10e0…1100 78 69 74 2c 0a 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 ┆xit, Comma to replace but not mo┆
0x1100…1120 76 65 20 70 6f 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 ┆ve point immediately, C-r to ent┆
0x1120…1140 65 72 20 72 65 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 ┆er recursive edit (\\[exit-recur┆
0x1140…1160 73 69 76 65 2d 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 ┆sive-edit] to get out again), C-┆
0x1160…1180 77 20 74 6f 20 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 ┆w to delete match and recursive ┆
0x1180…11a0 65 64 69 74 2c 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 ┆edit, C-l to clear the screen, r┆
0x11a0…11c0 65 64 69 73 70 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 ┆edisplay, and offer same replace┆
0x11c0…11e0 6d 65 6e 74 20 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 ┆ment again, ! to replace all rem┆
0x11e0…1200 61 69 6e 69 6e 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 ┆aining matches with no more ques┆
0x1200…1220 74 69 6f 6e 73 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 ┆tions, ^ to move point back to p┆
0x1220…1240 72 65 76 69 6f 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 ┆revious match." "Help message wh┆
0x1240…1260 69 6c 65 20 69 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 ┆ile in query-replace") (defun p┆
0x1260…1280 65 72 66 6f 72 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 ┆erform-replace (from-string to-s┆
0x1280…12a0 74 72 69 6e 67 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 ┆tring query-flag regexp-flag del┆
0x12a0…12c0 69 6d 69 74 65 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 ┆imited-flag) (byte-code " ┆
0x12c0…12e0 00 d6 0b d7 0b 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 ┆ !\"? ? ┆
0x12e0…1300 18 0e 0c 85 40 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 ┆ @ 8 ; ! Q ┆
0x1300…1320 88 0e 08 85 5d 00 6d 3f 85 5d 00 dd 60 21 88 de 0e 06 0e 07 cb c9 24 85 de 01 0e 0a 60 3d 83 6d ┆ ] m? ] `! $ `= m┆
0x1320…1340 00 df e0 21 82 da 01 e1 20 88 0e 0d 3f 83 7f 00 e2 0e 0e 08 0c 23 82 d5 01 cb cb 1e 10 1e 0f 0e ┆ ! ? # ┆
0x1340…1360 0f 3f 85 d4 01 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 ┆ ? U #┆
0x1360…1380 88 72 89 16 13 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 ┆ r U !*┆
0x1380…13a0 88 0e 13 e9 55 86 d2 00 0e 13 ea 55 83 e1 00 cb 89 16 08 88 c9 89 16 0f 82 d0 01 0e 13 eb 55 83 ┆ U U U ┆
0x13a0…13c0 f3 00 ec 20 62 88 c9 89 16 10 82 d0 01 0e 13 ed 55 86 fe 00 0e 13 ee 55 83 14 01 0e 10 86 0c 01 ┆ b U U ┆
0x13c0…13e0 e2 0e 0e 08 0c 23 88 c9 89 16 0f 82 d0 01 0e 13 ef 55 83 33 01 0e 10 86 26 01 e2 0e 0e 08 0c 23 ┆ # U 3 & #┆
0x13e0…1400 88 cb 89 16 08 88 c9 89 16 0f 82 d0 01 0e 13 f0 55 83 4e 01 0e 10 3f 85 4b 01 e2 0e 0e 08 0c 23 ┆ U N ? K #┆
0x1400…1420 88 c9 89 16 10 82 d0 01 0e 13 f1 55 83 6b 01 0e 10 86 60 01 e2 0e 0e 08 0c 23 88 c9 16 0f cb 89 ┆ U k ` # ┆
0x1420…1440 16 0d 82 d0 01 0e 13 f2 55 86 76 01 0e 13 f3 55 83 80 01 c9 89 16 0f 82 d0 01 0e 13 f4 55 83 8d ┆ U v U U ┆
0x1440…1460 01 f5 cb 21 82 d0 01 0e 13 f6 55 83 a0 01 e8 e3 20 8a f7 20 29 88 21 82 d0 01 0e 13 f8 55 83 c1 ┆ ! U ) ! U ┆
0x1460…1480 01 f9 fa fb 21 fc fb 21 5c 22 88 e8 e3 20 8a f7 20 29 88 21 88 c9 89 16 10 82 d0 01 cb 89 16 08 ┆ ! !\" ) ! ┆
0x1480…14a0 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 fd 20 88 0e 08 2e ┆ * ` G .┆
0x14a0…14c0 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 61 72 63 68 20 63 ┆ " [nocasify case-fold-search c┆
0x14c0…14e0 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 74 65 72 61 6c 20 ┆ase-replace from-string literal ┆
0x14e0…1500 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 6e 20 73 65 61 72 ┆regexp-flag search-function sear┆
0x1500…1520 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 74 72 65 70 6c 20 ┆ch-string keep-going t lastrepl ┆
0x1520…1540 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 6c 61 67 20 74 6f ┆nil delimited-flag query-flag to┆
0x1540…1560 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 20 68 65 6c 70 2d ┆-string done replaced data help-┆
0x1560…1580 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 2d 63 6f 6d 6d 61 ┆form char help-char unread-comma┆
0x1580…15a0 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 61 73 65 20 72 65 ┆nd-char string-equal downcase re┆
0x15a0…15c0 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 77 61 72 64 20 22 ┆-search-forward search-forward "┆
0x15c0…15e0 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 6b 20 73 65 74 2d ┆\\b" regexp-quote push-mark set-┆
0x15e0…1600 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 31 20 75 6e 64 6f ┆mark funcall forward-char 1 undo┆
0x1600…1620 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 74 63 68 2d 64 61 ┆-boundary replace-match match-da┆
0x1620…1640 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 67 20 22 20 28 69 ┆ta (concat "Query replacing " (i┆
0x1640…1660 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 29 20 66 72 6f 6d ┆f regexp-flag "regexp " "") from┆
0x1660…1680 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 20 22 2e 0a 0a 22 ┆-string " with " to-string ". "┆
0x1680…16a0 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 71 75 65 72 79 2d ┆ (substitute-command-keys query-┆
0x16a0…16c0 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 65 72 79 20 72 65 ┆replace-help)) message "Query re┆
0x16c0…16e0 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 74 6f 72 65 2d 6d ┆placing %s with %s: " 63 store-m┆
0x16e0…1700 61 74 63 68 2d 64 61 74 61 20 32 37 20 31 31 33 20 39 34 20 6d 61 72 6b 20 33 32 20 31 32 31 20 ┆atch-data 27 113 94 mark 32 121 ┆
0x1700…1720 34 36 20 34 34 20 33 33 20 31 32 37 20 31 31 30 20 31 32 20 72 65 63 65 6e 74 65 72 20 31 38 20 ┆46 44 33 127 110 12 recenter 18 ┆
0x1720…1740 72 65 63 75 72 73 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 ┆recursive-edit 23 delete-region ┆
0x1740…1760 6d 61 74 63 68 2d 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 ┆match-beginning 0 match-end pop-┆
0x1760…176b 6d 61 72 6b 5d 20 33 32 29 29 0a ┆mark] 32)) ┆