;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:50:32 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/progmodes/compile.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`compile.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'compilation nil "Run compiler as inferior of Emacs, parse error messages." :group 'tools :group 'processes) #@70 *List of hook functions run by `compilation-mode' (see `run-hooks'). (custom-declare-variable 'compilation-mode-hook 'nil '(#$ . -757) :type 'hook :group 'compilation) #@71 *Number of lines in a compilation window. If nil, use Emacs default. (custom-declare-variable 'compilation-window-height 'nil '(#$ . -931) :type '(choice (const :tag "Default" nil) integer) :group 'compilation) #@577 *Specify how many compiler errors to highlight (and parse) initially. (Highlighting applies to an error message when the mouse is over it.) If this is a number N, all compiler error messages in the first N lines are highlighted and parsed as soon as they arrive in Emacs. If t, highlight and parse the whole compilation output as soon as it arrives. If nil, don't highlight or parse any of the buffer until you try to move to the error messages. Those messages which are not parsed and highlighted initially will be parsed and highlighted as soon as you try to move to them. (custom-declare-variable 'compile-auto-highlight 'nil '(#$ . -1150) :type '(choice (const :tag "All" t) (const :tag "None" nil) (integer :tag "First N lines")) :group 'compilation) (defalias 'grep-compute-defaults #[nil "\204\306\307\310\217\311\232\203\312\313 \"\202\312\314 \"\n\204<\315\316\306\211\211 \317&\320\232\205;\315\321\306\211\211\322\323\324&\320\232\205;\325\f?\205h\n\325=\203O\312\326 #\202f\n\203[\312\327 #\202f\312\330  $G\331\\B\211\207" [grep-command grep-program grep-find-use-xargs null-device grep-find-command find-program nil (byte-code "\302\303\211\211\304\305 &\207" [grep-program null-device call-process nil "-e" "foo"] 8) ((error)) 1 format "%s -n -e " "%s -n " call-process "find" "-print0" 0 "xargs" "-0" "-e" "echo" gnu "%s . -type f -print0 | xargs -0 -e %s" "%s . -type f -print | xargs %s" "%s . -type f -exec %s {} %s \\;" 22] 8]) #@175 The default grep command for \[grep]. The default value of this variable is set up by `grep-compute-defaults'; call that function before using this variable in your program. (custom-declare-variable 'grep-command 'nil '(#$ . 2632) :type 'string :get '(lambda (symbol) (or grep-command (progn (grep-compute-defaults) grep-command))) :group 'compilation) #@180 The default find command for \[grep-find]. The default value of this variable is set up by `grep-compute-defaults'; call that function before using this variable in your program. (custom-declare-variable 'grep-find-command 'nil '(#$ . 2992) :type 'string :get (lambda (symbol) (or grep-find-command (progn (grep-compute-defaults) grep-find-command))) :group 'compilation) #@744 List of error message descriptors for visiting erring functions. Each error descriptor is a cons (or nil). Its car is a marker pointing to an error message. If its cdr is a marker, it points to the text of the line the message is about. If its cdr is a cons, it is a list ((DIRECTORY . FILE) LINE [COLUMN]). Or its cdr may be nil if that error 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. Some other commands (like `diff') use this list to control the error message tracking facilities; if you change its structure, you should make sure you also change those packages. Perhaps it is better not to change it at all. (defvar compilation-error-list nil (#$ . 3371)) #@61 Value of `compilation-error-list' after errors were parsed. (defvar compilation-old-error-list nil (#$ . 4168)) #@439 Function to call to parse error messages from a compilation. It takes args LIMIT-SEARCH and FIND-AT-LEAST. If LIMIT-SEARCH is non-nil, don't bother parsing past that location. If FIND-AT-LEAST is non-nil, don't bother parsing after finding that many new errors. It should read in the source files which have errors and set `compilation-error-list' to a list with an element for each error message found. See that variable for more info. (defvar compilation-parse-errors-function 'compilation-parse-errors (#$ . 4287)) #@207 Function to call to post-process filenames while parsing error messages. It takes one arg FILENAME which is the name of a file as found in the compilation output, and should return a transformed file name. (defvar compilation-parse-errors-filename-function nil (#$ . 4813)) #@257 *Function to call to customize the compilation process. This functions is called immediately before the compilation process is started. It can be used to set any variables or functions that are used while processing the output of the compilation process. (defvar compilation-process-setup-function nil (#$ . -5094)) #@247 Function to compute the name of a compilation buffer. The function receives one argument, the name of the major mode of the compilation buffer. It should return a string. nil means compute the name with `(concat "*" (downcase major-mode) "*")'. (defvar compilation-buffer-name-function nil (#$ . 5418)) #@162 Function to call when a compilation process finishes. It is called with two arguments: the compilation buffer, and a string describing how the process finished. (defvar compilation-finish-function nil (#$ . 5729)) #@174 Functions to call when a compilation process finishes. Each function is called with two arguments: the compilation buffer, and a string describing how the process finished. (defvar compilation-finish-functions nil (#$ . 5950)) #@162 The most recent compilation buffer. A buffer becomes most recent when its compilation is started or when it is used with \[next-error] or \[compile-goto-error]. (defvar compilation-last-buffer nil (#$ . 6184)) #@44 List of compilation processes now running. (defvar compilation-in-progress nil (#$ . 6400)) (byte-code "\301\236\204\n\302B\301\207" [minor-mode-alist compilation-in-progress (compilation-in-progress " Compiling")] 2) #@72 Marker position of end of buffer when last error messages were parsed. (defvar compilation-parsing-end nil (#$ . 6628)) #@50 Message to print when no more matches are found. (defvar compilation-error-message "No more errors" (#$ . 6754)) #@50 Arguments that were given to `compile-internal'. (defvar compilation-arguments nil (#$ . 6873)) (byte-code "\301B\301\207" [current-load-list compilation-num-errors-found] 2) #@526 Alist that specifies how to match errors in compiler output. Each elt has the form (REGEXP FILE-IDX LINE-IDX [COLUMN-IDX FILE-FORMAT...]) If REGEXP matches, the FILE-IDX'th subexpression gives the file name, and the LINE-IDX'th subexpression gives the line number. If COLUMN-IDX is given, the COLUMN-IDX'th subexpression gives the column number on that line. If any FILE-FORMAT is given, each is a format string to produce a file name to try; %s in the string is replaced by the text matching the FILE-IDX'th subexpression. (defvar compilation-error-regexp-alist '(("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)?\\([a-zA-Z]?:?[^:( \n]*[^:( \n0-9][^:( \n]*\\)[:(][ ]*\\([0-9]+\\)\\([) ]\\|:\\(\\([0-9]+:\\)\\|[0-9]*[^:0-9]\\)\\)" 2 3 6) ("\\(\\([a-zA-Z]:\\)?[^:( \n]+\\)(\\([0-9]+\\)) : \\(error\\|warning\\) C[0-9]+:" 1 3) ("\\(Error\\|Warning\\) \\(\\([FEW][0-9]+\\) \\)?\\([a-zA-Z]?:?[^:( \n]+\\) \\([0-9]+\\)\\([) ]\\|:[^0-9\n]\\)" 4 5) (".*[ :]\\([a-zA-Z]?:?[^:( \n]+\\)[:(](+[ ]*\\([0-9]+\\))[:) ]*$" 1 2) (".*([ ]*\\([a-zA-Z]?:?[^:( \n]+\\)[:(][ ]*\\([0-9]+\\))" 1 2) ("[^\n ]+ (\\([0-9]+\\)) in \\([^ \n]+\\)" 2 1) (".*in \\([^(\n]+\\)(\\([0-9]+\\))$" 1 2) ("\\(cfe\\|fort\\): [^:\n]*: \\([^ \n]*\\), line \\([0-9]+\\):" 2 3) ("\\(.* on \\)?[Ll]ine[ ]+\\([0-9]+\\)[ ]+of[ ]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2) (".*\"\\([^,\" \n ]+\\)\", lines? \\([0-9]+\\)\\([(.]\\([0-9]+\\))?\\)?[:., (-]" 1 2 4) ("^File \"\\([^,\" \n ]+\\)\", lines? \\([0-9]+\\)[-0-9]*, characters? \\([0-9]+\\)" 1 2 3) ("[a-z0-9/]+: \\([eE]rror\\|[wW]arning\\): \\([^,\" \n ]+\\)[,:] \\(line \\)?\\([0-9]+\\):" 2 4) (".*in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) (" +\\([0-9]+\\) +.*\n[ew] [0-9]+-+" nil 1) ("[Ew] +[0-9]+ line \\([0-9]+\\) - " nil 1) ("[EW], \\([^(\n]*\\)(\\([0-9]+\\),[ ]*\\([0-9]+\\)" 1 2 3) ("\\(cc\\| cft\\)-[0-9]+ c\\(c\\|f77\\): ERROR \\([^,\n]+, \\)* File = \\([^,\n]+\\), Line = \\([0-9]+\\)" 4 5) ("\\([^( \n ]+\\)(\\([0-9]+\\):\\([0-9]+\\)) : " 1 2 3) ("\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(Error\\|Warning\\)\\[[0-9]+\\]:" 1 2) ("\\([^, \n ]+\\), line \\([0-9]+\\), char \\([0-9]+\\)[:., (-]" 1 2 3) (".* at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 1 2) ("Semantic error at line \\([0-9]+\\), column \\([0-9]+\\), file \\(.*\\):" 3 1 2) ("Error [0-9]+ at (\\([0-9]*\\):\\([^)\n]+\\))" 2 1) (".*: ERROR File = \\(.+\\), Line = \\([0-9]+\\)" 1 2) (".*: WARNING File = \\(.+\\), Line = \\([0-9]+\\)" 1 2) (".* ERROR [a-zA-Z0-9 ]+, File = \\(.+\\), Line = \\([0-9]+\\), Column = \\([0-9]+\\)" 1 2 3)) (#$ . 7057)) #@310 Alist specifying how to match lines that indicate a new current directory. Note that the match is done at the beginning of lines. Each elt has the form (REGEXP IDX). If REGEXP matches, the IDX'th subexpression gives the directory name. The default value matches lines printed by the `-w' option of GNU Make. (defvar compilation-enter-directory-regexp-alist '((".*: Entering directory `\\(.*\\)'$" 1)) (#$ . 9604)) #@457 Alist specifying how to match lines that indicate restoring current directory. Note that the match is done at the beginning of lines. Each elt has the form (REGEXP IDX). If REGEXP matches, the IDX'th subexpression gives the name of the directory being moved from. If IDX is nil, the last directory entered (by a line matching `compilation-enter-directory-regexp-alist') is assumed. The default value matches lines printed by the `-w' option of GNU Make. (defvar compilation-leave-directory-regexp-alist '((".*: Leaving directory `\\(.*\\)'$" 1)) (#$ . 10026)) #@310 Alist specifying how to match lines that indicate a new current file. Note that the match is done at the beginning of lines. Each elt has the form (REGEXP IDX). If REGEXP matches, the IDX'th subexpression gives the file name. This is used with compilers that don't indicate file name in every error message. (defvar compilation-file-regexp-alist '(("\\w\\w\\w \\w\\w\\w +[0-9]+ [0-9][0-9]:[0-9][0-9]:[0-9][0-9] [0-9][0-9][0-9][0-9] \\(.*\\):$" 1)) (#$ . 10595)) #@259 Alist specifying how to match lines that have no message. Note that the match is done at the beginning of lines. Each elt has the form (REGEXP). This alist is by default empty, but if you have some good regexps here, the parsing of messages will be faster. (defvar compilation-nomessage-regexp-alist nil (#$ . 11066)) #@335 *If non-nil, column numbers in error messages are screen columns. Otherwise they are interpreted as character positions, with each character occupying one column. The default is to use screen columns, which requires that the compilation program and Emacs agree about the display width of the characters, especially the TAB character. (custom-declare-variable 'compilation-error-screen-columns 't '(#$ . -11392) :type 'boolean :group 'compilation :version "20.4") #@129 *Non-nil means \[compile] reads the compilation command to use. Otherwise, \[compile] just uses the value of `compile-command'. (custom-declare-variable 'compilation-read-command 't '(#$ . -11862) :type 'boolean :group 'compilation) #@129 *Non-nil means \[compile] asks which buffers to save before compiling. Otherwise, it saves all modified buffers without asking. (custom-declare-variable 'compilation-ask-about-save 't '(#$ . -12102) :type 'boolean :group 'compilation) #@72 Regexp used to match grep hits. See `compilation-error-regexp-alist'. (defvar grep-regexp-alist '(("\\([a-zA-Z]?:?[^:( \n]+\\)[:( ]+\\([0-9]+\\)[:) ]" 1 2)) (#$ . 12343)) #@145 The default grep program for `grep-command' and `grep-find-command'. This variable's value takes effect when `grep-compute-defaults' is called. (defvar grep-program "grep" (#$ . 12524)) #@126 The default find program for `grep-find-command'. This variable's value takes effect when `grep-compute-defaults' is called. (defvar find-program "find" (#$ . 12717)) #@276 Whether \[grep-find] uses the `xargs' utility by default. If nil, it uses `find -exec'; if `gnu', it uses `find -print0' and `xargs -0'; if not nil and not `gnu', it uses `find -print' and `xargs'. This variable's value takes effect when `grep-compute-defaults' is called. (defvar grep-find-use-xargs nil (#$ . 12891)) #@195 *List of directories to search for source files named in error messages. Elements should be directory names, not file names of directories. nil as an element means to try the default directory. (custom-declare-variable 'compilation-search-path ''(nil) '(#$ . -13219) :type '(repeat (choice (const :tag "Default" nil) (string :tag "Directory"))) :group 'compilation) #@476 *Last shell command used to do a compilation; default for next compilation. Sometimes it is useful for files to supply local values for this variable. You might also use mode hooks to specify it in certain modes, like this: (add-hook 'c-mode-hook (lambda () (unless (or (file-exists-p "makefile") (file-exists-p "Makefile")) (set (make-local-variable 'compile-command) (concat "make -k " (file-name-sans-extension buffer-file-name)))))) (custom-declare-variable 'compile-command '"make -k " '(#$ . -13592) :type 'string :group 'compilation) #@139 Stack of previous directories for `compilation-leave-directory-regexp'. The last element is the directory the compilation was started in. (defvar compilation-directory-stack nil (#$ . 14178)) #@294 If non-nil, called when a compilation process dies to return a status message. This should be a function of three arguments: process status, exit status, and exit message; it returns a cons (MESSAGE . MODELINE) of the strings to write into the compilation buffer, and to put in its mode line. (defvar compilation-exit-message-function nil (#$ . 14377)) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\305\303B\304\303!\204$\305\305\207" [current-load-list compile-history grep-history grep-find-history boundp nil] 2) #@54 Return expressions to highlight in Compilation mode. (defalias 'compilation-mode-font-lock-keywords #[nil "\301\302\"\303C\244\207" [compilation-error-regexp-alist mapcar #[(item) "A@\3058\3068\307\n\247\203\nT\310\307\311F B \247\203( T\312D B\f\247\2034\fT\313D B\314@\315Q ,B\207" [item keyword col-idx line-idx file-idx 2 3 nil font-lock-type-face t font-lock-variable-name-face font-lock-warning-face "^\\(" "\\)"] 4] ("^\\([A-Za-z_0-9/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ ]*:" (1 font-lock-function-name-face) (3 font-lock-comment-face nil t))] 3 (#$ . 14921)]) #@799 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. Interactively, prompts for the command if `compilation-read-command' is non-nil; otherwise uses `compile-command'. With prefix arg, always prompts. To run more than one compilation at once, start one and rename the `*compilation*' buffer to some other name with \[rename-buffer]. Then start the next one. The name used for the buffer is actually whatever is returned by the function in `compilation-buffer-name-function', so you can set that to a function that generates a unique name. (defalias 'compile #[(command) "\303 !\232\204\n\304\n?\305\"\210\306\307\"\207" [command compile-command compilation-ask-about-save eval save-some-buffers nil compile-internal "No more errors"] 3 (#$ . 15511) (byte-code "\204 \203\303\304\305\n!\306\211\307%C\207\305\n!C\207" [compilation-read-command current-prefix-arg compile-command read-from-minibuffer "Compile command: " eval nil (compile-history . 1)] 6)]) #@54 Re-compile the program including the current buffer. (defalias 'recompile #[nil "\302?\303\"\210\304\305 !\306\"\207" [compilation-ask-about-save compile-command save-some-buffers nil compile-internal eval "No more errors"] 3 (#$ . 16742) nil]) #@56 Set up `compilation-exit-message-function' for `grep'. (defalias 'grep-process-setup #[nil "\300\301!\302L\207" [make-local-variable compilation-exit-message-function #[(status code msg) "\303=\203\304 !\203\305\207 \306U\203\307\207\n B\207\n B\207" [status code msg exit zerop ("finished (matches found)\n" . "matched") 1 ("finished with no matches found\n" . "no match")] 2]] 2 (#$ . 16994)]) #@598 Run grep, with user-specified args, and collect output in a buffer. While grep runs asynchronously, you can use \[next-error] (M-x next-error), or \\[compile-goto-error] in the grep output buffer, to go to the lines where grep found matches. This command uses a special history list for its COMMAND-ARGS, so you can easily repeat a grep command. A prefix argument says to default the argument based upon the current tag the cursor is over, substituting it into the last grep command in the grep command history (or into `grep-command' if that history list is empty). (defalias 'grep #[(command-args) "\304\305 \203\n\306 Q\202\n\307\310\311 %\210)\311\207" [compilation-process-setup-function null-device command-args grep-regexp-alist grep-process-setup compile-internal " " "No more grep hits" "grep" nil] 6 (#$ . 17404) (let (grep-default (arg current-prefix-arg)) (unless grep-command (grep-compute-defaults)) (when arg (let ((tag-default (funcall (or find-tag-default-function (get major-mode 'find-tag-default-function) 'grep-tag-default)))) (setq grep-default (or (car grep-history) grep-command)) (when (string-match "[^ ]+\\s +\\(-[^ ]+\\s +\\)*\\(\"[^\"]+\"\\|[^ ]+\\)\\(\\s-+\\S-+\\)?" grep-default) (unless (or (match-beginning 3) (not (stringp buffer-file-name))) (setq grep-default (concat grep-default "*." (file-name-extension buffer-file-name)))) (setq grep-default (replace-match (or tag-default "") t t grep-default 2))))) (list (read-from-minibuffer "Run grep (like this): " (or grep-default grep-command) nil nil 'grep-history)))]) (defalias 'grep-tag-default #[nil "\212\300\301!\203 \302u\210\202\303\301\212\304 \210`)\305#\204'\306\307\212\310\210`)\305#\205>\311\225b\210`\312\313!\210\300\314!\203<\302u\210\2020`{)\207" [looking-at "\\sw\\|\\s_" 1 re-search-backward beginning-of-line t re-search-forward "\\(\\sw\\|\\s_\\)+" nil 0 forward-sexp -1 "\\s'"] 4]) #@301 Run grep via find, with user-specified args COMMAND-ARGS. Collect output in a buffer. While find runs asynchronously, you can use the \[next-error] command to find the text that grep hits refer to. This command uses a special history list for its arguments, so you can easily repeat a find command. (defalias 'grep-find #[(command-args) "\302\303 !)\207" [null-device command-args nil grep] 2 (#$ . 19342) (byte-code "\204\301 \210\302\303\304\211\305%C\207" [grep-find-command grep-compute-defaults read-from-minibuffer "Run find (like this): " nil grep-find-history] 6)]) #@241 *Non-nil to scroll the *compilation* buffer window as output appears. Setting it causes the compilation-mode commands to put point at the end of their output window so that the end of the output is always visible rather than the begining. (custom-declare-variable 'compilation-scroll-output 'nil '(#$ . -19929) :type 'boolean :version "20.3" :group 'compilation) #@1189 Run compilation command COMMAND (low level interface). ERROR-MESSAGE is a string to print if the user asks to see another error and there are no more errors. The rest of the arguments, 3-10 are optional. For them nil means use the default. NAME-OF-MODE is the name to display as the major mode in the compilation buffer. PARSER is the error parser function. ERROR-REGEXP-ALIST is the error message regexp alist to use. NAME-FUNCTION is a function called to name the buffer. ENTER-REGEXP-ALIST is the enter directory message regexp alist to use. LEAVE-REGEXP-ALIST is the leave directory message regexp alist to use. FILE-REGEXP-ALIST is the change current file message regexp alist to use. NOMESSAGE-REGEXP-ALIST is the nomessage regexp alist to use. The defaults for these variables are the global values of `compilation-parse-errors-function', `compilation-error-regexp-alist', `compilation-buffer-name-function', `compilation-enter-directory-regexp-alist', `compilation-leave-directory-regexp-alist', `compilation-file-regexp-alist', and `compilation-nomessage-regexp-alist', respectively. For arg 7-10 a value `t' means an empty alist. Returns the compilation buffer created. (defalias 'compile-internal #[(command error-message &optional name-of-mode parser error-regexp-alist name-function enter-regexp-alist leave-regexp-alist file-regexp-alist nomessage-regexp-alist) "\306\212 \204 \307\310\n\206 \206\311 !!\211q\210\312p!\211\203A\313\f!\314=\2033\315\316\317 \"!\203;\306\320\321\217\210\202A\322\323\324 \"\210)\325 \210) \204M\"@\204V#@A\204_$AB\204h%BC\204q&CD\204z DE\306FG\212q\210\306H\326p!\210\327 \210\330p!\210GE\331G\332I\332\261\210\333\306!\210)p=\203\257db\210\334\306\335#F\212q\210\336 !\210\337\340!DL\210\337\341!JL\210\337\342! L\210\337\343!@L\210\337\344!AL\210\337\345!BL\210\337\346!CL\210\337\347!IJ D \n@ABC\257\nL\210\337\350!\335L\210G\211ECK\351Fe\"\210F\352 =\204(\353Fe\"\210\354F!\210L\2036L \210\355\356!\203\227\357\360\361!\203S1\203S\362\363\316\364\365 \"E\202Z\366\316\367\365 \"D\370\371!\203eM\202i\372MB\"M\373N\227I#O\374O\375\"\210\376O\377\"\210\201WO!`\223\210OPBP*\202\201X\201YI\"\210\201ZQ\201[ \210\201\\\201]!\210\201^R\306\306\201_I&\211S\247\203\354\201`\201aS\201bS!\203\340\201c\202\347\316\201dS\"#\210\202 S;\203\201`\201eS\211\332P#\210\202 \201`\201fS\211#\210)\201X\201gI\"\210)T\2031\352 U\201h\216\201iF!\210db\210**\211V)\207" [outbuf name-of-mode name-function compilation-buffer-name-function comp-proc error-regexp-alist nil "Compilation" get-buffer-create #[(mode) "\301\227\301Q\207" [mode "*"] 3] get-buffer-process process-status run yes-or-no-p format "A %s process is running; kill it? " (byte-code "\301!\210\302\303!\210\304!\207" [comp-proc interrupt-process sit-for 1 delete-process] 2) ((error)) error "Cannot have two processes in `%s' at once" buffer-name kill-all-local-variables buffer-disable-undo erase-buffer buffer-enable-undo "cd " "\n" set-buffer-modified-p display-buffer t compilation-mode make-local-variable compilation-parse-errors-function compilation-error-message compilation-error-regexp-alist compilation-enter-directory-regexp-alist compilation-leave-directory-regexp-alist compilation-file-regexp-alist compilation-nomessage-regexp-alist compilation-arguments lazy-lock-defer-on-scrolling set-window-start selected-window set-window-point compilation-set-window-height fboundp start-process append boundp system-uses-terminfo "TERM=dumb" "TERMCAP=" "COLUMNS=%d" window-width "TERM=emacs" "TERMCAP=emacs:co#%d:tc=unknown:" getenv "EMACS" "EMACS=t" start-process-shell-command set-process-sentinel compilation-sentinel set-process-filter compilation-filter enter-regexp-alist leave-regexp-alist file-regexp-alist nomessage-regexp-alist parser default-directory outwin thisdir buffer-read-only command error-message compilation-directory-stack compilation-process-setup-function process-environment mode-name proc compilation-in-progress mode-line-process shell-file-name status compilation-scroll-output save-selected-window-window compilation-last-buffer process-mark message "Executing `%s'..." ":run" force-mode-line-update sit-for 0 call-process "-c" compilation-handle-exit exit zerop "finished\n" "exited abnormally with code %d\n" signal bizarre "Executing `%s'...done" ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) select-window] 12 (#$ . 20301)]) #@68 Set the height of WINDOW according to `compilation-window-height'. (defalias 'compilation-set-window-height #[(window) "\205,\303 !\304\305 !!U\205, \306\305 !!=?\205,\212\307 \310\216\311 !\210\312\313 Z!+\207" [compilation-window-height window w window-width frame-width window-frame frame-root-window selected-window ((byte-code "\301!\203\n\302!\210\301\207" [w window-live-p select-window] 2)) select-window enlarge-window window-height] 4 (#$ . 24890)]) #@38 Keymap for `compilation-minor-mode'. (defvar compilation-minor-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210)\207" [map make-sparse-keymap define-key [mouse-2] compile-mouse-goto-error "" compile-goto-error " " " " kill-compilation "\356" compilation-next-error "\360" compilation-previous-error "\373" compilation-previous-file "\375" compilation-next-file] 4) (#$ . 25365)) #@44 Keymap for `compilation-shell-minor-mode'. (defvar compilation-shell-minor-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320\301\320!B#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210)\207" [map make-sparse-keymap define-key [mouse-2] compile-mouse-goto-error "\215" compile-goto-error "\216" compilation-next-error "\220" compilation-previous-error "\373" compilation-previous-file "\375" compilation-next-file [menu-bar errors-menu] "Errors" [menu-bar errors-menu stop-subjob] ("Stop" . comint-interrupt-subjob) [menu-bar errors-menu compilation-mode-separator2] ("----") [menu-bar errors-menu compilation-mode-first-error] ("First Error" . first-error) [menu-bar errors-menu compilation-mode-previous-error] ("Previous Error" . previous-error) [menu-bar errors-menu compilation-mode-next-error] ("Next Error" . next-error)] 6) (#$ . 25877)) #@84 Keymap for compilation log buffers. `compilation-minor-mode-map' is a cdr of this. (defvar compilation-mode-map (byte-code "\302B\303 \304\305#\210\303 \306\307#\210\303 \310\311\312\311!B#\210\303 \313\314#\210\303 \315\316#\210\303 \317\320#\210\303 \321\322#\210\303 \323\324#\210\303 \325\326#\210\303 \327\330#\210\303 \331\332#\210\303 \333\334#\210 )\207" [compilation-minor-mode-map map keymap define-key " " scroll-up "" scroll-down [menu-bar compilation-menu] "Compile" make-sparse-keymap [menu-bar compilation-menu compilation-mode-kill-compilation] ("Stop Compilation" . kill-compilation) [menu-bar compilation-menu compilation-mode-separator2] ("----") [menu-bar compilation-menu compilation-mode-first-error] ("First Error" . first-error) [menu-bar compilation-menu compilation-mode-previous-error] ("Previous Error" . previous-error) [menu-bar compilation-menu compilation-mode-next-error] ("Next Error" . next-error) [menu-bar compilation-menu compilation-separator2] ("----") [menu-bar compilation-menu compilation-mode-grep] ("Search Files (grep)" . grep) [menu-bar compilation-menu compilation-mode-recompile] ("Recompile" . recompile) [menu-bar compilation-menu compilation-mode-compile] ("Compile..." . compile)] 6) (#$ . 26873)) (put 'compilation-mode 'mode-class 'special) #@291 Major mode for compilation log buffers. \To visit the source for a line-numbered error, move point to the error message line and type \[compile-goto-error]. To kill the compilation, type \[kill-compilation]. Runs `compilation-mode-hook' with `run-hooks' (which see). (defalias 'compilation-mode #[(&optional name-of-mode) "\304 \210\305!\210\306\n\206\307\310 \210\311\312!\313L\210\311\314!\315L\210\316\317!\207" [compilation-mode-map major-mode name-of-mode mode-name kill-all-local-variables use-local-map compilation-mode "Compilation" compilation-setup make-local-variable font-lock-defaults (compilation-mode-font-lock-keywords t) revert-buffer-function compilation-revert-buffer run-hooks compilation-mode-hook] 2 (#$ . 28179) nil]) (defalias 'compilation-revert-buffer #[(ignore-auto noconfirm) "\204\f\302\303\304!!\205\305\306 \"\207" [noconfirm compilation-arguments yes-or-no-p format "Restart compilation? " apply compile-internal] 3]) #@66 Prepare the buffer for the compilation parsing commands to work. (defalias 'compilation-setup #[nil "\303\304\305!\306L\210\304\307!\306L\210\304\310!\311\312!L\210\304\313! CL\210\304\314!\210p\211\207" [mode-line-process default-directory compilation-last-buffer (":%s") make-local-variable compilation-error-list nil compilation-old-error-list compilation-parsing-end copy-marker 1 compilation-directory-stack compilation-error-screen-columns] 3 (#$ . 29167)]) #@198 Non-nil when in `compilation-shell-minor-mode'. In this minor mode, all the error-parsing commands of the Compilation major mode are available but bound to keys that don't collide with Shell mode. (defvar compilation-shell-minor-mode nil (#$ . 29640)) (byte-code "\303\304!\210\304\236\204\305B\304 \236\204\304\nB B\303\207" [minor-mode-alist minor-mode-map-alist compilation-shell-minor-mode-map make-variable-buffer-local compilation-shell-minor-mode (compilation-shell-minor-mode " Shell-Compile")] 2) #@139 Non-nil when in `compilation-minor-mode'. In this minor mode, all the error-parsing commands of the Compilation major mode are available. (defvar compilation-minor-mode nil (#$ . 30161)) (byte-code "\303\304!\210\304\236\204\305B\304 \236\204\304\nB B\303\207" [minor-mode-alist minor-mode-map-alist compilation-minor-mode-map make-variable-buffer-local compilation-minor-mode (compilation-minor-mode " Compilation")] 2) #@207 Toggle compilation shell minor mode. With arg, turn compilation mode on if and only if arg is positive. See `compilation-mode'. Turning the mode on runs the normal hook `compilation-shell-minor-mode-hook'. (defalias 'compilation-shell-minor-mode #[(&optional arg) "\204 ?\202\303!\304V\211\205\305\306 \210\307\310!)\207" [arg compilation-shell-minor-mode mode-line-process prefix-numeric-value 0 nil compilation-setup run-hooks compilation-shell-minor-mode-hook] 2 (#$ . 30597) "P"]) #@195 Toggle compilation minor mode. With arg, turn compilation mode on if and only if arg is positive. See `compilation-mode'. Turning the mode on runs the normal hook `compilation-minor-mode-hook'. (defalias 'compilation-minor-mode #[(&optional arg) "\204 ?\202\303!\304V\211\205\305\306 \210\307\310!)\207" [arg compilation-minor-mode mode-line-process prefix-numeric-value 0 nil compilation-setup run-hooks compilation-minor-mode-hook] 2 (#$ . 31099) "P"]) #@65 Write msg in the current buffer and hack its mode-line-process. (defalias 'compilation-handle-exit #[(process-status exit-status msg) "\306\203  \n #\202 \nBd` b\210\307\310@\261\210n\203,\311u\210\312\313 \314\315O\261\210db\210\316\317 A#\320 \210\f\203Q\f W\203Q\fb\210\321=\203`\322\306d\"\210\202r\247\203r\322\306\212\323!\210`)\"\210\203}p \"\210\211\205\226@p \"\210A\211\204\205\306-\207" [compilation-exit-message-function process-status exit-status msg opoint omax nil 10 " " -1 " at " current-time-string 0 19 format ":%s [%s]" force-mode-line-update t compile-reinitialize-errors goto-line status buffer-read-only mode-name mode-line-process compile-auto-highlight compilation-finish-function compilation-finish-functions functions] 6 (#$ . 31570)]) #@35 Sentinel for compilation buffers. (defalias 'compilation-sentinel #[(proc msg) "\305!\306!\307>\2056\310 !\204\311\312\"\210\2020p\313\216 q\210\314\306!\315! #\210\316!\210*\317\f\"\211)\207" [proc buffer obuf msg compilation-in-progress process-buffer process-status (signal exit) buffer-name set-process-buffer nil ((set-buffer obuf)) compilation-handle-exit process-exit-status delete-process delq] 4 (#$ . 32389)]) #@98 Process filter for compilation buffers. Just inserts the text, but uses `insert-before-markers'. (defalias 'compilation-filter #[(proc string) "\305\306!!\205'\212\306!q\210\307\310 !\212\311!b\210\312\f!\210 \n\307\223\210\313\314!,\207" [proc compilation-parsing-end end buffer-read-only string buffer-name process-buffer nil marker-position process-mark insert-before-markers run-hooks compilation-filter-hook] 3 (#$ . 32829)]) #@76 Return the cdr of `compilation-old-error-list' for error containing point. (defalias 'compile-error-at-point #[nil "\302\303`\"\210\211\203` @@V\203 A\211\204 )\207" [compilation-old-error-list errors compile-reinitialize-errors nil] 4 (#$ . 33272)]) (defalias 'compilation-buffer-p #[(buffer) "\212q\210 \206\n\206 \304=)\207" [buffer compilation-shell-minor-mode compilation-minor-mode major-mode compilation-mode] 2]) (put 'compilation-buffer-p 'byte-optimizer 'byte-compile-inline-expand) #@195 Move point to the next error in the compilation buffer. Prefix arg N says how many error messages to move forwards (or backwards, if negative). Does NOT find the source line like \[next-error]. (defalias 'compilation-next-error #[(n) "\306p!\204\n\307\310!\210p\311 \n\312W\203?\312 \f =\204) T\fA\211\202\n[ V\2036\307\313!\202; \n\\ 8*\202Z A\314\315\211\n#\210\203V\nS8\202Y\307\316!)@b)\207" [compilation-last-buffer errors n compilation-old-error-list e i compilation-buffer-p error "Not in a compilation buffer" compile-error-at-point 0 "Moved back past first error" compile-reinitialize-errors nil "Moved past last error" compilation-error-list] 5 (#$ . 33786) "p"]) #@199 Move point to the previous error in the compilation buffer. Prefix arg N says how many error messages to move backwards (or forwards, if negative). Does NOT find the source line like \[next-error]. (defalias 'compilation-previous-error #[(n) "\301[!\207" [n compilation-next-error] 2 (#$ . 34489) "p"]) (defalias 'compilation-error-filedata #[(data) "A\301!\203 \302!\207@\207" [data markerp marker-buffer] 2]) (put 'compilation-error-filedata 'byte-optimizer 'byte-compile-inline-expand) (defalias 'compilation-error-filedata-file-name #[(filedata) "\301!\203\n\302!\207@\207" [filedata bufferp buffer-file-name] 2]) (put 'compilation-error-filedata-file-name 'byte-optimizer 'byte-compile-inline-expand) #@73 Move point to the next error for a different file than the current one. (defalias 'compilation-next-file #[(n) "\306p!\204\n\307\310!\210p \311W\312\211\211\204$\313 \206 \307\314!\202C\315\312`\"\210\316 ! [ \203C` @@W\203C A\211\2044 \311V\203\323 @\211A\317!\203_\320!\202b@)\n \206\251\f\203\204\307\321\n\322\n!\203}\323\n!\202\n@)\"\202\222\312\315\312\211\324#\210\211)\206\251\307\325\n\322\n!\203\245\323\n!\202\247\n@)\"@\211A\317!\203\276\320!\202\301@)\232\203\314 A\202d S\211\202D \206\355\f\203\341\307\326!\202\355\312\315\312\211\327#\210)@@b+\207" [compilation-last-buffer n filedata errors reversed compilation-old-error-list compilation-buffer-p error "Not in a compilation buffer" 0 nil compile-error-at-point "Moved past last error" compile-reinitialize-errors reverse markerp marker-buffer "%s the first erring file" bufferp buffer-file-name 2 "%s is the last erring file" "This is the first erring file" 1 data compilation-error-list] 6 (#$ . 35212) "p"]) #@77 Move point to the previous error for a different file than the current one. (defalias 'compilation-previous-file #[(n) "\301[!\207" [n compilation-next-file] 2 (#$ . 36267) "p"]) #@50 Kill the process made by the \[compile] command. (defalias 'kill-compilation #[nil "\301 \302!\203\303\302!!\202\304\305!)\207" [buffer compilation-find-buffer get-buffer-process interrupt-process error "The compilation process is not running"] 3 (#$ . 36453) nil]) (defalias 'compile-reinitialize-errors #[(reparse &optional limit-search find-at-least) "\212q\210 \306=\204\n\203\307 \210 \205( \203\f V\205( ?\206( G Y?\205\207\310\311!\210\fdW\205\207   \205D GZ\"\210 \244 \203T \306\211\311\312 \203\201\212\313@@b\311\210`\314#\210)A\211\204i\310!.)\207" [compilation-last-buffer compilation-error-list reparse limit-search compilation-parsing-end find-at-least t compilation-forget-errors set-buffer-modified-p nil buffer-modified-p add-text-properties (mouse-face highlight help-echo "mouse-2: visit this file and line") error-list-pos compilation-parse-errors-function compilation-old-error-list error-list buffer-was-modified deactivate-mark buffer-undo-list inhibit-read-only] 6]) #@150 Visit the source for the error message the mouse is pointing at. This is like `compile-goto-error' called without prefix arg at the end of the line. (defalias 'compile-mouse-goto-error #[(event) "\212\306\3078:\203\307\202\3108)\311 8)!q\210\3078:\203(\307\202)\3108)\310 8:\203;\310 8@\202>\310 8)b\210\312p!\204K\313\314!\210p\315\210\316\315`\"\210\317 \210 \211\203{\320\f\211@@)!\203t`\f\211@@)V\203{\fA\211\204^\f\204\203\313\321!\210)\322\3078:\203\222\307\202\223\3108)\311 8)!\210\323 \210\324\310!\207" [event position compilation-last-buffer compilation-old-error-list compilation-error-list x window-buffer 2 1 0 compilation-buffer-p error "Not in a compilation buffer" nil compile-reinitialize-errors beginning-of-line marker-buffer "No error to go to" select-window push-mark next-error] 4 (#$ . 37510) "e"]) #@265 Visit the source for the error message point is on. Use this command in a compilation log buffer. Sets the mark at point there. \[universal-argument] as a prefix arg means to reparse the buffer's error messages first; other kinds of prefix arguments are ignored. (defalias 'compile-goto-error #[(&optional argp) "\305p!\204\n\306\307!\210p\310 :`\"\210\311 \210\n\211\2038\312 \211@@)!\2031` \211@@)V\2038 A\211\204\313 \210\314\315!\207" [compilation-last-buffer argp compilation-old-error-list compilation-error-list x compilation-buffer-p error "Not in a compilation buffer" compile-reinitialize-errors beginning-of-line marker-buffer push-mark next-error 1] 4 (#$ . 38377) "P"]) (defalias 'compilation-find-buffer #[(&optional other-buffer) "\204p\212 q\210\n\206 \206\f\306=*\203p\207 \203F\307 !\203F \212 q\210\n\2066 \2066\f\306=*\203F\203D p=\204F \207\310 \211 \203z @\212 q\210\n\206a \206a\f\306=*\203q\203z @p=\203z A\211 \204N \203\205 @\202\255\203\252p\212 q\210\n\206\232 \206\232\f\306=*\203\252\203\246\311\312!\210p\206\255\313\314!)\207" [other-buffer buffer compilation-shell-minor-mode compilation-minor-mode major-mode compilation-last-buffer compilation-mode buffer-name buffer-list message "This is the only compilation buffer." error "No compilation started!" buffers] 3]) #@1060 Visit next compilation error message and corresponding source code. If all the error messages parsed so far have been processed already, the message buffer is checked for new ones. A prefix ARGP specifies how many error messages to move; negative means move back to previous error messages. Just \[universal-argument] as a prefix means reparse the error message buffer and start at the first error. \[next-error] normally uses the most recently started compilation or grep buffer. However, it can operate on any buffer with output from the \[compile] and \[grep] commands, or, more generally, on any buffer in Compilation mode or with Compilation Minor mode enabled. To specify use of a particular buffer for error messages, type \[next-error] in that buffer. Once \[next-error] has chosen the buffer for error messages, it stays with that buffer until you use it in some other buffer which uses Compilation mode or Compilation Minor mode. See variables `compilation-parse-errors-function' and `compilation-error-regexp-alist' for customization ideas. (defalias 'next-error #[(&optional argp) "\302 \303\304 :?\205\305 ! :\"!\207" [compilation-last-buffer argp compilation-find-buffer compilation-goto-locus compilation-next-error-locus prefix-numeric-value] 4 (#$ . 39743) "P"]) #@130 Visit previous compilation error message and corresponding source code. This operates on the output from the \[compile] command. (defalias 'previous-error #[nil "\300\301!\207" [next-error -1] 2 (#$ . 41040) nil]) #@154 Reparse the error message buffer and start at the first error. Visit corresponding source code. This operates on the output from the \[compile] command. (defalias 'first-error #[nil "\300\301!\207" [next-error (4)] 2 (#$ . 41261) nil]) #@73 *If non-nil, skip multiple error messages for the same source location. (defvar compilation-skip-to-next-location nil (#$ . -41503)) #@885 Visit next compilation error and return locus in 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. Returns a cons (ERROR . SOURCE) of two markers: ERROR is a marker at the location of the error message in the compilation buffer, and SOURCE is a marker at the location in the source code indicated by the error message. Optional first arg MOVE says how many error messages to move forwards (or backwards, if negative); default is 1. Optional second arg REPARSE, if non-nil, says to reparse the error message buffer and reset to the first error (plus MOVE - 1). If optional third argument SILENT is non-nil, return nil instead of raising an error if there are no more errors. The current buffer should be the desired compilation output buffer. (defalias 'compilation-next-error-locus #[(&optional move reparse silent) "\204\306\307 \310 ?\205\311]#\210\310\211\312\313\215\210\f\2033 \2033 @A\nA\232\2033 A\211\204#\n*\207" [move reparse next-error next-errors compilation-skip-to-next-location compilation-error-list 1 compile-reinitialize-errors nil 0 no-next-error (byte-code "\212q\210 \306V\203 S\n\233\202> S\306 !\f\n=\204) T\fA\211\202![ V\2037\307\310!\202= !\\ \233+\211\"@\211#\204\225 \203] \311U\204]\307 \306V\205Z\312\310\"\210\313p!\203m\314\313p!!\315=\204p\316 \210$\203|\317\320\321\"\202\334\307%\313p!\205\220\314\313p!!\315=\205\220\322P!\202\334\"A#A\203\337\323#A!\204\316#A@&\324\325#@&#\211'\204\354 \211\"\203\315\"@A:\203\343\"@A@&\232\203\343\"@@\321\211\223\210\"@\321\241\210\"A\211\"\202\277 (#AA@\326#A8)*+,'q\210\212\214~\210\327*!\210)\2030)\306V\2030+\203(\330)S!\210\2023)Su\210\2023\331 \210#\332 \241\210,\203\313,@A:\203\302,@A@&\232\203\302,@AA@-\326,@A8)-*Z./\333=\203\215.\306W\203\202\334\335\321\336.[$\210\202\221\337\335\321\336.$\210\202\221.y\210)\203\263)\311V\203\263+\203\253\330)S!\210\202\266)Su\210\202\266\331 \210-*,@\332 \241\210+,A\211,\204>.*\323#A!\203\337\340#A!?\203\352\n\211\"@\211#\202E)\321\207" [compilation-last-buffer move compilation-error-list compilation-old-error-list e i 0 error "Moved back past first error" 1 "Moved past last error" get-buffer-process process-status run compilation-forget-errors throw no-next-error nil " yet" markerp apply compilation-find-file 2 goto-line move-to-column beginning-of-line point-marker t re-search-backward "[\n ]" end re-search-forward marker-buffer n next-errors next-error silent compilation-error-message fileinfo buffer compilation-error-screen-columns column last-line columns errors this lines selective-display] 6)] 6 (#$ . 41643)]) #@205 Jump to an error locus returned by `compilation-next-error-locus'. Takes one argument, a cons (ERROR . SOURCE) of two markers. Selects a window with point at SOURCE, with another window displaying ERROR. (defalias 'compilation-goto-locus #[(next-error) "\303\304 !\305@!=\203\306\307\305A!!\210)\2029\310\304 !\2032\304 \311 =\2032\312\305A!!\210\2029\313\305A!!\210Ab\210`\314A!U\204L~\210Ab\210\315\316\317`!\"\210\306\320\305@!\321\"\206e\322\305@!!\323\n@\"\210\324\n@\"\210\325\n!*\207" [next-error pop-up-windows w window-buffer selected-window marker-buffer t pop-to-buffer window-dedicated-p frame-root-window switch-to-buffer-other-frame switch-to-buffer marker-position mapcar #[(ov) "\302\303\"\304=\205\305!\210 Ab\207" [ov next-error overlay-get invisible hs delete-overlay] 3] overlays-at get-buffer-window visible display-buffer set-window-point set-window-start compilation-set-window-height] 4 (#$ . 44481)]) #@323 Find a buffer for file FILENAME. Search the directories in `compilation-search-path'. A nil in `compilation-search-path' means to try the current directory, which is passed in DIR. If FILENAME is not found at all, ask the user where to find it. Pop up the buffer containing MARKER and scroll to MARKER if we ask the user. (defalias 'compilation-find-file #[(marker filename dir &rest formats) "\204\306\212 \307\211\211\211\310!\2030\311\312!!\313!B\314!\203p \204p@\206A\211\203g \204g\312\315 @\"\f\"\316\n!\205_\317\n! A\211\204HA\211\2045 \204\263\320\321\322 !!!\323! \"\210\324! \"\210\312\325\315\326\"\320$!\327\n!\203\250\312\n\"\316\n!\205\261\330\n!+\331\332\333ed\"\"\210 .\207" [formats compilation-search-path name fmts thisdir buffer ("%s") nil file-name-absolute-p abbreviate-file-name expand-file-name file-name-directory file-name-nondirectory format file-exists-p find-file-noselect t display-buffer marker-buffer set-window-point set-window-start read-file-name "Find this error in: (default %s) " file-directory-p find-file mapcar #[(ov) "\301\302\"\205\f\303\302\304#\207" [ov overlay-get intangible overlay-put nil] 4] overlays-in dirs filename dir pop-up-windows marker w] 7 (#$ . 45440)]) (defalias 'compilation-forget-errors #[nil "\203\"@\211@\306\211\223\210\307 A!\203 A\306\211\223\210)A\211\204\306 C \310\306\223\210\311\211\306\f \312ed\313#+\207" [compilation-old-error-list next-error compilation-error-list default-directory compilation-directory-stack compilation-parsing-end nil markerp 1 t remove-text-properties (mouse-face highlight help-echo nil) deactivate-mark buffer-undo-list inhibit-read-only] 5]) #@64 Return the number of \( ... \) groupings in REGEXP (a string). (defalias 'count-regexp-groupings #[(regexp) "\305G\305\306\n W\203P\nH\nT \307U\2031\n W\203 \nH\310U\204 \nT\211\202 \311U\203 \n W\203 \nH\nT \312U\203 \fT\202 \f,\207" [regexp c i len groupings 0 nil 91 93 92 41] 5 (#$ . 47186)]) #@79 Used by `compilation-parse-errors' to store filename for file being compiled. (defvar compilation-current-file nil (#$ . 47513)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list compilation-regexps boundp nil] 2) #@145 Parse the current buffer as grep, cc, lint or other error messages. See variable `compilation-parse-errors-function' for the interface it uses. (defalias 'compilation-parse-errors #[(limit-search find-at-least) "\306\307\310!\210 \204\311\312!\210\306 @\306\313+\314\f!,\314\315\f!!-\314\316\317-\"!.\320\321/\"\210\320\3220\"\210\320\3231\"\210\320\311 \"\210\320\3242\"\2103b\210o\203rp4\2124q\2105\206h6\206h7\325=*\203r\3068\326y\210 \204\207m\204\207\n\306\211\2119:;<<\203\257:\204\257\327<@@!\204\246<;\306?9\311=\203\345:A\211:@\247\203\355\331\330:@!!\202\360:@@\330:A\211:@!A\306B>\2048\211>\204\311\332!\210\333\334!\203%\335>!\203%>P>C\2031C>!>\336>!\211>\f:ABB>@\247\203Y\337 >@A\205U\331A!F\202b\212@>A\")\211B\203\300\203\300D\203y+DY\204\206E\203\300=EY\203\300BA\211F@A)GH\340H!\203\242\341H!\202\245H@\340G!\203\263\341G!\202\266G@\232*\204\300\342\202\341=b\210B\203\341\203\327@ABA\232\204\341BB+T++\202q9\323=\203\370>\203^>8\202^ ?>\203?\343\344\345\316>!!,-.$\211>!\203?9\321=\2037?\203??@>\230\204??A\211?\204\"\202?> B>9\321=\203^?\203^?A\211\203^ @\211?\203^?=b\210E\203q=EY\203q\342\346u\210\307\347+\350`_d\245#\210+\351y\210,\202r3`\306\223\210\237\307\352!.\207" [compilation-error-list compilation-error-regexp-alist compilation-regexps compilation-directory-stack default-directory found-desired nil message "Parsing error messages..." error "compilation-error-regexp-alist is empty!" 0 abbreviate-file-name file-truename expand-file-name "../" compile-collect-regexps leave enter file nomessage compilation-mode 2 looking-at compile-buffer-substring string-to-int "An error message with no file name and no file name has been seen earlier" boundp comint-file-name-prefix file-name-absolute-p command-line-normalize-file-name point-marker markerp marker-buffer t file-directory-p compile-abbreviate-directory file-name-as-directory -1 "Parsing error messages...%d found. %.0f%% of buffer seen." 100.0 1 "Parsing error messages...done." compilation-num-errors-found orig orig-expanded parent-expanded compilation-leave-directory-regexp-alist compilation-enter-directory-regexp-alist compilation-file-regexp-alist compilation-nomessage-regexp-alist compilation-parsing-end buffer compilation-shell-minor-mode compilation-minor-mode major-mode compilation-current-file type alist prev this end-of-match filename stack linenum column this-error compilation-parse-errors-filename-function find-at-least limit-search x lastpos thispos] 7 (#$ . 47753)]) (defalias 'compile-collect-regexps #[(type this) "\305=?\205%\306\211\203#\n@\211@ ABB\fB\nA\211\204*\306\207" [this el #1=#:--dolist-temp--97269 type compilation-regexps t nil] 4]) #@49 Get substring matched by INDEXth subexpression. (defalias 'compile-buffer-substring #[(index) "\205\224\211\205 \225{)\207" [index beg] 3 (#$ . 50715)]) (defalias 'compile-abbreviate-directory #[(dir orig orig-expanded parent-expanded) "\305!\306\301!\203 PG\nGV\203(\n\307\nGO\230\203( \nG\310OPG\fGV\203F\f\307\fGO\230\203F\311\312 !!\fG\310OP\207" [dir comint-file-name-prefix orig-expanded orig parent-expanded abbreviate-file-name boundp 0 nil file-name-directory directory-file-name] 4]) (byte-code "\300\301\302\"\210\303\304!\207" [add-to-list debug-ignored-errors "^No more errors\\( yet\\|\\)$" provide compile] 3)