gnu1987/emacs18.41/lisp/compile.elc

(provide (quote compile))

(defvar compilation-process nil "\
Process created by compile command, or nil if none exists now.
Note that the process may have been \"deleted\" and still
be the value of this variable.")

(defvar compilation-error-list nil "\
List of error message descriptors for visiting erring functions.
Each error descriptor is a list of length two.
Its car is a marker pointing to an error message.
Its cadr is a marker pointing to the text of the line the message is about,
  or nil if that is not interesting.
The value may be t instead of a list;
this means that the buffer of error messages should be reparsed
the next time the list of errors is wanted.")

(defvar compilation-parsing-end nil "\
Position of end of buffer when last error messages parsed.")

(defvar compilation-error-message nil "\
Message to print when no more matches for compilation-error-regexp are found")

(defvar compilation-error-regexp "\\([^ 
]+\\(: *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+.*of *[^ 
]+\\)" "Regular expression for filename/linenumber in error in compilation log.")

(defun compile (command) "\
Compile the program including the current buffer.  Default: run make.
Runs COMMAND, a shell command, in a separate process asynchronously
with output going to the buffer *compilation*.
You can then use the command \\[next-error] to find the next error message
and move to the source code that caused it." (interactive (byte-code "ÁÂ\"C‡" [compile-command read-string "Compile command: "] 3)) (byte-code "ˆ	‰ˆÃÄ\"‡" [compile-command command nil compile1 "No more errors"] 3))

(defun grep (command) "\
Run grep, with user-specified args, and collect output in a buffer.
While grep runs asynchronously, you can use the \\[next-error] command
to find the text that grep hits refer to." (interactive "sRun grep (with args): ") (byte-code "ÁˆÂÃÄQÅÆ#‡" [command nil compile1 "grep -n " " /dev/null" "No more grep hits" "grep"] 4))

(defun compile1 (command error-message &optional name-of-mode) (byte-code "Ò ˆƒ#Ó!Ô=?†ÕÖ!ƒÁ×Ø�‚ ÙÚ!‚$ÁˆÁ‰ˆÛ ˆÃ‰ˆ
‰ˆÜÝÞßàP%‰ˆÞ�áâ!ˆá!ˆã ˆá!ˆã ‘ˆ
	ŠäÞ!ˆåÊ!ˆ	‰
))ˆæç\"ˆè!é!
p=ƒŽdb‚�ÁˆŠqˆê!ˆŠqˆe)ë
\"ˆ
ì =†¸í
\")ˆ‰ˆî ˆ†Éð‰)+‡" [compilation-process nil compilation-error-list t compilation-error-message error-message shell-file-name command default-directory regexp compilation-error-regexp thisdir outbuf outwin start mode-name name-of-mode mode-line-process save-some-buffers process-status run yes-or-no-p "A compilation process is running; kill it? " (byte-code "Á!ˆÂÃ!ˆÄ!‡" [compilation-process interrupt-process sit-for 1 delete-process] 4) ((error (byte-code "À‡" [nil] 1))) error "Cannot have two compilation processes" compilation-forget-errors start-process "compilation" "*compilation*" "-c" "exec " princ "cd " terpri switch-to-buffer make-local-variable set-process-sentinel compilation-sentinel process-buffer get-buffer-window buffer-flush-undo set-window-start selected-window set-window-point fundamental-mode "Compilation" (": %s")] 23))

