|
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: ┃ c ┃
Length: 6592 (0x19c0)
Names: »compile.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/compile.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 63 6f 6d 70 69 6c 65 29 29 0a 0a 28 64 65 66 ┆ (provide (quote compile)) (def┆
0x0020…0040 76 61 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 72 6f 63 65 73 73 20 6e 69 6c 20 22 5c 0a 50 ┆var compilation-process nil "\ P┆
0x0040…0060 72 6f 63 65 73 73 20 63 72 65 61 74 65 64 20 62 79 20 63 6f 6d 70 69 6c 65 20 63 6f 6d 6d 61 6e ┆rocess created by compile comman┆
0x0060…0080 64 2c 20 6f 72 20 6e 69 6c 20 69 66 20 6e 6f 6e 65 20 65 78 69 73 74 73 20 6e 6f 77 2e 0a 4e 6f ┆d, or nil if none exists now. No┆
0x0080…00a0 74 65 20 74 68 61 74 20 74 68 65 20 70 72 6f 63 65 73 73 20 6d 61 79 20 68 61 76 65 20 62 65 65 ┆te that the process may have bee┆
0x00a0…00c0 6e 20 5c 22 64 65 6c 65 74 65 64 5c 22 20 61 6e 64 20 73 74 69 6c 6c 0a 62 65 20 74 68 65 20 76 ┆n \"deleted\" and still be the v┆
0x00c0…00e0 61 6c 75 65 20 6f 66 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 22 29 0a 0a 28 64 65 66 76 61 ┆alue of this variable.") (defva┆
0x00e0…0100 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 6c 69 73 74 20 6e 69 6c 20 22 5c 0a ┆r compilation-error-list nil "\ ┆
0x0100…0120 4c 69 73 74 20 6f 66 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 64 65 73 63 72 69 70 74 6f 72 ┆List of error message descriptor┆
0x0120…0140 73 20 66 6f 72 20 76 69 73 69 74 69 6e 67 20 65 72 72 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 2e ┆s for visiting erring functions.┆
0x0140…0160 0a 45 61 63 68 20 65 72 72 6f 72 20 64 65 73 63 72 69 70 74 6f 72 20 69 73 20 61 20 6c 69 73 74 ┆ Each error descriptor is a list┆
0x0160…0180 20 6f 66 20 6c 65 6e 67 74 68 20 74 77 6f 2e 0a 49 74 73 20 63 61 72 20 69 73 20 61 20 6d 61 72 ┆ of length two. Its car is a mar┆
0x0180…01a0 6b 65 72 20 70 6f 69 6e 74 69 6e 67 20 74 6f 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 ┆ker pointing to an error message┆
0x01a0…01c0 2e 0a 49 74 73 20 63 61 64 72 20 69 73 20 61 20 6d 61 72 6b 65 72 20 70 6f 69 6e 74 69 6e 67 20 ┆. Its cadr is a marker pointing ┆
0x01c0…01e0 74 6f 20 74 68 65 20 74 65 78 74 20 6f 66 20 74 68 65 20 6c 69 6e 65 20 74 68 65 20 6d 65 73 73 ┆to the text of the line the mess┆
0x01e0…0200 61 67 65 20 69 73 20 61 62 6f 75 74 2c 0a 20 20 6f 72 20 6e 69 6c 20 69 66 20 74 68 61 74 20 69 ┆age is about, or nil if that i┆
0x0200…0220 73 20 6e 6f 74 20 69 6e 74 65 72 65 73 74 69 6e 67 2e 0a 54 68 65 20 76 61 6c 75 65 20 6d 61 79 ┆s not interesting. The value may┆
0x0220…0240 20 62 65 20 74 20 69 6e 73 74 65 61 64 20 6f 66 20 61 20 6c 69 73 74 3b 0a 74 68 69 73 20 6d 65 ┆ be t instead of a list; this me┆
0x0240…0260 61 6e 73 20 74 68 61 74 20 74 68 65 20 62 75 66 66 65 72 20 6f 66 20 65 72 72 6f 72 20 6d 65 73 ┆ans that the buffer of error mes┆
0x0260…0280 73 61 67 65 73 20 73 68 6f 75 6c 64 20 62 65 20 72 65 70 61 72 73 65 64 0a 74 68 65 20 6e 65 78 ┆sages should be reparsed the nex┆
0x0280…02a0 74 20 74 69 6d 65 20 74 68 65 20 6c 69 73 74 20 6f 66 20 65 72 72 6f 72 73 20 69 73 20 77 61 6e ┆t time the list of errors is wan┆
0x02a0…02c0 74 65 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 61 72 73 ┆ted.") (defvar compilation-pars┆
0x02c0…02e0 69 6e 67 2d 65 6e 64 20 6e 69 6c 20 22 5c 0a 50 6f 73 69 74 69 6f 6e 20 6f 66 20 65 6e 64 20 6f ┆ing-end nil "\ Position of end o┆
0x02e0…0300 66 20 62 75 66 66 65 72 20 77 68 65 6e 20 6c 61 73 74 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 ┆f buffer when last error message┆
0x0300…0320 73 20 70 61 72 73 65 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e ┆s parsed.") (defvar compilation┆
0x0320…0340 2d 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 6e 69 6c 20 22 5c 0a 4d 65 73 73 61 67 65 20 74 6f ┆-error-message nil "\ Message to┆
0x0340…0360 20 70 72 69 6e 74 20 77 68 65 6e 20 6e 6f 20 6d 6f 72 65 20 6d 61 74 63 68 65 73 20 66 6f 72 20 ┆ print when no more matches for ┆
0x0360…0380 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 72 65 67 65 78 70 20 61 72 65 20 66 6f 75 ┆compilation-error-regexp are fou┆
0x0380…03a0 6e 64 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d ┆nd") (defvar compilation-error-┆
0x03a0…03c0 72 65 67 65 78 70 20 22 5c 5c 28 5b 5e 20 0a 5d 2b 5c 5c 28 3a 20 2a 5c 5c 7c 2c 20 6c 69 6e 65 ┆regexp "\\([^ ]+\\(: *\\|, line┆
0x03c0…03e0 20 5c 5c 7c 28 5c 5c 29 5b 30 2d 39 5d 2b 5c 5c 29 5c 5c 7c 5c 5c 28 5b 30 2d 39 5d 2b 2e 2a 6f ┆ \\|(\\)[0-9]+\\)\\|\\([0-9]+.*o┆
0x03e0…0400 66 20 2a 5b 5e 20 0a 5d 2b 5c 5c 29 22 20 22 52 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f ┆f *[^ ]+\\)" "Regular expressio┆
0x0400…0420 6e 20 66 6f 72 20 66 69 6c 65 6e 61 6d 65 2f 6c 69 6e 65 6e 75 6d 62 65 72 20 69 6e 20 65 72 72 ┆n for filename/linenumber in err┆
0x0420…0440 6f 72 20 69 6e 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6c 6f 67 2e 22 29 0a 0a 28 64 65 66 75 6e ┆or in compilation log.") (defun┆
0x0440…0460 20 63 6f 6d 70 69 6c 65 20 28 63 6f 6d 6d 61 6e 64 29 20 22 5c 0a 43 6f 6d 70 69 6c 65 20 74 68 ┆ compile (command) "\ Compile th┆
0x0460…0480 65 20 70 72 6f 67 72 61 6d 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 ┆e program including the current ┆
0x0480…04a0 62 75 66 66 65 72 2e 20 20 44 65 66 61 75 6c 74 3a 20 72 75 6e 20 6d 61 6b 65 2e 0a 52 75 6e 73 ┆buffer. Default: run make. Runs┆
0x04a0…04c0 20 43 4f 4d 4d 41 4e 44 2c 20 61 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e 20 61 20 ┆ COMMAND, a shell command, in a ┆
0x04c0…04e0 73 65 70 61 72 61 74 65 20 70 72 6f 63 65 73 73 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 0a ┆separate process asynchronously ┆
0x04e0…0500 77 69 74 68 20 6f 75 74 70 75 74 20 67 6f 69 6e 67 20 74 6f 20 74 68 65 20 62 75 66 66 65 72 20 ┆with output going to the buffer ┆
0x0500…0520 2a 63 6f 6d 70 69 6c 61 74 69 6f 6e 2a 2e 0a 59 6f 75 20 63 61 6e 20 74 68 65 6e 20 75 73 65 20 ┆*compilation*. You can then use ┆
0x0520…0540 74 68 65 20 63 6f 6d 6d 61 6e 64 20 5c 5c 5b 6e 65 78 74 2d 65 72 72 6f 72 5d 20 74 6f 20 66 69 ┆the command \\[next-error] to fi┆
0x0540…0560 6e 64 20 74 68 65 20 6e 65 78 74 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 61 6e 64 20 6d 6f ┆nd the next error message and mo┆
0x0560…0580 76 65 20 74 6f 20 74 68 65 20 73 6f 75 72 63 65 20 63 6f 64 65 20 74 68 61 74 20 63 61 75 73 65 ┆ve to the source code that cause┆
0x0580…05a0 64 20 69 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆d it." (interactive (byte-code "┆
0x05a0…05c0 c1 c2 08 5c 22 43 87 22 20 5b 63 6f 6d 70 69 6c 65 2d 63 6f 6d 6d 61 6e 64 20 72 65 61 64 2d 73 ┆ \"C " [compile-command read-s┆
0x05c0…05e0 74 72 69 6e 67 20 22 43 6f 6d 70 69 6c 65 20 63 6f 6d 6d 61 6e 64 3a 20 22 5d 20 33 29 29 20 28 ┆tring "Compile command: "] 3)) (┆
0x05e0…0600 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 09 89 10 88 c3 08 c4 5c 22 87 22 20 5b 63 6f 6d 70 69 6c ┆byte-code " \" " [compil┆
0x0600…0620 65 2d 63 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 63 6f 6d 70 69 6c 65 31 20 22 ┆e-command command nil compile1 "┆
0x0620…0640 4e 6f 20 6d 6f 72 65 20 65 72 72 6f 72 73 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 67 72 65 ┆No more errors"] 3)) (defun gre┆
0x0640…0660 70 20 28 63 6f 6d 6d 61 6e 64 29 20 22 5c 0a 52 75 6e 20 67 72 65 70 2c 20 77 69 74 68 20 75 73 ┆p (command) "\ Run grep, with us┆
0x0660…0680 65 72 2d 73 70 65 63 69 66 69 65 64 20 61 72 67 73 2c 20 61 6e 64 20 63 6f 6c 6c 65 63 74 20 6f ┆er-specified args, and collect o┆
0x0680…06a0 75 74 70 75 74 20 69 6e 20 61 20 62 75 66 66 65 72 2e 0a 57 68 69 6c 65 20 67 72 65 70 20 72 75 ┆utput in a buffer. While grep ru┆
0x06a0…06c0 6e 73 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 2c 20 79 6f 75 20 63 61 6e 20 75 73 65 20 74 ┆ns asynchronously, you can use t┆
0x06c0…06e0 68 65 20 5c 5c 5b 6e 65 78 74 2d 65 72 72 6f 72 5d 20 63 6f 6d 6d 61 6e 64 0a 74 6f 20 66 69 6e ┆he \\[next-error] command to fin┆
0x06e0…0700 64 20 74 68 65 20 74 65 78 74 20 74 68 61 74 20 67 72 65 70 20 68 69 74 73 20 72 65 66 65 72 20 ┆d the text that grep hits refer ┆
0x0700…0720 74 6f 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 52 75 6e 20 67 72 65 70 20 28 77 69 ┆to." (interactive "sRun grep (wi┆
0x0720…0740 74 68 20 61 72 67 73 29 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 08 c4 51 ┆th args): ") (byte-code " Q┆
0x0740…0760 c5 c6 23 87 22 20 5b 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 63 6f 6d 70 69 6c 65 31 20 22 67 72 65 ┆ # " [command nil compile1 "gre┆
0x0760…0780 70 20 2d 6e 20 22 20 22 20 2f 64 65 76 2f 6e 75 6c 6c 22 20 22 4e 6f 20 6d 6f 72 65 20 67 72 65 ┆p -n " " /dev/null" "No more gre┆
0x0780…07a0 70 20 68 69 74 73 22 20 22 67 72 65 70 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 ┆p hits" "grep"] 4)) (defun comp┆
0x07a0…07c0 69 6c 65 31 20 28 63 6f 6d 6d 61 6e 64 20 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 26 6f 70 74 ┆ile1 (command error-message &opt┆
0x07c0…07e0 69 6f 6e 61 6c 20 6e 61 6d 65 2d 6f 66 2d 6d 6f 64 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆ional name-of-mode) (byte-code "┆
0x07e0…0800 d2 20 88 08 83 23 00 d3 08 21 d4 3d 3f 86 13 00 d5 d6 21 83 1d 00 c1 d7 d8 8f 82 20 00 d9 da 21 ┆ # ! =? ! !┆
0x0800…0820 82 24 00 c1 88 c1 89 10 88 db 20 88 c3 89 12 88 0d 89 14 88 dc dd de 0e 06 df e0 0e 07 50 25 89 ┆ $ P% ┆
0x0820…0840 10 88 de 90 e1 e2 21 88 e1 0e 08 21 88 e3 20 88 e1 0e 07 21 88 e3 20 91 88 0e 0a 1e 09 8a e4 de ┆ ! ! ! ┆
0x0840…0860 21 88 e5 ca 21 88 0e 09 89 16 0a 29 29 88 e6 08 e7 5c 22 88 0e 08 1e 0b e8 08 21 1e 0c e9 0e 0c ┆! ! )) \" ! ┆
0x0860…0880 21 1e 0d 0e 0c 70 3d 83 8e 00 64 62 82 8f 00 c1 88 8a 0e 0c 71 88 ea 0e 0c 21 88 8a 0e 0c 71 88 ┆! p= db q ! q ┆
0x0880…08a0 65 29 1e 0e eb 0e 0d 0e 0e 5c 22 88 0e 0d ec 20 3d 86 b8 00 ed 0e 0d 0e 0e 5c 22 29 88 0e 0b 89 ┆e) \" = \") ┆
0x08a0…08c0 16 08 88 ee 20 88 0e 10 86 c9 00 ef 89 16 0f 88 f0 89 16 11 29 2b 87 22 20 5b 63 6f 6d 70 69 6c ┆ )+ " [compil┆
0x08c0…08e0 61 74 69 6f 6e 2d 70 72 6f 63 65 73 73 20 6e 69 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 ┆ation-process nil compilation-er┆
0x08e0…0900 72 6f 72 2d 6c 69 73 74 20 74 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 6d 65 73 ┆ror-list t compilation-error-mes┆
0x0900…0920 73 61 67 65 20 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 ┆sage error-message shell-file-na┆
0x0920…0940 6d 65 20 63 6f 6d 6d 61 6e 64 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 72 65 67 ┆me command default-directory reg┆
0x0940…0960 65 78 70 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 72 65 67 65 78 70 20 74 68 69 ┆exp compilation-error-regexp thi┆
0x0960…0980 73 64 69 72 20 6f 75 74 62 75 66 20 6f 75 74 77 69 6e 20 73 74 61 72 74 20 6d 6f 64 65 2d 6e 61 ┆sdir outbuf outwin start mode-na┆
0x0980…09a0 6d 65 20 6e 61 6d 65 2d 6f 66 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 ┆me name-of-mode mode-line-proces┆
0x09a0…09c0 73 20 73 61 76 65 2d 73 6f 6d 65 2d 62 75 66 66 65 72 73 20 70 72 6f 63 65 73 73 2d 73 74 61 74 ┆s save-some-buffers process-stat┆
0x09c0…09e0 75 73 20 72 75 6e 20 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 22 41 20 63 6f 6d 70 69 6c 61 74 69 6f ┆us run yes-or-no-p "A compilatio┆
0x09e0…0a00 6e 20 70 72 6f 63 65 73 73 20 69 73 20 72 75 6e 6e 69 6e 67 3b 20 6b 69 6c 6c 20 69 74 3f 20 22 ┆n process is running; kill it? "┆
0x0a00…0a20 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 88 c2 c3 21 88 c4 08 21 87 22 20 5b 63 6f 6d 70 ┆ (byte-code " ! ! ! " [comp┆
0x0a20…0a40 69 6c 61 74 69 6f 6e 2d 70 72 6f 63 65 73 73 20 69 6e 74 65 72 72 75 70 74 2d 70 72 6f 63 65 73 ┆ilation-process interrupt-proces┆
0x0a40…0a60 73 20 73 69 74 2d 66 6f 72 20 31 20 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 5d 20 34 29 20 28 ┆s sit-for 1 delete-process] 4) (┆
0x0a60…0a80 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 ┆(error (byte-code " " [nil] 1))┆
0x0a80…0aa0 29 20 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 68 61 76 65 20 74 77 6f 20 63 6f 6d 70 69 6c 61 ┆) error "Cannot have two compila┆
0x0aa0…0ac0 74 69 6f 6e 20 70 72 6f 63 65 73 73 65 73 22 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 6f 72 67 ┆tion processes" compilation-forg┆
0x0ac0…0ae0 65 74 2d 65 72 72 6f 72 73 20 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 22 63 6f 6d 70 69 6c 61 ┆et-errors start-process "compila┆
0x0ae0…0b00 74 69 6f 6e 22 20 22 2a 63 6f 6d 70 69 6c 61 74 69 6f 6e 2a 22 20 22 2d 63 22 20 22 65 78 65 63 ┆tion" "*compilation*" "-c" "exec┆
0x0b00…0b20 20 22 20 70 72 69 6e 63 20 22 63 64 20 22 20 74 65 72 70 72 69 20 73 77 69 74 63 68 2d 74 6f 2d ┆ " princ "cd " terpri switch-to-┆
0x0b20…0b40 62 75 66 66 65 72 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 73 65 74 2d 70 ┆buffer make-local-variable set-p┆
0x0b40…0b60 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 73 65 6e 74 ┆rocess-sentinel compilation-sent┆
0x0b60…0b80 69 6e 65 6c 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 67 65 74 2d 62 75 66 66 65 72 2d 77 ┆inel process-buffer get-buffer-w┆
0x0b80…0ba0 69 6e 64 6f 77 20 62 75 66 66 65 72 2d 66 6c 75 73 68 2d 75 6e 64 6f 20 73 65 74 2d 77 69 6e 64 ┆indow buffer-flush-undo set-wind┆
0x0ba0…0bc0 6f 77 2d 73 74 61 72 74 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 73 65 74 2d 77 69 6e ┆ow-start selected-window set-win┆
0x0bc0…0be0 64 6f 77 2d 70 6f 69 6e 74 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 20 22 43 6f 6d 70 ┆dow-point fundamental-mode "Comp┆
0x0be0…0c00 69 6c 61 74 69 6f 6e 22 20 28 22 3a 20 25 73 22 29 5d 20 32 33 29 29 0a 0a 28 64 65 66 75 6e 20 ┆ilation" (": %s")] 23)) (defun ┆
0x0c00…0c20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 20 6d 73 67 29 20 ┆compilation-sentinel (proc msg) ┆
0x0c20…0c40 28 62 79 74 65 2d 63 6f 64 65 20 22 c9 ca 08 21 21 3f 83 10 00 cb 08 c1 5c 22 82 61 00 cc 08 21 ┆(byte-code " !!? \" a !┆
0x0c40…0c60 cd 3e 85 61 00 70 1a 64 1b 60 1c ce 8e ca 08 21 71 88 64 62 88 cf d0 0d d1 0e 06 24 88 d2 d3 21 ┆ > a p d ` !q db $ !┆
0x0c60…0c80 88 cf d4 d5 20 d6 d7 4f 5c 22 88 d2 d8 21 88 d9 da cc 08 21 21 50 89 16 07 88 db 08 21 29 88 0c ┆ O\" ! !!P !) ┆
0x0c80…0ca0 0b 57 83 5c 5c 00 0c 62 82 5d 00 c1 88 0a 71 2b 87 22 20 5b 70 72 6f 63 20 6e 69 6c 20 6f 62 75 ┆ W \\ b ] q+ " [proc nil obu┆
0x0ca0…0cc0 66 20 6f 6d 61 78 20 6f 70 6f 69 6e 74 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 73 67 20 6d 6f 64 65 ┆f omax opoint mode-name msg mode┆
0x0cc0…0ce0 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 72 6f 63 65 73 ┆-line-process compilation-proces┆
0x0ce0…0d00 73 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 73 65 74 ┆s buffer-name process-buffer set┆
0x0d00…0d20 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 28 ┆-process-buffer process-status (┆
0x0d20…0d40 73 69 67 6e 61 6c 20 65 78 69 74 29 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 89 10 88 c2 c3 ┆signal exit) ((byte-code " ┆
0x0d40…0d60 20 21 87 22 20 5b 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 72 6f 63 65 73 73 20 6e 69 6c 20 73 65 ┆ ! " [compilation-process nil se┆
0x0d60…0d80 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 ┆t-buffer-modified-p buffer-modif┆
0x0d80…0da0 69 65 64 2d 70 5d 20 33 29 29 20 69 6e 73 65 72 74 20 31 30 20 22 20 22 20 66 6f 72 77 61 72 64 ┆ied-p] 3)) insert 10 " " forward┆
0x0da0…0dc0 2d 63 68 61 72 20 2d 31 20 22 20 61 74 20 22 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 ┆-char -1 " at " current-time-str┆
0x0dc0…0de0 69 6e 67 20 30 20 2d 35 20 31 20 22 3a 20 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 64 65 6c 65 ┆ing 0 -5 1 ": " symbol-name dele┆
0x0de0…0e00 74 65 2d 70 72 6f 63 65 73 73 5d 20 31 35 29 29 0a 0a 28 64 65 66 75 6e 20 6b 69 6c 6c 2d 63 6f ┆te-process] 15)) (defun kill-co┆
0x0e00…0e20 6d 70 69 6c 61 74 69 6f 6e 20 6e 69 6c 20 22 5c 0a 4b 69 6c 6c 20 74 68 65 20 70 72 6f 63 65 73 ┆mpilation nil "\ Kill the proces┆
0x0e20…0e40 73 20 6d 61 64 65 20 62 79 20 74 68 65 20 5c 5c 5b 63 6f 6d 70 69 6c 65 5d 20 63 6f 6d 6d 61 6e ┆s made by the \\[compile] comman┆
0x0e40…0e60 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 ┆d." (interactive) (byte-code " ┆
0x0e60…0e80 08 83 0c 00 c2 08 21 82 0d 00 c1 87 22 20 5b 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 72 6f 63 65 ┆ ! " [compilation-proce┆
0x0e80…0ea0 73 73 20 6e 69 6c 20 69 6e 74 65 72 72 75 70 74 2d 70 72 6f 63 65 73 73 5d 20 32 29 29 0a 0a 28 ┆ss nil interrupt-process] 2)) (┆
0x0ea0…0ec0 64 65 66 75 6e 20 6b 69 6c 6c 2d 67 72 65 70 20 6e 69 6c 20 22 5c 0a 4b 69 6c 6c 20 74 68 65 20 ┆defun kill-grep nil "\ Kill the ┆
0x0ec0…0ee0 70 72 6f 63 65 73 73 20 6d 61 64 65 20 62 79 20 74 68 65 20 5c 5c 5b 67 72 65 70 5d 20 63 6f 6d ┆process made by the \\[grep] com┆
0x0ee0…0f00 6d 61 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆mand." (interactive) (byte-code ┆
0x0f00…0f20 22 c1 88 08 83 0c 00 c2 08 21 82 0d 00 c1 87 22 20 5b 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 72 ┆" ! " [compilation-pr┆
0x0f20…0f40 6f 63 65 73 73 20 6e 69 6c 20 69 6e 74 65 72 72 75 70 74 2d 70 72 6f 63 65 73 73 5d 20 32 29 29 ┆ocess nil interrupt-process] 2))┆
0x0f40…0f60 0a 0a 28 64 65 66 75 6e 20 6e 65 78 74 2d 65 72 72 6f 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 ┆ (defun next-error (&optional a┆
0x0f60…0f80 72 67 70 29 20 22 5c 0a 56 69 73 69 74 20 6e 65 78 74 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 65 ┆rgp) "\ Visit next compilation e┆
0x0f80…0fa0 72 72 6f 72 20 6d 65 73 73 61 67 65 20 61 6e 64 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 ┆rror message and corresponding s┆
0x0fa0…0fc0 6f 75 72 63 65 20 63 6f 64 65 2e 0a 54 68 69 73 20 6f 70 65 72 61 74 65 73 20 6f 6e 20 74 68 65 ┆ource code. This operates on the┆
0x0fc0…0fe0 20 6f 75 74 70 75 74 20 66 72 6f 6d 20 74 68 65 20 5c 5c 5b 63 6f 6d 70 69 6c 65 5d 20 63 6f 6d ┆ output from the \\[compile] com┆
0x0fe0…1000 6d 61 6e 64 2e 0a 49 66 20 61 6c 6c 20 70 72 65 70 61 72 73 65 64 20 65 72 72 6f 72 20 6d 65 73 ┆mand. If all preparsed error mes┆
0x1000…1020 73 61 67 65 73 20 68 61 76 65 20 62 65 65 6e 20 70 72 6f 63 65 73 73 65 64 2c 0a 74 68 65 20 65 ┆sages have been processed, the e┆
0x1020…1040 72 72 6f 72 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 69 73 20 63 68 65 63 6b 65 64 20 66 ┆rror message buffer is checked f┆
0x1040…1060 6f 72 20 6e 65 77 20 6f 6e 65 73 2e 0a 41 20 6e 6f 6e 2d 6e 69 6c 20 61 72 67 75 6d 65 6e 74 20 ┆or new ones. A non-nil argument ┆
0x1060…1080 28 70 72 65 66 69 78 20 61 72 67 2c 20 69 66 20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 6d 65 61 ┆(prefix arg, if interactive) mea┆
0x1080…10a0 6e 73 20 72 65 70 61 72 73 65 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 62 75 66 ┆ns reparse the error message buf┆
0x10a0…10c0 66 65 72 20 61 6e 64 20 73 74 61 72 74 20 61 74 20 74 68 65 20 66 69 72 73 74 20 65 72 72 6f 72 ┆fer and start at the first error┆
0x10c0…10e0 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆." (interactive "P") (byte-code ┆
0x10e0…1100 22 c4 88 08 c1 3d 86 09 00 0a 83 15 00 ca 20 88 cb 89 13 82 16 00 c4 88 08 83 1f 00 c4 82 2b 00 ┆" = + ┆
0x1100…1120 8a cc cd 21 88 ce c4 21 88 cf 20 29 88 08 40 1d 0d 3f 83 4f 00 d0 0e 06 0e 07 85 42 00 d1 0e 07 ┆ ! ! ) @ ? O B ┆
0x1120…1140 21 d2 3d 83 49 00 d3 82 4a 00 d4 50 21 82 50 00 c4 88 08 41 89 10 88 0d 41 40 3f 83 61 00 c4 82 ┆! = I J P! P A A@? a ┆
0x1140…1160 74 00 cc d5 0d 41 40 21 21 88 0d 41 40 62 88 d6 0d 41 40 c4 5c 22 88 c1 1e 08 d7 d5 0d 40 21 21 ┆t A@!! A@b A@ \" @!!┆
0x1160…1180 1e 09 d8 0e 09 0d 40 5c 22 88 d9 0e 09 0d 40 5c 22 2a 88 d6 0d 40 c4 5c 22 29 87 22 20 5b 63 6f ┆ @\" @\"* @ \") " [co┆
0x1180…11a0 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 6c 69 73 74 20 74 20 61 72 67 70 20 63 6f 6d 70 ┆mpilation-error-list t argp comp┆
0x11a0…11c0 69 6c 61 74 69 6f 6e 2d 70 61 72 73 69 6e 67 2d 65 6e 64 20 6e 69 6c 20 6e 65 78 74 2d 65 72 72 ┆ilation-parsing-end nil next-err┆
0x11c0…11e0 6f 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 63 6f 6d ┆or compilation-error-message com┆
0x11e0…1200 70 69 6c 61 74 69 6f 6e 2d 70 72 6f 63 65 73 73 20 70 6f 70 2d 75 70 2d 77 69 6e 64 6f 77 73 20 ┆pilation-process pop-up-windows ┆
0x1200…1220 77 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 6f 72 67 65 74 2d 65 72 72 6f 72 73 20 31 20 73 77 ┆w compilation-forget-errors 1 sw┆
0x1220…1240 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 22 2a 63 6f 6d 70 69 6c 61 74 69 6f 6e 2a 22 20 73 ┆itch-to-buffer "*compilation*" s┆
0x1240…1260 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 63 6f 6d 70 69 6c 61 74 69 6f 6e ┆et-buffer-modified-p compilation┆
0x1260…1280 2d 70 61 72 73 65 2d 65 72 72 6f 72 73 20 65 72 72 6f 72 20 70 72 6f 63 65 73 73 2d 73 74 61 74 ┆-parse-errors error process-stat┆
0x1280…12a0 75 73 20 72 75 6e 20 22 20 79 65 74 22 20 22 22 20 6d 61 72 6b 65 72 2d 62 75 66 66 65 72 20 73 ┆us run " yet" "" marker-buffer s┆
0x12a0…12c0 65 74 2d 6d 61 72 6b 65 72 20 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 73 65 74 2d 77 69 6e ┆et-marker display-buffer set-win┆
0x12c0…12e0 64 6f 77 2d 70 6f 69 6e 74 20 73 65 74 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 5d 20 31 36 29 29 ┆dow-point set-window-start] 16))┆
0x12e0…1300 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 66 6f 72 67 65 74 2d 65 72 72 6f ┆ (defun compilation-forget-erro┆
0x1300…1320 72 73 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c1 3d 83 0c 00 c2 89 10 82 0d 00 c2 ┆rs nil (byte-code " = ┆
0x1320…1340 88 08 85 35 00 08 40 1b c4 0b 40 c2 5c 22 88 0b 41 40 83 2a 00 c4 0b 41 40 c2 5c 22 82 2b 00 c2 ┆ 5 @ @ \" A@ * A@ \" + ┆
0x1340…1360 29 88 08 41 89 10 88 82 0e 00 87 22 20 5b 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d ┆) A " [compilation-error-┆
0x1360…1380 6c 69 73 74 20 74 20 6e 69 6c 20 6e 65 78 74 2d 65 72 72 6f 72 20 73 65 74 2d 6d 61 72 6b 65 72 ┆list t nil next-error set-marker┆
0x1380…13a0 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 61 72 73 65 2d ┆] 5)) (defun compilation-parse-┆
0x13a0…13c0 65 72 72 6f 72 73 20 6e 69 6c 20 22 5c 0a 50 61 72 73 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 ┆errors nil "\ Parse the current ┆
0x13c0…13e0 62 75 66 66 65 72 20 61 73 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2e 0a 54 68 69 73 20 6d ┆buffer as error messages. This m┆
0x13e0…1400 61 6b 65 73 20 61 20 6c 69 73 74 20 6f 66 20 65 72 72 6f 72 20 64 65 73 63 72 69 70 74 6f 72 73 ┆akes a list of error descriptors┆
0x1400…1420 2c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 6c 69 73 74 2e 0a 46 6f 72 20 65 61 ┆, compilation-error-list. For ea┆
0x1420…1440 63 68 20 73 6f 75 72 63 65 2d 66 69 6c 65 2c 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 70 61 69 72 ┆ch source-file, line-number pair┆
0x1440…1460 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2c 0a 74 68 65 20 73 6f 75 72 63 65 20 66 69 6c 65 20 ┆ in the buffer, the source file ┆
0x1460…1480 69 73 20 72 65 61 64 20 69 6e 2c 20 61 6e 64 20 74 68 65 20 74 65 78 74 20 6c 6f 63 61 74 69 6f ┆is read in, and the text locatio┆
0x1480…14a0 6e 20 69 73 20 73 61 76 65 64 20 69 6e 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d ┆n is saved in compilation-error-┆
0x14a0…14c0 6c 69 73 74 2e 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 6e 65 78 74 2d 65 72 72 6f 72 2c 20 61 ┆list. The function next-error, a┆
0x14c0…14e0 73 73 69 67 6e 65 64 20 74 6f 20 5c 5c 5b 6e 65 78 74 2d 65 72 72 6f 72 5d 2c 20 74 61 6b 65 73 ┆ssigned to \\[next-error], takes┆
0x14e0…1500 20 74 68 65 20 6e 65 78 74 20 65 72 72 6f 72 20 6f 66 66 20 74 68 65 20 6c 69 73 74 0a 61 6e 64 ┆ the next error off the list and┆
0x1500…1520 20 76 69 73 69 74 73 20 69 74 73 20 6c 6f 63 61 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 ┆ visits its location." (byte-cod┆
0x1520…1540 65 20 22 c1 89 10 88 cc cd 21 88 c1 c1 c1 1c 1b 1a 0d 62 88 6f 83 1b 00 ce cf 21 82 1c 00 c1 88 ┆e " ! b o ! ┆
0x1540…1560 d0 0e 06 c1 c7 23 85 16 01 c1 c1 c1 c1 1e 0b 1e 0a 1e 09 1e 08 8c d1 d2 d3 21 d4 d3 21 5c 22 88 ┆ # ! !\" ┆
0x1560…1580 64 62 88 d5 d6 21 88 68 d7 55 83 6c 00 d1 65 d8 20 54 5c 22 88 d9 20 88 da 0e 06 21 88 d5 db 21 ┆db ! h U l e T\" ! !┆
0x1580…15a0 88 d1 60 d4 d3 21 5c 22 88 64 62 88 d5 d6 21 82 6d 00 c1 88 dc d6 21 83 80 00 dd 70 21 89 16 08 ┆ ` !\" db ! m ! p! ┆
0x15a0…15c0 88 65 62 82 90 00 65 62 88 dd 70 21 89 16 08 88 64 62 88 d5 db 21 88 de 20 89 16 09 29 88 df 0e ┆ eb eb p! db ! ) ┆
0x15c0…15e0 09 0b 5c 22 85 a4 00 0e 08 0c 55 83 ab 00 c1 82 0d 01 e0 e1 21 88 e2 20 89 16 0a 88 df 0e 09 0b ┆ \" U ! ┆
0x15e0…1600 5c 22 3f 83 d2 00 e3 0e 09 89 13 21 85 cb 00 e4 0e 09 21 12 d3 89 14 82 d3 00 c1 88 0a 83 0c 01 ┆\"? ! ! ┆
0x1600…1620 8a 0a 71 88 e5 0c 21 83 eb 00 e1 62 88 e1 89 14 82 ec 00 c1 88 ce 0e 08 0c 5a 21 88 0e 08 89 14 ┆ q ! b Z! ┆
0x1620…1640 88 e2 20 89 16 0b 88 0e 0a 0e 0b 44 08 42 89 10 29 82 0d 01 c1 88 ce e1 21 2c 88 82 1d 00 88 64 ┆ D B ) !, d┆
0x1640…1660 89 15 2b 88 cc e6 21 88 e7 08 21 89 10 87 22 20 5b 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 ┆ + ! ! " [compilation-err┆
0x1660…1680 6f 72 2d 6c 69 73 74 20 6e 69 6c 20 74 65 78 74 2d 62 75 66 66 65 72 20 6c 61 73 74 2d 66 69 6c ┆or-list nil text-buffer last-fil┆
0x1680…16a0 65 6e 61 6d 65 20 6c 61 73 74 2d 6c 69 6e 65 6e 75 6d 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 70 ┆ename last-linenum compilation-p┆
0x16a0…16c0 61 72 73 69 6e 67 2d 65 6e 64 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 72 65 67 ┆arsing-end compilation-error-reg┆
0x16c0…16e0 65 78 70 20 74 20 6c 69 6e 65 6e 75 6d 20 66 69 6c 65 6e 61 6d 65 20 65 72 72 6f 72 2d 6d 61 72 ┆exp t linenum filename error-mar┆
0x16e0…1700 6b 65 72 20 74 65 78 74 2d 6d 61 72 6b 65 72 20 6d 65 73 73 61 67 65 20 22 50 61 72 73 69 6e 67 ┆ker text-marker message "Parsing┆
0x1700…1720 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2e 2e 2e 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 ┆ error messages..." forward-line┆
0x1720…1740 20 32 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 ┆ 2 re-search-forward narrow-to-r┆
0x1740…1760 65 67 69 6f 6e 20 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 ┆egion match-beginning 0 match-en┆
0x1760…1780 64 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 5b 30 2d 39 5d 22 20 34 30 ┆d skip-chars-backward "[0-9]" 40┆
0x1780…17a0 20 62 75 66 66 65 72 2d 73 69 7a 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 72 65 2d 73 65 61 72 ┆ buffer-size end-of-line re-sear┆
0x17a0…17c0 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5e 20 09 0a 22 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72 65 ┆ch-backward "^ " looking-at re┆
0x17c0…17e0 61 64 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 67 72 61 62 2d 66 69 6c 65 6e 61 6d 65 20 65 71 75 ┆ad compilation-grab-filename equ┆
0x17e0…1800 61 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 31 20 70 6f 69 6e 74 2d 6d 61 72 ┆al beginning-of-line 1 point-mar┆
0x1800…1820 6b 65 72 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 ┆ker file-exists-p find-file-nose┆
0x1820…1840 6c 65 63 74 20 7a 65 72 6f 70 20 22 50 61 72 73 69 6e 67 20 65 72 72 6f 72 20 6d 65 73 73 61 67 ┆lect zerop "Parsing error messag┆
0x1840…1860 65 73 2e 2e 2e 64 6f 6e 65 22 20 6e 72 65 76 65 72 73 65 5d 20 33 34 29 29 0a 0a 28 64 65 66 75 ┆es...done" nreverse] 34)) (defu┆
0x1860…1880 6e 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 67 72 61 62 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 ┆n compilation-grab-filename nil ┆
0x1880…18a0 22 5c 0a 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 77 68 69 63 68 20 69 73 20 61 20 66 69 ┆"\ Return a string which is a fi┆
0x18a0…18c0 6c 65 6e 61 6d 65 2c 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 49 67 6e 6f 72 ┆lename, starting at point. Ignor┆
0x18c0…18e0 65 20 71 75 6f 74 65 73 20 61 6e 64 20 70 61 72 65 6e 74 68 65 73 65 73 20 61 72 6f 75 6e 64 20 ┆e quotes and parentheses around ┆
0x18e0…1900 69 74 2c 20 61 73 20 77 65 6c 6c 20 61 73 20 74 72 61 69 6c 69 6e 67 20 63 6f 6c 6f 6e 73 2e 22 ┆it, as well as trailing colons."┆
0x1900…1920 20 28 62 79 74 65 2d 63 6f 64 65 20 22 67 c0 3d 83 1a 00 8c c1 60 c2 c3 21 88 60 5c 22 88 65 62 ┆ (byte-code "g = ` ! `\" eb┆
[…truncated at 200 lines…]