|
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: ┃ d ┃
Length: 15309 (0x3bcd)
Names: »dired.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/dired.elc«
0x0000…0020 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 72 65 61 64 69 6e 20 28 64 69 72 6e 61 6d 65 20 62 75 ┆ (defun dired-readin (dirname bu┆
0x0020…0040 66 66 65 72 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a 08 71 88 c2 19 c7 20 88 c8 20 88 c9 0b ┆ffer) (byte-code " q ┆
0x0040…0060 21 89 13 88 ca 0b 21 83 24 00 cb cc c2 08 c2 0c 0b 26 06 82 39 00 cd 0b 21 1d cb 0e 06 c2 08 c2 ┆! ! $ & 9 ! ┆
0x0060…0080 ce cf 0c d0 d1 0b 21 52 26 06 29 88 65 62 88 6d 3f 85 4c 00 d2 63 88 d3 d4 21 88 82 3d 00 88 65 ┆ !R& ) eb m? L c ! = e┆
0x0080…00a0 62 29 29 87 22 20 5b 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e ┆b)) " [buffer buffer-read-only n┆
0x00a0…00c0 69 6c 20 64 69 72 6e 61 6d 65 20 64 69 72 65 64 2d 6c 69 73 74 69 6e 67 2d 73 77 69 74 63 68 65 ┆il dirname dired-listing-switche┆
0x00c0…00e0 73 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e ┆s default-directory shell-file-n┆
0x00e0…0100 61 6d 65 20 77 69 64 65 6e 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 65 78 70 61 6e 64 2d 66 69 ┆ame widen erase-buffer expand-fi┆
0x0100…0120 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 63 61 6c 6c 2d 70 72 ┆le-name file-directory-p call-pr┆
0x0120…0140 6f 63 65 73 73 20 22 6c 73 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 22 ┆ocess "ls" file-name-directory "┆
0x0140…0160 2d 63 22 20 22 6c 73 20 22 20 22 20 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 ┆-c" "ls " " " file-name-nondirec┆
0x0160…0180 74 6f 72 79 20 22 20 20 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 5d 20 31 37 29 29 0a 0a ┆tory " " forward-line 1] 17)) ┆
0x0180…01a0 28 64 65 66 75 6e 20 64 69 72 65 64 2d 66 69 6e 64 2d 62 75 66 66 65 72 20 28 64 69 72 6e 61 6d ┆(defun dired-find-buffer (dirnam┆
0x01a0…01c0 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 20 c5 19 18 08 85 2d 00 8a 08 40 71 88 0a c7 3d ┆e) (byte-code " - @q =┆
0x01c0…01e0 85 18 00 c8 0b 0c 5c 22 83 24 00 08 40 11 c5 89 10 82 28 00 08 41 89 10 29 88 82 05 00 88 09 86 ┆ \" $ @ ( A ) ┆
0x01e0…0200 45 00 c9 ca 0c 5c 22 85 3f 00 0c cb cc 4f 89 14 88 cd ce 0c 21 21 2a 87 22 20 5b 62 6c 69 73 74 ┆E \" ? O !!* " [blist┆
0x0200…0220 20 66 6f 75 6e 64 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 64 69 72 65 64 2d 64 69 72 65 63 74 6f 72 ┆ found major-mode dired-director┆
0x0220…0240 79 20 64 69 72 6e 61 6d 65 20 6e 69 6c 20 62 75 66 66 65 72 2d 6c 69 73 74 20 64 69 72 65 64 2d ┆y dirname nil buffer-list dired-┆
0x0240…0260 6d 6f 64 65 20 65 71 75 61 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 2f 24 22 20 30 20 2d ┆mode equal string-match "/$" 0 -┆
0x0260…0280 31 20 63 72 65 61 74 65 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e ┆1 create-file-buffer file-name-n┆
0x0280…02a0 6f 6e 64 69 72 65 63 74 6f 72 79 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 20 28 ┆ondirectory] 6)) (defun dired (┆
0x02a0…02c0 64 69 72 6e 61 6d 65 29 20 22 5c 0a 5c 22 45 64 69 74 5c 22 20 64 69 72 65 63 74 6f 72 79 20 44 ┆dirname) "\ \"Edit\" directory D┆
0x02c0…02e0 49 52 4e 41 4d 45 2e 20 20 44 65 6c 65 74 65 20 73 6f 6d 65 20 66 69 6c 65 73 20 69 6e 20 69 74 ┆IRNAME. Delete some files in it┆
0x02e0…0300 2e 0a 44 69 72 65 64 20 64 69 73 70 6c 61 79 73 20 61 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 73 ┆. Dired displays a list of files┆
0x0300…0320 20 69 6e 20 44 49 52 4e 41 4d 45 2e 0a 59 6f 75 20 63 61 6e 20 6d 6f 76 65 20 61 72 6f 75 6e 64 ┆ in DIRNAME. You can move around┆
0x0320…0340 20 69 6e 20 69 74 20 77 69 74 68 20 74 68 65 20 75 73 75 61 6c 20 63 6f 6d 6d 61 6e 64 73 2e 0a ┆ in it with the usual commands. ┆
0x0340…0360 59 6f 75 20 63 61 6e 20 66 6c 61 67 20 66 69 6c 65 73 20 66 6f 72 20 64 65 6c 65 74 69 6f 6e 20 ┆You can flag files for deletion ┆
0x0360…0380 77 69 74 68 20 43 2d 64 0a 61 6e 64 20 74 68 65 6e 20 64 65 6c 65 74 65 20 74 68 65 6d 20 62 79 ┆with C-d and then delete them by┆
0x0380…03a0 20 74 79 70 69 6e 67 20 60 78 27 2e 0a 54 79 70 65 20 60 68 27 20 61 66 74 65 72 20 65 6e 74 65 ┆ typing `x'. Type `h' after ente┆
0x03a0…03c0 72 69 6e 67 20 64 69 72 65 64 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 2e 22 20 28 69 6e 74 65 ┆ring dired for more info." (inte┆
0x03c0…03e0 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c0 09 c0 24 43 87 22 20 5b 6e ┆ractive (byte-code " $C " [n┆
0x03e0…0400 69 6c 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 72 65 61 64 2d 66 69 6c 65 2d 6e ┆il default-directory read-file-n┆
0x0400…0420 61 6d 65 20 22 44 69 72 65 64 20 28 64 69 72 65 63 74 6f 72 79 29 3a 20 22 5d 20 35 29 29 20 28 ┆ame "Dired (directory): "] 5)) (┆
0x0420…0440 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c3 c4 0a 21 21 87 22 20 5b 6e 69 6c 20 64 65 66 61 75 6c ┆byte-code " !! " [nil defaul┆
0x0440…0460 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 6e 61 6d 65 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 ┆t-directory dirname switch-to-bu┆
0x0460…0480 66 66 65 72 20 64 69 72 65 64 2d 6e 6f 73 65 6c 65 63 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e ┆ffer dired-noselect] 3)) (defun┆
0x0480…04a0 20 64 69 72 65 64 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 28 64 69 72 6e 61 6d 65 29 20 22 5c ┆ dired-other-window (dirname) "\┆
0x04a0…04c0 0a 5c 22 45 64 69 74 5c 22 20 64 69 72 65 63 74 6f 72 79 20 44 49 52 4e 41 4d 45 2e 20 20 4c 69 ┆ \"Edit\" directory DIRNAME. Li┆
0x04c0…04e0 6b 65 20 4d 2d 78 20 64 69 72 65 64 20 62 75 74 20 73 65 6c 65 63 74 73 20 69 6e 20 61 6e 6f 74 ┆ke M-x dired but selects in anot┆
0x04e0…0500 68 65 72 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d ┆her window." (interactive (byte-┆
0x0500…0520 63 6f 64 65 20 22 c2 c3 c0 09 c0 24 43 87 22 20 5b 6e 69 6c 20 64 65 66 61 75 6c 74 2d 64 69 72 ┆code " $C " [nil default-dir┆
0x0520…0540 65 63 74 6f 72 79 20 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 44 69 72 65 64 20 69 6e 20 ┆ectory read-file-name "Dired in ┆
0x0540…0560 6f 74 68 65 72 20 77 69 6e 64 6f 77 20 28 64 69 72 65 63 74 6f 72 79 29 3a 20 22 5d 20 35 29 29 ┆other window (directory): "] 5))┆
0x0560…0580 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c3 c4 0a 21 21 87 22 20 5b 6e 69 6c 20 64 65 66 61 ┆ (byte-code " !! " [nil defa┆
0x0580…05a0 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 6e 61 6d 65 20 73 77 69 74 63 68 2d 74 6f 2d ┆ult-directory dirname switch-to-┆
0x05a0…05c0 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 64 69 72 65 64 2d 6e 6f 73 65 6c 65 ┆buffer-other-window dired-nosele┆
0x05c0…05e0 63 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 6e 6f 73 65 6c 65 63 74 20 28 ┆ct] 3)) (defun dired-noselect (┆
0x05e0…0600 64 69 72 6e 61 6d 65 29 20 22 5c 0a 4c 69 6b 65 20 4d 2d 78 20 64 69 72 65 64 20 62 75 74 20 72 ┆dirname) "\ Like M-x dired but r┆
0x0600…0620 65 74 75 72 6e 73 20 74 68 65 20 64 69 72 65 64 20 62 75 66 66 65 72 20 61 73 20 76 61 6c 75 65 ┆eturns the dired buffer as value┆
0x0620…0640 2c 20 64 6f 65 73 20 6e 6f 74 20 73 65 6c 65 63 74 20 69 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 ┆, does not select it." (byte-cod┆
0x0640…0660 65 20 22 08 86 07 00 09 89 10 88 c3 c4 08 5c 22 85 15 00 08 c5 c6 4f 89 10 88 c7 08 21 89 10 88 ┆e " \" O ! ┆
0x0660…0680 c3 c8 08 5c 22 3f 85 2f 00 c9 08 21 85 2f 00 08 ca 50 89 10 88 cb 08 21 1a 8a 0a 71 88 cc 08 0a ┆ \"? / ! / P ! q ┆
0x0680…06a0 5c 22 88 cd 20 88 ce 08 21 29 88 0a 29 87 22 20 5b 64 69 72 6e 61 6d 65 20 64 65 66 61 75 6c 74 ┆\" !) ) " [dirname default┆
0x06a0…06c0 2d 64 69 72 65 63 74 6f 72 79 20 62 75 66 66 65 72 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 ┆-directory buffer string-match "┆
0x06c0…06e0 2e 2f 24 22 20 30 20 2d 31 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 2f 24 22 20 ┆./$" 0 -1 expand-file-name "/$" ┆
0x06e0…0700 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 22 2f 22 20 64 69 72 65 64 2d 66 69 6e 64 2d ┆file-directory-p "/" dired-find-┆
0x0700…0720 62 75 66 66 65 72 20 64 69 72 65 64 2d 72 65 61 64 69 6e 20 64 69 72 65 64 2d 6d 6f 76 65 2d 74 ┆buffer dired-readin dired-move-t┆
0x0720…0740 6f 2d 66 69 6c 65 6e 61 6d 65 20 64 69 72 65 64 2d 6d 6f 64 65 5d 20 39 29 29 0a 0a 28 64 65 66 ┆o-filename dired-mode] 9)) (def┆
0x0740…0760 75 6e 20 64 69 72 65 64 2d 72 65 76 65 72 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 6e ┆un dired-revert (&optional arg n┆
0x0760…0780 6f 63 6f 6e 66 69 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 60 c6 c2 c2 5c 22 c4 1b 19 18 ┆oconfirm) (byte-code "` \" ┆
0x0780…07a0 c7 20 88 c8 0d 70 5c 22 88 09 85 1f 00 c9 ca cb 09 21 cc 51 c4 c2 23 86 24 00 08 62 88 cd 20 2b ┆ p\" ! Q # $ b +┆
0x07a0…07c0 87 22 20 5b 6f 70 6f 69 6e 74 20 6f 66 69 6c 65 20 74 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f ┆ " [opoint ofile t buffer-read-o┆
0x07c0…07e0 6e 6c 79 20 6e 69 6c 20 64 69 72 65 64 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 64 2d 67 65 ┆nly nil dired-directory dired-ge┆
0x07e0…0800 74 2d 66 69 6c 65 6e 61 6d 65 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 64 69 72 65 64 2d 72 65 ┆t-filename erase-buffer dired-re┆
0x0800…0820 61 64 69 6e 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 20 22 20 72 65 67 65 78 ┆adin re-search-forward " " regex┆
0x0820…0840 70 2d 71 75 6f 74 65 20 22 24 22 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 5d 20 38 ┆p-quote "$" beginning-of-line] 8┆
0x0840…0860 29 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 22 ┆)) (defvar dired-mode-map nil "┆
0x0860…0880 5c 0a 4c 6f 63 61 6c 20 6b 65 79 6d 61 70 20 66 6f 72 20 64 69 72 65 64 2d 6d 6f 64 65 20 62 75 ┆\ Local keymap for dired-mode bu┆
0x0880…08a0 66 66 65 72 73 2e 22 29 0a 0a 28 69 66 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c ┆ffers.") (if dired-mode-map nil┆
0x08a0…08c0 20 28 73 65 74 71 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d ┆ (setq dired-mode-map (make-keym┆
0x08c0…08e0 61 70 29 29 20 28 73 75 70 70 72 65 73 73 2d 6b 65 79 6d 61 70 20 64 69 72 65 64 2d 6d 6f 64 65 ┆ap)) (suppress-keymap dired-mode┆
0x08e0…0900 2d 6d 61 70 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 ┆-map) (define-key dired-mode-map┆
0x0900…0920 20 22 72 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d 66 69 6c 65 29 29 20 ┆ "r" (quote dired-rename-file)) ┆
0x0920…0940 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 04 22 20 28 ┆(define-key dired-mode-map " " (┆
0x0940…0960 71 75 6f 74 65 20 64 69 72 65 64 2d 66 6c 61 67 2d 66 69 6c 65 2d 64 65 6c 65 74 65 64 29 29 20 ┆quote dired-flag-file-deleted)) ┆
0x0960…0980 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 64 22 20 28 ┆(define-key dired-mode-map "d" (┆
0x0980…09a0 71 75 6f 74 65 20 64 69 72 65 64 2d 66 6c 61 67 2d 66 69 6c 65 2d 64 65 6c 65 74 65 64 29 29 20 ┆quote dired-flag-file-deleted)) ┆
0x09a0…09c0 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 76 22 20 28 ┆(define-key dired-mode-map "v" (┆
0x09c0…09e0 71 75 6f 74 65 20 64 69 72 65 64 2d 76 69 65 77 2d 66 69 6c 65 29 29 20 28 64 65 66 69 6e 65 2d ┆quote dired-view-file)) (define-┆
0x09e0…0a00 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 65 22 20 28 71 75 6f 74 65 20 64 69 ┆key dired-mode-map "e" (quote di┆
0x0a00…0a20 72 65 64 2d 66 69 6e 64 2d 66 69 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 ┆red-find-file)) (define-key dire┆
0x0a20…0a40 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 66 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 66 69 6e 64 ┆d-mode-map "f" (quote dired-find┆
0x0a40…0a60 2d 66 69 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d ┆-file)) (define-key dired-mode-m┆
0x0a60…0a80 61 70 20 22 6f 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 ┆ap "o" (quote dired-find-file-ot┆
0x0a80…0aa0 68 65 72 2d 77 69 6e 64 6f 77 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d ┆her-window)) (define-key dired-m┆
0x0aa0…0ac0 6f 64 65 2d 6d 61 70 20 22 75 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 75 6e 66 6c 61 67 29 ┆ode-map "u" (quote dired-unflag)┆
0x0ac0…0ae0 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 78 22 ┆) (define-key dired-mode-map "x"┆
0x0ae0…0b00 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 64 6f 2d 64 65 6c 65 74 69 6f 6e 73 29 29 20 28 64 65 ┆ (quote dired-do-deletions)) (de┆
0x0b00…0b20 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 7f 22 20 28 71 75 6f ┆fine-key dired-mode-map " " (quo┆
0x0b20…0b40 74 65 20 64 69 72 65 64 2d 62 61 63 6b 75 70 2d 75 6e 66 6c 61 67 29 29 20 28 64 65 66 69 6e 65 ┆te dired-backup-unflag)) (define┆
0x0b40…0b60 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 3f 22 20 28 71 75 6f 74 65 20 64 ┆-key dired-mode-map "?" (quote d┆
0x0b60…0b80 69 72 65 64 2d 73 75 6d 6d 61 72 79 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 ┆ired-summary)) (define-key dired┆
0x0b80…0ba0 2d 6d 6f 64 65 2d 6d 61 70 20 22 63 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 63 6f 70 79 2d ┆-mode-map "c" (quote dired-copy-┆
0x0ba0…0bc0 66 69 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 ┆file)) (define-key dired-mode-ma┆
0x0bc0…0be0 70 20 22 23 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 66 6c 61 67 2d 61 75 74 6f 2d 73 61 76 ┆p "#" (quote dired-flag-auto-sav┆
0x0be0…0c00 65 2d 66 69 6c 65 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 ┆e-files)) (define-key dired-mode┆
0x0c00…0c20 2d 6d 61 70 20 22 7e 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 66 6c 61 67 2d 62 61 63 6b 75 ┆-map "~" (quote dired-flag-backu┆
0x0c20…0c40 70 2d 66 69 6c 65 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 ┆p-files)) (define-key dired-mode┆
0x0c40…0c60 2d 6d 61 70 20 22 2e 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 63 6c 65 61 6e 2d 64 69 72 65 ┆-map "." (quote dired-clean-dire┆
0x0c60…0c80 63 74 6f 72 79 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d ┆ctory)) (define-key dired-mode-m┆
0x0c80…0ca0 61 70 20 22 68 22 20 28 71 75 6f 74 65 20 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 29 29 20 28 64 ┆ap "h" (quote describe-mode)) (d┆
0x0ca0…0cc0 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 20 22 20 28 71 75 ┆efine-key dired-mode-map " " (qu┆
0x0cc0…0ce0 6f 74 65 20 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 ┆ote dired-next-line)) (define-ke┆
0x0ce0…0d00 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 0e 22 20 28 71 75 6f 74 65 20 64 69 72 65 ┆y dired-mode-map " " (quote dire┆
0x0d00…0d20 64 2d 6e 65 78 74 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d ┆d-next-line)) (define-key dired-┆
0x0d20…0d40 6d 6f 64 65 2d 6d 61 70 20 22 10 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 70 72 65 76 69 6f ┆mode-map " " (quote dired-previo┆
0x0d40…0d60 75 73 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 ┆us-line)) (define-key dired-mode┆
0x0d60…0d80 2d 6d 61 70 20 22 6e 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 29 ┆-map "n" (quote dired-next-line)┆
0x0d80…0da0 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 70 22 ┆) (define-key dired-mode-map "p"┆
0x0da0…0dc0 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 29 29 20 28 64 ┆ (quote dired-previous-line)) (d┆
0x0dc0…0de0 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 67 22 20 28 71 75 ┆efine-key dired-mode-map "g" (qu┆
0x0de0…0e00 6f 74 65 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆ote revert-buffer)) (define-key ┆
0x0e00…0e20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 43 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d ┆dired-mode-map "C" (quote dired-┆
0x0e20…0e40 63 6f 6d 70 72 65 73 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 ┆compress)) (define-key dired-mod┆
0x0e40…0e60 65 2d 6d 61 70 20 22 55 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 75 6e 63 6f 6d 70 72 65 73 ┆e-map "U" (quote dired-uncompres┆
0x0e60…0e80 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 ┆s)) (define-key dired-mode-map "┆
0x0e80…0ea0 42 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 62 79 74 65 2d 72 65 63 6f 6d 70 69 6c 65 29 29 ┆B" (quote dired-byte-recompile))┆
0x0ea0…0ec0 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 4d 22 20 ┆ (define-key dired-mode-map "M" ┆
0x0ec0…0ee0 28 71 75 6f 74 65 20 64 69 72 65 64 2d 63 68 6d 6f 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 ┆(quote dired-chmod)) (define-key┆
0x0ee0…0f00 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 47 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 ┆ dired-mode-map "G" (quote dired┆
0x0f00…0f20 2d 63 68 67 72 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 69 72 65 64 2d 6d 6f 64 65 2d ┆-chgrp)) (define-key dired-mode-┆
0x0f20…0f40 6d 61 70 20 22 4f 22 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 63 68 6f 77 6e 29 29 29 0a 0a 28 ┆map "O" (quote dired-chown))) (┆
0x0f40…0f60 70 75 74 20 28 71 75 6f 74 65 20 64 69 72 65 64 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 6d 6f ┆put (quote dired-mode) (quote mo┆
0x0f60…0f80 64 65 2d 63 6c 61 73 73 29 20 28 71 75 6f 74 65 20 73 70 65 63 69 61 6c 29 29 0a 0a 28 64 65 66 ┆de-class) (quote special)) (def┆
0x0f80…0fa0 75 6e 20 64 69 72 65 64 2d 6d 6f 64 65 20 28 64 69 72 6e 61 6d 65 29 20 22 5c 0a 4d 6f 64 65 20 ┆un dired-mode (dirname) "\ Mode ┆
0x0fa0…0fc0 66 6f 72 20 5c 22 65 64 69 74 69 6e 67 5c 22 20 64 69 72 65 63 74 6f 72 79 20 6c 69 73 74 69 6e ┆for \"editing\" directory listin┆
0x0fc0…0fe0 67 73 2e 0a 49 6e 20 64 69 72 65 64 2c 20 79 6f 75 20 61 72 65 20 5c 22 65 64 69 74 69 6e 67 5c ┆gs. In dired, you are \"editing\┆
0x0fe0…1000 22 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 69 6c 65 73 20 69 6e 20 61 20 64 69 72 65 63 ┆" a list of the files in a direc┆
0x1000…1020 74 6f 72 79 2e 0a 59 6f 75 20 63 61 6e 20 6d 6f 76 65 20 75 73 69 6e 67 20 74 68 65 20 75 73 75 ┆tory. You can move using the usu┆
0x1020…1040 61 6c 20 63 75 72 73 6f 72 20 6d 6f 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 2e 0a 4c 65 74 74 65 ┆al cursor motion commands. Lette┆
0x1040…1060 72 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 69 6e 73 65 72 74 20 74 68 65 6d 73 65 6c 76 65 73 2e 0a ┆rs no longer insert themselves. ┆
0x1060…1080 49 6e 73 74 65 61 64 2c 20 74 79 70 65 20 64 20 74 6f 20 66 6c 61 67 20 61 20 66 69 6c 65 20 66 ┆Instead, type d to flag a file f┆
0x1080…10a0 6f 72 20 44 65 6c 65 74 69 6f 6e 2e 0a 54 79 70 65 20 75 20 74 6f 20 55 6e 66 6c 61 67 20 61 20 ┆or Deletion. Type u to Unflag a ┆
0x10a0…10c0 66 69 6c 65 20 28 72 65 6d 6f 76 65 20 69 74 73 20 44 20 66 6c 61 67 29 2e 0a 20 20 54 79 70 65 ┆file (remove its D flag). Type┆
0x10c0…10e0 20 52 75 62 6f 75 74 20 74 6f 20 62 61 63 6b 20 75 70 20 6f 6e 65 20 6c 69 6e 65 20 61 6e 64 20 ┆ Rubout to back up one line and ┆
0x10e0…1100 75 6e 66 6c 61 67 2e 0a 54 79 70 65 20 78 20 74 6f 20 65 58 65 63 75 74 65 20 74 68 65 20 64 65 ┆unflag. Type x to eXecute the de┆
0x1100…1120 6c 65 74 69 6f 6e 73 20 72 65 71 75 65 73 74 65 64 2e 0a 54 79 70 65 20 66 20 74 6f 20 46 69 6e ┆letions requested. Type f to Fin┆
0x1120…1140 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 27 73 20 66 69 6c 65 0a 20 20 28 6f 72 20 ┆d the current line's file (or ┆
0x1140…1160 44 69 72 65 64 20 69 74 2c 20 69 66 20 69 74 20 69 73 20 61 20 64 69 72 65 63 74 6f 72 79 29 2e ┆Dired it, if it is a directory).┆
0x1160…1180 0a 54 79 70 65 20 6f 20 74 6f 20 66 69 6e 64 20 66 69 6c 65 20 6f 72 20 64 69 72 65 64 20 64 69 ┆ Type o to find file or dired di┆
0x1180…11a0 72 65 63 74 6f 72 79 20 69 6e 20 4f 74 68 65 72 20 77 69 6e 64 6f 77 2e 0a 54 79 70 65 20 23 20 ┆rectory in Other window. Type # ┆
0x11a0…11c0 74 6f 20 66 6c 61 67 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 73 20 28 6e 61 6d 65 73 20 62 ┆to flag temporary files (names b┆
0x11c0…11e0 65 67 69 6e 6e 69 6e 67 20 77 69 74 68 20 23 29 20 66 6f 72 20 44 65 6c 65 74 69 6f 6e 2e 0a 54 ┆eginning with #) for Deletion. T┆
0x11e0…1200 79 70 65 20 7e 20 74 6f 20 66 6c 61 67 20 62 61 63 6b 75 70 20 66 69 6c 65 73 20 28 6e 61 6d 65 ┆ype ~ to flag backup files (name┆
0x1200…1220 73 20 65 6e 64 69 6e 67 20 77 69 74 68 20 7e 29 20 66 6f 72 20 44 65 6c 65 74 69 6f 6e 2e 0a 54 ┆s ending with ~) for Deletion. T┆
0x1220…1240 79 70 65 20 2e 20 74 6f 20 66 6c 61 67 20 6e 75 6d 65 72 69 63 61 6c 20 62 61 63 6b 75 70 73 20 ┆ype . to flag numerical backups ┆
0x1240…1260 66 6f 72 20 44 65 6c 65 74 69 6f 6e 2e 0a 20 20 28 53 70 61 72 65 73 20 64 69 72 65 64 2d 6b 65 ┆for Deletion. (Spares dired-ke┆
0x1260…1280 70 74 2d 76 65 72 73 69 6f 6e 73 20 6f 72 20 69 74 73 20 6e 75 6d 65 72 69 63 20 61 72 67 75 6d ┆pt-versions or its numeric argum┆
0x1280…12a0 65 6e 74 2e 29 0a 54 79 70 65 20 72 20 74 6f 20 72 65 6e 61 6d 65 20 61 20 66 69 6c 65 2e 0a 54 ┆ent.) Type r to rename a file. T┆
0x12a0…12c0 79 70 65 20 63 20 74 6f 20 63 6f 70 79 20 61 20 66 69 6c 65 2e 0a 54 79 70 65 20 76 20 74 6f 20 ┆ype c to copy a file. Type v to ┆
0x12c0…12e0 76 69 65 77 20 61 20 66 69 6c 65 20 69 6e 20 56 69 65 77 20 6d 6f 64 65 2c 20 72 65 74 75 72 6e ┆view a file in View mode, return┆
0x12e0…1300 69 6e 67 20 74 6f 20 44 69 72 65 64 20 77 68 65 6e 20 64 6f 6e 65 2e 0a 54 79 70 65 20 67 20 74 ┆ing to Dired when done. Type g t┆
0x1300…1320 6f 20 72 65 61 64 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 61 67 61 69 6e 2e 20 20 54 68 69 ┆o read the directory again. Thi┆
0x1320…1340 73 20 64 69 73 63 61 72 64 73 20 61 6c 6c 20 64 65 6c 65 74 69 6f 6e 2d 66 6c 61 67 73 2e 0a 53 ┆s discards all deletion-flags. S┆
0x1340…1360 70 61 63 65 20 61 6e 64 20 52 75 62 6f 75 74 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 6d ┆pace and Rubout can be used to m┆
0x1360…1380 6f 76 65 20 64 6f 77 6e 20 61 6e 64 20 75 70 20 62 79 20 6c 69 6e 65 73 2e 0a 41 6c 73 6f 3a 20 ┆ove down and up by lines. Also: ┆
0x1380…13a0 43 20 2d 2d 20 63 6f 6d 70 72 65 73 73 20 74 68 69 73 20 66 69 6c 65 2e 20 20 55 20 2d 2d 20 75 ┆C -- compress this file. U -- u┆
0x13a0…13c0 6e 63 6f 6d 70 72 65 73 73 20 74 68 69 73 20 66 69 6c 65 2e 0a 20 20 20 20 20 20 42 20 2d 2d 20 ┆ncompress this file. B -- ┆
0x13c0…13e0 62 79 74 65 20 63 6f 6d 70 69 6c 65 20 74 68 69 73 20 66 69 6c 65 2e 0a 20 4d 2c 20 47 2c 20 4f ┆byte compile this file. M, G, O┆
0x13e0…1400 20 2d 2d 20 63 68 61 6e 67 65 20 66 69 6c 65 27 73 20 6d 6f 64 65 2c 20 67 72 6f 75 70 20 6f 72 ┆ -- change file's mode, group or┆
0x1400…1420 20 6f 77 6e 65 72 2e 0a 5c 5c 7b 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 7d 22 20 28 62 79 74 ┆ owner. \\{dired-mode-map}" (byt┆
0x1420…1440 65 2d 63 6f 64 65 20 22 cc 20 88 cd c0 21 88 ce 89 10 88 cf 89 11 88 d0 89 12 88 cd c3 21 88 0c ┆e-code " ! ! ┆
0x1440…1460 89 13 88 d1 0c 21 83 25 00 0c 82 28 00 d2 0c 21 89 15 88 d3 89 16 06 88 c8 89 16 07 88 ca 89 16 ┆ ! % ( ! ┆
0x1460…1480 09 88 d4 0e 0b 21 88 d5 d6 21 87 22 20 5b 72 65 76 65 72 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 ┆ ! ! " [revert-buffer-func┆
0x1480…14a0 74 69 6f 6e 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 64 69 72 65 64 2d ┆tion major-mode mode-name dired-┆
0x14a0…14c0 64 69 72 65 63 74 6f 72 79 20 64 69 72 6e 61 6d 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 ┆directory dirname default-direct┆
0x14c0…14e0 6f 72 79 20 6d 6f 64 65 2d 6c 69 6e 65 2d 62 75 66 66 65 72 2d 69 64 65 6e 74 69 66 69 63 61 74 ┆ory mode-line-buffer-identificat┆
0x14e0…1500 69 6f 6e 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 62 75 66 66 65 72 2d ┆ion case-fold-search nil buffer-┆
0x1500…1520 72 65 61 64 2d 6f 6e 6c 79 20 74 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 20 6b 69 6c 6c 2d ┆read-only t dired-mode-map kill-┆
0x1520…1540 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 ┆all-local-variables make-local-v┆
0x1540…1560 61 72 69 61 62 6c 65 20 64 69 72 65 64 2d 72 65 76 65 72 74 20 64 69 72 65 64 2d 6d 6f 64 65 20 ┆ariable dired-revert dired-mode ┆
0x1560…1580 22 44 69 72 65 64 22 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 69 6c 65 2d 6e 61 ┆"Dired" file-directory-p file-na┆
0x1580…15a0 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 28 22 44 69 72 65 64 3a 20 25 31 37 62 22 29 20 75 73 65 ┆me-directory ("Dired: %17b") use┆
0x15a0…15c0 2d 6c 6f 63 61 6c 2d 6d 61 70 20 72 75 6e 2d 68 6f 6f 6b 73 20 64 69 72 65 64 2d 6d 6f 64 65 2d ┆-local-map run-hooks dired-mode-┆
0x15c0…15e0 68 6f 6f 6b 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 72 65 70 65 61 74 2d 6f ┆hook] 8)) (defun dired-repeat-o┆
0x15e0…1600 76 65 72 2d 6c 69 6e 65 73 20 28 61 72 67 20 66 75 6e 63 74 69 6f 6e 29 20 28 62 79 74 65 2d 63 ┆ver-lines (arg function) (byte-c┆
0x1600…1620 6f 64 65 20 22 c2 20 88 08 c3 56 85 0b 00 6d 3f 85 34 00 08 53 89 10 88 8a c2 20 88 6f 85 24 00 ┆ode " V m? 4 S o $ ┆
0x1620…1640 c4 c5 21 85 24 00 c6 c7 21 88 c8 09 21 29 88 c9 ca 21 88 cb 20 88 82 03 00 88 08 c3 57 85 3d 00 ┆ ! $ ! !) ! W = ┆
0x1640…1660 6f 3f 85 58 00 08 54 89 10 88 c9 cc 21 88 cb 20 88 8a c2 20 88 c8 09 21 29 88 82 35 00 87 22 20 ┆o? X T ! !) 5 " ┆
0x1660…1680 5b 61 72 67 20 66 75 6e 63 74 69 6f 6e 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 ┆[arg function beginning-of-line ┆
0x1680…16a0 30 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 20 20 74 6f 74 61 6c 22 20 65 72 72 6f 72 20 22 4e 6f ┆0 looking-at " total" error "No┆
0x16a0…16c0 20 66 69 6c 65 20 6f 6e 20 74 68 69 73 20 6c 69 6e 65 22 20 66 75 6e 63 61 6c 6c 20 66 6f 72 77 ┆ file on this line" funcall forw┆
0x16c0…16e0 61 72 64 2d 6c 69 6e 65 20 31 20 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d ┆ard-line 1 dired-move-to-filenam┆
0x16e0…1700 65 20 2d 31 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 66 6c 61 67 2d 66 69 ┆e -1] 13)) (defun dired-flag-fi┆
0x1700…1720 6c 65 2d 64 65 6c 65 74 65 64 20 28 61 72 67 29 20 22 5c 0a 49 6e 20 64 69 72 65 64 2c 20 66 6c ┆le-deleted (arg) "\ In dired, fl┆
0x1720…1740 61 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 27 73 20 66 69 6c 65 20 66 6f 72 20 64 ┆ag the current line's file for d┆
0x1740…1760 65 6c 65 74 69 6f 6e 2e 0a 57 69 74 68 20 61 72 67 2c 20 72 65 70 65 61 74 20 6f 76 65 72 20 73 ┆eletion. With arg, repeat over s┆
0x1760…1780 65 76 65 72 61 6c 20 6c 69 6e 65 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 ┆everal lines." (interactive "p")┆
0x1780…17a0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 c3 5c 22 87 22 20 5b 61 72 67 20 6e 69 6c 20 ┆ (byte-code " \" " [arg nil ┆
0x17a0…17c0 64 69 72 65 64 2d 72 65 70 65 61 74 2d 6f 76 65 72 2d 6c 69 6e 65 73 20 28 6c 61 6d 62 64 61 20 ┆dired-repeat-over-lines (lambda ┆
0x17c0…17e0 6e 69 6c 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 29 ┆nil (let ((buffer-read-only nil)┆
0x17e0…1800 29 20 28 69 66 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 20 20 64 22 29 20 6e 69 6c 20 28 64 65 ┆) (if (looking-at " d") nil (de┆
0x1800…1820 6c 65 74 65 2d 63 68 61 72 20 31 29 20 28 69 6e 73 65 72 74 20 22 44 22 29 29 29 29 5d 20 33 29 ┆lete-char 1) (insert "D"))))] 3)┆
0x1820…1840 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 6d 6d 61 72 79 20 6e 69 6c 20 28 69 6e 74 ┆) (defun dired-summary nil (int┆
0x1840…1860 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e ┆eractive) (byte-code " ! " [n┆
0x1860…1880 69 6c 20 6d 65 73 73 61 67 65 20 22 64 2d 65 6c 65 74 65 2c 20 75 2d 6e 64 65 6c 65 74 65 2c 20 ┆il message "d-elete, u-ndelete, ┆
0x1880…18a0 78 2d 65 63 75 74 65 2c 20 66 2d 69 6e 64 2c 20 6f 2d 74 68 65 72 20 77 69 6e 64 6f 77 2c 20 72 ┆x-ecute, f-ind, o-ther window, r┆
0x18a0…18c0 2d 65 6e 61 6d 65 2c 20 63 2d 6f 70 79 2c 20 76 2d 69 65 77 22 5d 20 32 29 29 0a 0a 28 64 65 66 ┆-ename, c-opy, v-iew"] 2)) (def┆
0x18c0…18e0 75 6e 20 64 69 72 65 64 2d 75 6e 66 6c 61 67 20 28 61 72 67 29 20 22 5c 0a 49 6e 20 64 69 72 65 ┆un dired-unflag (arg) "\ In dire┆
0x18e0…1900 64 2c 20 66 6c 61 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 27 73 20 66 69 6c 65 20 ┆d, flag the current line's file ┆
0x1900…1920 66 6f 72 20 64 65 6c 65 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 ┆for deletion." (interactive "p")┆
[…truncated at 200 lines…]