(defun compilation-sentinel (proc msg) (byte-code "ÉÊ!!?ƒËÁ\"‚aÌ!Í>…apd`ÎŽÊ!qˆdbˆÏÐ
Ñ$ˆÒÓ!ˆÏÔÕ Ö×O\"ˆÒØ!ˆÙÚÌ!!P‰ˆÛ!)ˆWƒ\\b‚]Áˆ
q+‡" [proc nil obuf omax opoint mode-name msg mode-line-process compilation-process buffer-name process-buffer set-process-buffer process-status (signal exit) ((byte-code "Á‰ˆÂà !‡" [compilation-process nil set-buffer-modified-p buffer-modified-p] 3)) insert 10 " " forward-char -1 " at " current-time-string 0 -5 1 ": " symbol-name delete-process] 15))

(defun kill-compilation nil "\
Kill the process made by the \\[compile] command." (interactive) (byte-code "ÁˆƒÂ!‚
Á‡" [compilation-process nil interrupt-process] 2))

(defun kill-grep nil "\
Kill the process made by the \\[grep] command." (interactive) (byte-code "ÁˆƒÂ!‚
Á‡" [compilation-process nil interrupt-process] 2))

(defun next-error (&optional argp) "\
Visit next compilation error message and corresponding source code.
This operates on the output from the \\[compile] command.
If all preparsed error messages have been processed,
the error message buffer is checked for new ones.
A non-nil argument (prefix arg, if interactive)
means reparse the error message buffer and start at the first error." (interactive "P") (byte-code "ĈÁ=†	
ƒÊ ˆË‰‚ĈƒÄ‚+ŠÌÍ!ˆÎÄ!ˆÏ )ˆ@
?ƒOÐ…BÑ!Ò=ƒIÓ‚JÔP!‚PĈA‰ˆ
A@?ƒaÄ‚tÌÕ
A@!!ˆ
A@bˆÖ
A@Ä\"ˆÁ×Õ
@!!	Ø	
@\"ˆÙ	
@\"*ˆÖ
@Ä\")‡" [compilation-error-list t argp compilation-parsing-end nil next-error compilation-error-message compilation-process pop-up-windows w compilation-forget-errors 1 switch-to-buffer "*compilation*" set-buffer-modified-p compilation-parse-errors error process-status run " yet" "" marker-buffer set-marker display-buffer set-window-point set-window-start] 16))

(defun compilation-forget-errors nil (byte-code "Á=ƒ‰‚
ˆ…5@Ä@Â\"ˆA@ƒ*ÄA@Â\"‚+Â)ˆA‰ˆ‚‡" [compilation-error-list t nil next-error set-marker] 5))

(defun compilation-parse-errors nil "\
Parse the current buffer as error messages.
This makes a list of error descriptors, compilation-error-list.
For each source-file, line-number pair in the buffer,
the source file is read in, and the text location is saved in compilation-error-list.
The function next-error, assigned to \\[next-error], takes the next error off the list
and visits its location." (byte-code "Á‰ˆÌÍ!ˆÁÁÁ
bˆoƒÎÏ!‚ÁˆÐÁÇ#…
ÁÁÁÁ
	ŒÑÒÓ!ÔÓ!\"ˆdbˆÕÖ!ˆh×UƒlÑeØ T\"ˆÙ ˆÚ!ˆÕÛ!ˆÑ`ÔÓ!\"ˆdbˆÕÖ!‚mÁˆÜÖ!ƒ€Ýp!‰ˆeb‚�ebˆÝp!‰ˆdbˆÕÛ!ˆÞ ‰	)ˆß	\"…¤Uƒ«Á‚

àá!ˆâ ‰
ˆß	\"?ƒÒã	‰!…Ëä	!Ó‰‚ÓÁˆ
ƒ
Š
qˆå!ƒëábˆá‰‚ìÁˆÎZ!ˆ‰ˆâ ‰ˆ
DB‰)‚

ÁˆÎá!,ˆ‚ˆd‰+ˆÌæ!ˆç!‰‡" [compilation-error-list nil text-buffer last-filename last-linenum compilation-parsing-end compilation-error-regexp t linenum filename error-marker text-marker message "Parsing error messages..." forward-line 2 re-search-forward narrow-to-region match-beginning 0 match-end skip-chars-backward "[0-9]" 40 buffer-size end-of-line re-search-backward "^ 	
" looking-at read compilation-grab-filename equal beginning-of-line 1 point-marker file-exists-p find-file-noselect zerop "Parsing error messages...done" nreverse] 34))

(defun compilation-grab-filename nil "\
Return a string which is a filename, starting at point.
Ignore quotes and parentheses around it, as well as trailing colons." (byte-code "gÀ=ƒŒÁ`ÂÃ!ˆ`\"ˆebˆÄp!)‚\"Å`ÆÇ!ˆ`\"‡" [34 narrow-to-region forward-sexp 1 read buffer-substring skip-chars-forward "^ :,
	("] 7))

(define-key ctl-x-map "`" (quote next-error))