ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/compile.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\307\311&\210\312\313\314\315\316DD\317\320\321\307\304&\210\312\322\314\315\323DD\324\320\321\307\304&\210\312\325\314\315\326DD\327\320\330\307\304&\207" [require tool-bar comint custom-declare-group compilation nil "Run compiler as inferior of Emacs, parse error messages." :group tools processes custom-declare-variable compilation-mode-hook funcall function #[0 "\300\207" [nil] 1] "List of hook functions run by `compilation-mode'." :type hook compilation-start-hook #[0 "\300\207" [nil] 1] "Hook run after starting a new compilation process.\nThe hook is run with one argument, the new process." compilation-window-height #[0 "\300\207" [nil] 1] "Number of lines in a compilation window.\nIf nil, use Emacs default." (choice (const :tag "Default" nil) integer)] 8)
#@338 Hook run after `compilation-filter' has inserted a string into the buffer.
It is called with the variable `compilation-filter-start' bound
to the position of the start of the inserted text, and point at
its end.
If Emacs lacks asynchronous process support, this hook is run
after `call-process' inserts the grep output into the buffer.
(defvar compilation-filter-hook nil (#$ . 1249))
#@125 Position of the start of the text inserted by `compilation-filter'.
This is bound before running `compilation-filter-hook'.
(defvar compilation-filter-start nil (#$ . 1642))
#@249 This is how compilers number the first column, usually 1 or 0.
If this is buffer-local in the destination buffer, Emacs obeys
that value, otherwise it uses the value in the *compilation*
buffer. This enables a major-mode to specify its own value.
(defvar compilation-first-column 1 (#$ . 1823))
#@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 (#$ . 2126))
#@255 Function to call to customize the compilation process.
This function 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 (#$ . 2407))
#@245 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.
If nil, compute the name with `(concat "*" (downcase major-mode) "*")'.
(defvar compilation-buffer-name-function nil (#$ . 2728))
#@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 (#$ . 3037))
(make-obsolete-variable 'compilation-finish-function "use `compilation-finish-functions', but it works a little differently." "22.1")
#@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 (#$ . 3392))
#@44 List of compilation processes now running.
(defvar compilation-in-progress nil (#$ . 3625))
(byte-code "\301\236\204\n \302B\301\207" [minor-mode-alist compilation-in-progress (compilation-in-progress " Compiling")] 2)
#@53 Stem of message to print when no matches are found.
(defvar compilation-error "error" (#$ . 3853))
#@51 Arguments that were given to `compilation-start'.
(defvar compilation-arguments nil (#$ . 3958))
#@55 Alist of values for `compilation-error-regexp-alist'.
(defvar compilation-error-regexp-alist-alist (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331BB\332BBBBBBBBBBBBBBBBBBBBBBBB\207" [(absoft "^\\(?:[Ee]rror on \\|[Ww]arning on\\( \\)\\)?[Ll]ine[ ]+\\([0-9]+\\)[ ]+of[ ]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1)) (ada "\\(warning: .*\\)? at \\([^ \n]+\\):\\([0-9]+\\)$" 2 3 nil (1)) (aix " in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) (ant "^[ ]*\\[[^] \n]+\\][ ]*\\(\\(?:[A-Za-z]:\\\\\\)?[^: \n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\):\\)?\\( warning\\)?" 1 (2 . 4) (3 . 5) (6)) (bash "^\\([^: \n ]+\\): line \\([0-9]+\\):" 1 2) (borland "^\\(?:Error\\|Warnin\\(g\\)\\) \\(?:[FEW][0-9]+ \\)?\\([a-zA-Z]?:?[^:( \n]+\\) \\([0-9]+\\)\\(?:[) ]\\|:[^0-9\n]\\)" 2 3 nil (1)) (python-tracebacks-and-caml "^[ ]*File \\(\"?\\)\\([^,\" \n <>]+\\)\\1, lines? \\([0-9]+\\)-?\\([0-9]+\\)?\\(?:$\\|,\\(?: characters? \\([0-9]+\\)-?\\([0-9]+\\)?:\\)?\\([ \n]Warning\\(?: [0-9]+\\)?:\\)?\\)" 2 (3 . 4) (5 . 6) (7)) (comma "^\"\\([^,\" \n ]+\\)\", line \\([0-9]+\\)\\(?:[(. pos]+\\([0-9]+\\))?\\)?[:.,; (-]\\( warning:\\|[-0-9 ]*(W)\\)?" 1 2 3 (4)) (cucumber "\\(?:^cucumber\\(?: -p [^[:space:]]+\\)?\\|#\\)\\(?: \\)\\([^(].*\\):\\([1-9][0-9]*\\)" 1 2) (msft "^ *\\([0-9]+>\\)?\\(\\(?:[a-zA-Z]:\\)?[^:( \n]+\\)(\\([0-9]+\\)) ?: \\(?:see declaration\\|\\(?:warnin\\(g\\)\\|[a-z ]+\\) C[0-9]+:\\)" 2 3 nil (4)) (edg-1 "^\\([^ \n]+\\)(\\([0-9]+\\)): \\(?:error\\|warnin\\(g\\)\\|remar\\(k\\)\\)" 1 2 nil (3 . 4)) (edg-2 "at line \\([0-9]+\\) of \"\\([^ \n]+\\)\"$" 2 1 nil 0) (epc "^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1) (ftnchek "\\(^Warning .*\\)? line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)" 4 2 3 (1)) (iar "^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:" 1 2 nil (3)) (ibm "^\\([^( \n ]+\\)(\\([0-9]+\\):\\([0-9]+\\)) : \\(?:warnin\\(g\\)\\|informationa\\(l\\)\\)?" 1 2 3 (4 . 5)) (irix "^[-[:alnum:]_/ ]+: \\(?:\\(?:[sS]evere\\|[eE]rror\\|[wW]arnin\\(g\\)\\|[iI]nf\\(o\\)\\)[0-9 ]*: \\)?\\([^,\" \n ]+\\)\\(?:, line\\|:\\) \\([0-9]+\\):" 3 4 nil (1 . 2)) (java "^\\(?:[ ]+at \\|==[0-9]+== +\\(?:at\\|b\\(y\\)\\)\\).+(\\([^()\n]+\\):\\([0-9]+\\))$" 2 3 nil (1)) (jikes-file "^\\(?:Found\\|Issued\\) .* compiling \"\\(.+\\)\":$" 1 nil nil 0) (maven "\\(\\[WARNING\\] *\\)?\\([^ \n]\\(?:[^\n :]\\| [^-/\n]\\|:[^ \n]\\)*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\] " 2 3 4 (1)) (jikes-line "^ *\\([0-9]+\\)\\.[ ]+.*\n +\\(<-*>\n\\*\\*\\* \\(?:Error\\|Warnin\\(g\\)\\)\\)" nil 1 nil 2 0 (2 (compilation-face '(3)))) (gcc-include "^\\(?:In file included \\| \\| \\)from \\([0-9]*[^0-9\n]\\(?:[^\n :]\\| [^-/\n]\\|:[^ \n]\\)*?\\):\\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?\\(?:\\(:\\)\\|\\(,\\|$\\)\\)?" 1 2 3 (4 . 5)) (ruby-Test::Unit "^[ ]*\\[\\([^(].*\\):\\([1-9][0-9]*\\)\\(\\]\\)?:in " 1 2) gnu "^\\(?:[[:alpha:]][-[:alnum:].]+: ?\\|[ ]+\\(?:in \\|from\\)\\)?\\(?1:\\(?:[0-9]*[^0-9\n]\\)\\(?:[^\n :]\\| [^-/\n]\\|:[^ \n]\\)*?\\)\\(?:: ?\\)\\(?2:[0-9]+\\)\\(?:-\\(?4:[0-9]+\\)\\(?:\\.\\(?5:[0-9]+\\)\\)?\\|[.:]\\(?3:[0-9]+\\)\\(?:-\\(?:\\(?4:[0-9]+\\)\\.\\)?\\(?5:[0-9]+\\)\\)?\\)?:\\(?: *\\(?6:\\(?:FutureWarning\\|RuntimeWarning\\|W\\(?::\\|arning\\)\\|warning\\)\\)\\| *\\(?7:[Ii]nfo\\(?:\\>\\|rmationa?l?\\)\\|I:\\|\\[ skipping \\.+ ]\\|instantiated from\\|required from\\|[Nn]ote\\)\\| *\\(?:[Ee]rror\\)\\|[0-9]?\\(?:[^0-9\n]\\|$\\)\\|[0-9][0-9][0-9]\\)" (1 (2 . 4) (3 . 5) (6 . 7)) ((lcc "^\\(?:E\\|\\(W\\)\\), \\([^(\n]+\\)(\\([0-9]+\\),[ ]*\\([0-9]+\\)" 2 3 4 (1)) (makepp "^makepp\\(?:\\(?:: warning\\(:\\).*?\\|\\(: Scanning\\|: [LR]e?l?oading makefile\\|: Imported\\|log:.*?\\) \\|: .*?\\)`\\(\\(\\S +?\\)\\(?::\\([0-9]+\\)\\)?\\)['(]\\)" 4 5 nil (1 . 2) 3 (0 (progn (save-match-data (compilation-parse-errors (match-end 0) (line-end-position) `("`\\(\\(\\S +?\\)\\(?::\\([0-9]+\\)\\)?\\)['(]" 2 3 nil ,(cond ((match-end 1) 1) ((match-end 2) 0) (t 2)) 1))) (end-of-line) nil))) (mips-1 " (\\([0-9]+\\)) in \\([^ \n]+\\)" 2 1) (mips-2 " in \\([^()\n ]+\\)(\\([0-9]+\\))$" 1 2) (msft "^ *\\([0-9]+>\\)?\\(\\(?:[a-zA-Z]:\\)?[^:( \n]+\\)(\\([0-9]+\\)) : \\(?:see declaration\\|\\(?:warnin\\(g\\)\\|[a-z ]+\\) C[0-9]+:\\)" 2 3 nil (4)) (omake "omake: file \\(.*\\) changed" 1 nil nil nil nil (0 (progn (compilation--flush-file-structure (match-string 1)) nil))) (oracle "^\\(?:Semantic error\\|Error\\|PCC-[0-9]+:\\).* line \\([0-9]+\\)\\(?:\\(?:,\\| at\\)? column \\([0-9]+\\)\\)?\\(?:,\\| in\\| of\\)? file \\(.*?\\):?$" 3 1 2) (perl " at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\| during global destruction\\.$\\)" 1 2) (php "\\(?:Parse\\|Fatal\\) error: \\(.*\\) in \\(.*\\) on line \\([0-9]+\\)" 2 3 nil nil) (rxp "^\\(?:Error\\|Warnin\\(g\\)\\):.*\n.* line \\([0-9]+\\) char \\([0-9]+\\) of file://\\(.+\\)" 4 2 3 (1)) (sparc-pascal-file "^\\w\\w\\w \\w\\w\\w +[0-3]?[0-9] +[0-2][0-9]:[0-5][0-9]:[0-5][0-9] [12][09][0-9][0-9] +\\(.*\\):$" 1 nil nil 0) (sparc-pascal-line "^\\(\\(?:E\\|\\(w\\)\\) +[0-9]+\\) line \\([0-9]+\\) - " nil 3 nil (2) nil (1 (compilation-face '(2)))) (sparc-pascal-example "^ +\\([0-9]+\\) +.*\n\\(\\(?:e\\|\\(w\\)\\) [0-9]+\\)-+" nil 1 nil (3) nil (2 (compilation-face '(3)))) (sun ": \\(?:ERROR\\|WARNIN\\(G\\)\\|REMAR\\(K\\)\\) \\(?:[[:alnum:] ]+, \\)?File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?" 3 4 5 (1 . 2)) (sun-ada "^\\([^, \n ]+\\), line \\([0-9]+\\), char \\([0-9]+\\)[:., (-]" 1 2 3) (watcom "^[ ]*\\(\\(?:[a-zA-Z]:\\)?[^:( \n]+\\)(\\([0-9]+\\)): ?\\(?:\\(Error! E[0-9]+\\)\\|\\(Warning! W[0-9]+\\)\\):" 1 2 nil (4)) (4bsd "\\(?:^\\|:: \\|\\S ( \\)\\(/[^ \n ()]+\\)(\\([0-9]+\\))\\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)) (gcov-file "^ *-: *\\(0\\):Source:\\(.+\\)$" 2 1 nil 0 nil) (gcov-header "^ *-: *\\(0\\):\\(?:Object\\|Graph\\|Data\\|Runs\\|Programs\\):.+$" nil 1 nil 0 nil) (gcov-nomark "^ *-: *\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" nil 1 nil 0 nil (0 'default) (1 compilation-line-face)) (gcov-called-line "^ *\\([0-9]+\\): *\\([0-9]+\\):.*$" nil 2 nil 0 nil (0 'default) (1 compilation-info-face) (2 compilation-line-face)) (gcov-never-called "^ *\\(#####\\): *\\([0-9]+\\):.*$" nil 2 nil 2 nil (0 'default) (1 compilation-error-face) (2 compilation-line-face)) (perl--Pod::Checker "^\\*\\*\\* \\(?:ERROR\\|\\(WARNING\\)\\).* \\(?:at\\|on\\) line \\([0-9]+\\) \\(?:.* \\)?in file \\([^ \n]+\\)" 3 2 nil (1)) (perl--Test "^# Failed test [0-9]+ in \\([^
\n]+\\) at line \\([0-9]+\\)" 1 2) (perl--Test2 "^\\(.*NOK.*\\)?# Test [0-9]+ got:.* (\\([^
\n]+\\) at line \\([0-9]+\\)\\( fail #[0-9]+\\)?)" 2 3) (perl--Test::Harness "^.*NOK.* \\([^
\n]+\\) at line \\([0-9]+\\)" 1 2) (weblint "^\\([^
\n(]+\\) (\\([0-9]+\\):\\([0-9]+\\)) " 1 2 3) (guile-file "^In \\(.+\\..+\\):\n" 1 nil nil 0) (guile-line "^ *\\([0-9]+\\): *\\([0-9]+\\)" nil 1 2))] 26) (#$ . 4061))
(byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\314\315\316\"F\317\320& \207" [data-directory custom-declare-variable compilation-error-regexp-alist funcall function #[0 "\301\302\"\207" [compilation-error-regexp-alist-alist mapcar car] 3] "Alist that specifies how to match errors in compiler output.\nOn GNU and Unix, any string is a valid filename, so these\nmatchers must make some common sense assumptions, which catch\nnormal cases. A shorter list will be lighter on resource usage.\n\nInstead of an alist element, you can use a symbol, which is\nlooked up in `compilation-error-regexp-alist-alist'. You can see\nthe predefined symbols and their effects in the file\n`etc/compilation.txt' (linked below if you are customizing this).\n\nEach elt has the form (REGEXP FILE [LINE COLUMN TYPE HYPERLINK\nHIGHLIGHT...]). If REGEXP matches, the FILE'th subexpression\ngives the file name, and the LINE'th subexpression gives the line\nnumber. The COLUMN'th subexpression gives the column number on\nthat line.\n\nIf FILE, LINE or COLUMN are nil or that index didn't match, that\ninformation is not present on the matched line. In that case the\nfile name is assumed to be the same as the previous one in the\nbuffer, line number defaults to 1 and column defaults to\nbeginning of line's indentation.\n\nFILE can also have the form (FILE FORMAT...), where the FORMATs\n(e.g. \"%s.c\") will be applied in turn to the recognized file\nname, until a file of that name is found. Or FILE can also be a\nfunction that returns (FILENAME) or (RELATIVE-FILENAME . DIRNAME).\nIn the former case, FILENAME may be relative or absolute.\n\nLINE can also be of the form (LINE . END-LINE) meaning a range\nof lines. COLUMN can also be of the form (COLUMN . END-COLUMN)\nmeaning a range of columns starting on LINE and ending on\nEND-LINE, if that matched.\n\nTYPE is 2 or nil for a real error or 1 for warning or 0 for info.\nTYPE can also be of the form (WARNING . INFO). In that case this\nwill be equivalent to 1 if the WARNING'th subexpression matched\nor else equivalent to 0 if the INFO'th subexpression matched.\nSee `compilation-error-face', `compilation-warning-face',\n`compilation-info-face' and `compilation-skip-threshold'.\n\nWhat matched the HYPERLINK'th subexpression has `mouse-face' and\n`compilation-message-face' applied. If this is nil, the text\nmatched by the whole REGEXP becomes the hyperlink.\n\nAdditional HIGHLIGHTs take the shape (SUBMATCH FACE), where\nSUBMATCH is the number of a submatch and FACE is an expression\nwhich evaluates to a face name (a symbol or string).\nAlternatively, FACE can evaluate to a property list of the\nform (face FACE PROP1 VAL1 PROP2 VAL2 ...), in which case all the\nlisted text properties PROP# are given values VAL# as well." :type (repeat (choice (symbol :tag "Predefined symbol") (sexp :tag "Error specification"))) :link file-link :tag "example file" expand-file-name "compilation.txt" :group compilation] 13)
#@49 Directory to restore to when doing `recompile'.
(defvar compilation-directory nil (#$ . 13989))
#@727 A list for tracking when directories are entered or left.
If nil, do not track directories, e.g. if all file names are absolute. The
first element is the REGEXP matching these messages. It can match any number
of variants, e.g. different languages. The remaining elements are all of the
form (DIR . LEAVE). If for any one of these the DIR'th subexpression
matches, that is a directory name. If LEAVE is nil or the corresponding
LEAVE'th subexpression doesn't match, this message is about going into another
directory. If it does match anything, this message is about going back to the
directory we were in before the last entering message. If you change this,
you may also want to change `compilation-page-delimiter'.
(defvar compilation-directory-matcher '("\\(?:Entering\\|Leavin\\(g\\)\\) directory [`']\\(.+\\)'$" (2 . 1)) (#$ . 14092))
#@48 Value of `page-delimiter' in Compilation mode.
(defvar compilation-page-delimiter "^\\(?:\f\\|.*\\(?:Entering\\|Leaving\\) directory [`'].+'\n\\)+" (#$ . 14947))
#@111 Additional things to highlight in Compilation mode.
This gets tacked on the end of the generated expressions.
(defvar compilation-mode-font-lock-keywords '(("^[Cc]hecking \\(?:[Ff]or \\|[Ii]f \\|[Ww]hether \\(?:to \\)?\\)?\\(.+\\)\\.\\.\\. *\\(?:(cached) *\\)?\\(\\(yes\\(?: .+\\)?\\)\\|no\\|\\(.*\\)\\)$" (1 font-lock-variable-name-face) (2 (compilation-face '(4 . 3)))) ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ ]*:" (1 font-lock-function-name-face) (3 compilation-line-face nil t)) (" --?o\\(?:utfile\\|utput\\)?[= ]\\(\\S +\\)" . 1) ("^Compilation \\(finished\\).*" (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t) (1 compilation-info-face)) ("^Compilation \\(exited abnormally\\|interrupt\\|killed\\|terminated\\|segmentation fault\\)\\(?:.*with code \\([0-9]+\\)\\)?.*" (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t) (1 compilation-error-face) (2 compilation-error-face nil t))) (#$ . 15116))
#@137 Regexp matching part of visited source lines to highlight temporarily.
Highlight entire line if t; don't highlight source lines if nil.
(defvar compilation-highlight-regexp t (#$ . 16080))
#@60 Overlay used to temporarily highlight compilation matches.
(defvar compilation-highlight-overlay nil (#$ . 16275))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311&\210\300\317\302\303\320DD\321\306\307\310\311&\210\300\322\302\303\323DD\324\306\325\310\311\312\326& \210\300\327\302\303\330DD\331\306\332\310\311&\210\300\333\302\303\334DD\335\306\336\310\311&\210\300\337\302\303\340DD\341\306\307\310\311\312\342& \207" [custom-declare-variable compilation-error-screen-columns funcall function #[0 "\300\207" [t] 1] "If non-nil, column numbers in error messages are screen columns.\nOtherwise they are interpreted as character positions, with\neach character occupying one column.\nThe default is to use screen columns, which requires that the compilation\nprogram and Emacs agree about the display width of the characters,\nespecially the TAB character.\nIf this is buffer-local in the destination buffer, Emacs obeys\nthat value, otherwise it uses the value in the *compilation*\nbuffer. This enables a major-mode to specify its own value." :type boolean :group compilation :version "20.4" compilation-read-command #[0 "\300\207" [t] 1] "Non-nil means \\[compile] reads the compilation command to use.\nOtherwise, \\[compile] just uses the value of `compile-command'.\n\nNote that changing this to nil may be a security risk, because a\nfile might define a malicious `compile-command' as a file local\nvariable, and you might not notice. Therefore, `compile-command'\nis considered unsafe if this variable is nil." compilation-ask-about-save #[0 "\300\207" [t] 1] "Non-nil means \\[compile] asks which buffers to save before compiling.\nOtherwise, it saves all modified buffers without asking." compilation-save-buffers-predicate #[0 "\300\207" [nil] 1] "The second argument (PRED) passed to `save-some-buffers' before compiling.\nE.g., one can set this to\n (lambda ()\n (string-prefix-p my-compilation-root (file-truename (buffer-file-name))))\nto limit saving to files located under `my-compilation-root'.\nNote, that, in general, `compilation-directory' cannot be used instead\nof `my-compilation-root' here." (choice (const :tag "Default (save all file-visiting buffers)" nil) (const :tag "Save all buffers" t) function) "24.1" compilation-search-path #[0 "\300\207" [(nil)] 1] "List of directories to search for source files named in error messages.\nElements should be directory names, not file names of directories.\nThe value nil as an element means to try the default directory." (repeat (choice (const :tag "Default" nil) (string :tag "Directory"))) compile-command #[0 "\300\301!\207" [purecopy "make -k "] 2] "Last shell command used to do a compilation; default for next compilation.\n\nSometimes it is useful for files to supply local values for this variable.\nYou might also use mode hooks to specify it in certain modes, like this:\n\n (add-hook \\='c-mode-hook\n (lambda ()\n (unless (or (file-exists-p \"makefile\")\n (file-exists-p \"Makefile\"))\n (set (make-local-variable \\='compile-command)\n (concat \"make -k \"\n (if buffer-file-name\n (shell-quote-argument\n (file-name-sans-extension buffer-file-name))))))))\n\nIt's often useful to leave a space at the end of the value." string compilation-disable-input #[0 "\300\207" [nil] 1] "If non-nil, send end-of-file as compilation process input.\nThis only affects platforms that support asynchronous processes (see\n`start-process'); synchronous compilation processes never accept input." "22.1"] 10)
(defvar compilation-locs nil)
#@198 Set this to t before creating a *compilation* buffer.
Then every error line will have a debug text property with the matcher that
fit this line and the match data. Use `describe-text-properties'.
(defvar compilation-debug nil (#$ . 19899))
#@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 (#$ . 20147))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable compilation-environment funcall function #[0 "\300\207" [nil] 1] "List of environment variables for compilation to inherit.\nEach element should be a string of the form ENVVARNAME=VALUE.\nThis list is temporarily prepended to `process-environment' prior to\nstarting the compilation process." :type (repeat (string :tag "ENVVARNAME=VALUE")) :options (("LANG=C")) :group compilation :version "24.1"] 12)
(defvar compile-history nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\321&\210\300\322\323\324\304\305\306\321&\210\300\325\326\327\304\305\306\321&\210\300\330\331\332\304\305\306\307&\210\300\333\334\335\304\305\306\307&\210\336\337\340\341\342DD\343\344\345\304\305\306\307& \207" [custom-declare-face compilation-error ((t :inherit error)) "Face used to highlight compiler errors." :group compilation :version "22.1" compilation-warning ((t :inherit warning)) "Face used to highlight compiler warnings." compilation-info ((t :inherit success)) "Face used to highlight compiler information." compilation-mode-line-fail ((default :inherit compilation-error) (((class color) (min-colors 16)) (:foreground "Red1" :weight bold)) (((class color) (min-colors 8)) (:foreground "red")) (t (:inverse-video t :weight bold))) "Face for Compilation mode's \"error\" mode line indicator." "24.3" compilation-mode-line-run ((t :inherit compilation-warning)) "Face for Compilation mode's \"running\" mode line indicator." compilation-mode-line-exit ((default :inherit compilation-info) (((class color) (min-colors 16)) (:foreground "ForestGreen" :weight bold)) (((class color)) (:foreground "green" :weight bold)) (t (:weight bold))) "Face for Compilation mode's \"exit\" mode line indicator." compilation-line-number ((t :inherit font-lock-keyword-face)) "Face for displaying line numbers in compiler messages." compilation-column-number ((t :inherit font-lock-doc-face)) "Face for displaying column numbers in compiler messages." custom-declare-variable compilation-message-face funcall function #[0 "\300\207" [underline] 1] "Face name to use for whole messages.\nFaces `compilation-error-face', `compilation-warning-face',\n`compilation-info-face', `compilation-line-face' and\n`compilation-column-face' get prepended to this, when applicable." :type face] 10)
#@51 Face name to use for file name in error messages.
(defvar compilation-error-face 'compilation-error (#$ . 22984))
#@53 Face name to use for file name in warning messages.
(defvar compilation-warning-face 'compilation-warning (#$ . 23104))
#@59 Face name to use for file name in informational messages.
(defvar compilation-info-face 'compilation-info (#$ . 23230))
#@57 Face name to use for line numbers in compiler messages.
(defvar compilation-line-face 'compilation-line-number (#$ . 23356))
#@59 Face name to use for column numbers in compiler messages.
(defvar compilation-column-face 'compilation-column-number (#$ . 23487))
#@51 Face name to use for entering directory messages.
(defvar compilation-enter-directory-face 'font-lock-function-name-face (#$ . 23624))
#@50 Face name to use for leaving directory messages.
(defvar compilation-leave-directory-face 'font-lock-builtin-face (#$ . 23765))
(defvar compilation-parse-errors-function nil)
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315\316\317& \207" [make-obsolete-variable compilation-parse-errors-function compilation-error-regexp-alist "24.1" custom-declare-variable compilation-auto-jump-to-first-error funcall function #[0 "\300\207" [nil] 1] "If non-nil, automatically jump to the first error during compilation." :type boolean :group compilation :version "23.1"] 10)
#@63 If non-nil, automatically jump to the next error encountered.
(defvar compilation-auto-jump-to-next nil (#$ . 24361))
(make-variable-buffer-local 'compilation-auto-jump-to-next)
#@72 If non-nil, skip multiple error messages for the same source location.
(defvar compilation-skip-to-next-location t (#$ . 24545))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable compilation-skip-threshold funcall function #[0 "\300\207" [1] 1] "Compilation motion commands skip less important messages.\nThe value can be either 2 -- skip anything less than error, 1 --\nskip anything less than warning or 0 -- don't skip any messages.\nNote that all messages not positively identified as warning or\ninfo, are considered errors." :type (choice (const :tag "Skip warnings and info" 2) (const :tag "Skip info" 1) (const :tag "No skip" 0)) :group compilation :version "22.1"] 10)
#@60 Switch the `compilation-skip-threshold' level.
(fn LEVEL)
(defalias 'compilation-set-skip-threshold #[257 "\211\301\302\303=\203 \304\202# \305=\203 \306\202# \307=\203\" \310\202# \311\"\207" [compilation-skip-threshold message "Skipping %s" 0 "Nothing" 1 "Info messages" 2 "Warnings and info" nil] 5 (#$ . 25274) (byte-code "\302\203 \303!\202
T\304\"C\207" [current-prefix-arg compilation-skip-threshold mod prefix-numeric-value 3] 3)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable compilation-skip-visited funcall function #[0 "\300\207" [nil] 1] "Compilation motion commands skip visited messages if this is t.\nVisited messages are ones for which the file, line and column have been jumped\nto from the current content in the current compilation buffer, even if it was\nfrom a different message." :type boolean :group compilation :version "22.1"] 10)
(defalias 'compilation-face #[257 "\211@\203 \211@\225\203 \206 \211A\203 \211A\225\203 \206 \n\207" [compilation-warning-face compilation-info-face compilation-error-face] 2 "\n\n(fn TYPE)"])
(defalias 'compilation--make-cdrloc '(macro . #[771 "\300\301BBBB\207" [list (nil)] 8 "\n\n(fn LINE FILE-STRUCT MARKER)"]))
(defalias 'compilation--loc->col '(macro . #[257 "\300D\207" [car] 3 "\n\n(fn LOC)"]))
(defalias 'compilation--loc->line '(macro . #[257 "\300D\207" [cadr] 3 "\n\n(fn LOC)"]))
(defalias 'compilation--loc->file-struct '(macro . #[257 "\300\301E\207" [nth 2] 4 "\n\n(fn LOC)"]))
(defalias 'compilation--loc->marker '(macro . #[257 "\300\301E\207" [nth 3] 4 "\n\n(fn LOC)"]))
(defalias 'compilation--loc->visited '(macro . #[257 "\300\301E\207" [nthcdr 5] 4 "\n\n(fn LOC)"]))
(defalias 'compilation--make-file-struct '(macro . #[770 "\300\300EE\207" [cons] 8 "\n\n(fn FILE-SPEC FORMATS &optional LOC-TREE)"]))
(defalias 'compilation--file-struct->file-spec '(macro . #[257 "\300D\207" [car] 3 "\n\n(fn FS)"]))
(defalias 'compilation--file-struct->formats '(macro . #[257 "\300D\207" [cadr] 3 "\n\n(fn FS)"]))
(defalias 'compilation--file-struct->loc-tree '(macro . #[257 "\300D\207" [cdr] 3 "\n\n(fn FS)"]))
(defalias 'compilation--message-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block compilation--message-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-compilation--message-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'compilation--message-p 'compiler-macro 'compilation--message-p--cmacro)
(defalias 'compilation--message-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-compilation--message-tags vectorp 4 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put compilation--message-p side-effect-free error-free put compilation--message cl-deftype-satisfies] 4)
(defalias 'compilation--message->loc--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block compilation--message->loc (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-compilation--message-tags)) (signal 'wrong-type-argument (list 'compilation--message cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'compilation--message->loc 'compiler-macro 'compilation--message->loc--cmacro)
(defalias 'compilation--message->loc #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-compilation--message-tags 0 signal wrong-type-argument compilation--message 1] 5 "\n\n(fn CL-X)"])
(function-put 'compilation--message->loc 'side-effect-free t)
(defalias 'compilation--message->type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block compilation--message->type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-compilation--message-tags)) (signal 'wrong-type-argument (list 'compilation--message cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'compilation--message->type 'compiler-macro 'compilation--message->type--cmacro)
(defalias 'compilation--message->type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-compilation--message-tags 0 signal wrong-type-argument compilation--message 2] 5 "\n\n(fn CL-X)"])
(function-put 'compilation--message->type 'side-effect-free t)
(defalias 'compilation--message->end-loc--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block compilation--message->end-loc (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-compilation--message-tags)) (signal 'wrong-type-argument (list 'compilation--message cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'compilation--message->end-loc 'compiler-macro 'compilation--message->end-loc--cmacro)
(defalias 'compilation--message->end-loc #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-compilation--message-tags 0 signal wrong-type-argument compilation--message 3] 5 "\n\n(fn CL-X)"])
(function-put 'compilation--message->end-loc 'side-effect-free t)
(defalias 'compilation--make-message--cmacro #[1028 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (loc type end-loc) (cl-block compilation--make-message "Constructor for objects of type `compilation--message'." (declare (side-effect-free t)) (vector 'cl-struct-compilation--message loc type end-loc)) nil] 13 "\n\n(fn CL-WHOLE-ARG LOC TYPE END-LOC)"])
(put 'compilation--make-message 'compiler-macro 'compilation--make-message--cmacro)
#@80 Constructor for objects of type `compilation--message'.
(fn LOC TYPE END-LOC)
(defalias 'compilation--make-message #[771 "\300\301$\207" [vector cl-struct-compilation--message] 8 (#$ . 30818)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put compilation--make-message side-effect-free t cl-struct-define compilation--message nil cl-structure-object ((cl-tag-slot) (loc) (type) (end-loc)) cl-struct-compilation--message-tags cl-struct-compilation--message] 10)
#@260 A pair (POS . RES) caching the result of previous directory search.
Basically, this pair says that calling
(previous-single-property-change POS \='compilation-directory)
returned RES, i.e. there is no change of `compilation-directory' between
POS and RES.
(defvar compilation--previous-directory-cache nil (#$ . 31336))
(make-variable-buffer-local 'compilation--previous-directory-cache)
(defalias 'compilation--flush-directory-cache #[514 "?\206( @X\206( A\203 \301A!\203 AX\203% @\302\223\207\302\211\207" [compilation--previous-directory-cache marker-buffer nil] 5 "\n\n(fn START END)"])
#@92 Like (previous-single-property-change POS \='compilation-directory), but faster.
(fn POS)
(defalias 'compilation--previous-directory #[257 "\203 \211@W\203 A\203 AW\203 A\207\205' @X\205' @\301\302\303$\204A \304!\205; \304!B\211\202b \211\203V \211U\203V @\303\223\210A\202b \303\223\210\304!\241\210\211\305!\203n \306!\202o \211\207" [compilation--previous-directory-cache previous-single-property-change compilation-directory nil copy-marker markerp marker-position] 7 (#$ . 31948)])
(defalias 'compilation-directory-properties #[514 "\211\203 \211\225\262\302\303\224!\211\205 \304S\305\"\206 \304\305\"\262\306\203' \202( \305\2036 A\206< \307\202< \310!B\311\312\313\314\303\314$\315BBBBBB\207" [compilation-leave-directory-face compilation-enter-directory-face compilation--previous-directory 0 get-text-property compilation-directory font-lock-face (nil) match-string-no-properties compilation-message vector cl-struct-compilation--message nil (mouse-face highlight keymap compilation-button-map help-echo "mouse-2: visit destination directory")] 13 "\n\n(fn IDX LEAVE)"])
(defalias 'compilation-auto-jump #[514 "rq\210\211b\210\301\302\"\211\203 \303\"\210\210\205 \304 )\207" [compilation-auto-jump-to-first-error get-buffer-window 0 set-window-point compile-goto-error] 6 "\n\n(fn BUFFER POS)"])
(defalias 'compilation-error-properties #[1799 "\303\304\224`\305\306$?\205W\203Q \307!\203 \202! \310!\211\262;\203\226 \311!?\205F \312\304\224!\211\205D \313S\314\"\206D \313\314\"\262@B\262\210\202\226 \315`\305\"\211\203\215 \313S\305\"\206e \313\305\"\211\205} \316\304H>\204y \317\320\321D\"\210\322H8\211\203\213 \211@@@A@B\262\n\266\204\225 \323\262\210\203\252 \310!\211\262\203\252 \324!\262\203\274 \310!\211\262\203\274 \324!\262\203\333 \307!\203\315 \262\202\333 \310!\211\262\203\333 \324!\262\203\354 \307!\203\354 \262\202 \203\310!\211\262\203\324!T\262\202 \203 \325\262:\203/@\203 @\225\203 \322\202-A\203,A\225\203,\304\202-\316\262 \203F\nY\203F\326\301!\210\327\304\306\330p\304\224%\210\331&\207" [cl-struct-compilation--message-tags compilation-auto-jump-to-next compilation-skip-threshold text-property-not-all 0 compilation-message nil functionp match-string-no-properties file-name-absolute-p compilation--previous-directory get-text-property compilation-directory previous-single-property-change 2 signal wrong-type-argument compilation--message 1 ("*unknown*") string-to-number -1 kill-local-variable run-with-timer compilation-auto-jump compilation-internal-error-properties] 15 "\n\n(fn FILE LINE END-LINE COL END-COL TYPE FMT)"])
#@99 Like `beginning-of-line', but accounts for lines hidden by `selective-display'.
(fn &optional N)
(defalias 'compilation-beginning-of-line #[256 "\301=\203 \211\203 \211\302U\203 \303!\207\304\305\306\307S$\210\211\310W\205$ \303 \207" [selective-display t 1 beginning-of-line re-search-forward "[\n
]" nil end 0] 6 (#$ . 34683)])
#@144 Go to column COL on the current line.
If SCREEN is non-nil, columns are screen columns, otherwise, they are
just char-counts.
(fn COL SCREEN)
(defalias 'compilation-move-to-column #[514 "Z\262\211\203 \302\303\304]!)\207\305 \\\306 ^b\207" [compilation-first-column tab-width 8 move-to-column 0 line-beginning-position line-end-position] 5 (#$ . 35027)])
#@388 Get the meta-info that will be added as text-properties.
LINE, END-LINE, COL, END-COL are integers or nil.
TYPE can be 0, 1, or 2, meaning error, warning, or just info.
FILE should be (FILENAME) or (RELATIVE-FILENAME . DIRNAME) or nil.
FMTS is a list of format specs for transforming the file name.
(See `compilation-error-regexp-alist'.)
(fn FILE LINE END-LINE COL END-COL TYPE FMTS)
(defalias 'compilation-internal-error-properties #[1799 "\204 \303\262\304\"\211AA@\211\205 \305A@8 \306\211\211\203* \307!\2040 \306\262\202
\2048 \310\262\3112z AAA\211\205w \211@\211@V\203U \211\262 \202p @\206\\ \310Z@ZV\203k \211\262 \312\311\313\"\210A\266\202\202A \2620\210\305A@8\262@\206\212 \310\262r\307!q\210\314\300!\203\235 \202\236 \314\301!\203\250 \202\251 \212\214~\210\315!b\210 \204\313
\204\313 \316\317\n\320#!\210\202\316\317\206\324 \n\320#!\210 \203\346 \321W\203\354 \306\210\202\362 \322\f\"\210\323 \262
\203\316\317\320#!\210\f\203\322
\"\210\202\324\321!\210\323 \262+\210)A\211A\2043\211\203e\211@@?\202^\211\203T\211@@\203F@@W\202G\313\203T\211\262A\262\2023\211\203e@@=\203e\211\202lCB\241@\266\202\262\f\203A\211A\204\213\211\203\275\211@@?\202\266\211\203\254\211@@\203\236@@W\202\237\313\203\254\211\262A\262\202\213\211\203\275@@=\203\275\211\202\304CB\241@\266\202\211A\f\204\331\211\203 \211@@?\202\211\203\372\211@@\203\354\f@@W\202\355\313\203\372\211\262A\262\202\331\211\203 \f@@=\203 \211\202
CB\241@\266\202\202l\n\205l\211A\f\2040\211\203b\211@@?\202[\211\203Q\211@@\203C\f@@W\202D\313\203Q\211\262A\262\2020\211\203b\f@@=\203b\211\202i
CB\241@\266\202\262\211A
\204\201\211\203\263\211@@?\202\254\211\203\242\211@@\203\224
@@W\202\225\313\203\242\211\262A\262\202\201\211\203\263
@@=\203\263\211\202\272CB\241@\266\202\262A\204\317 \306F\241\210\211\203\347\211A\204\347\211
\206\340 \306F\241\210\325\n\326\327\330$\331\203\375\332\202\203\333\202\334\335BBBBBB\207" [compilation-error-screen-columns compilation-first-column compilation-message-face ("*unknown*") compilation-get-file-structure 3 nil marker-buffer 1 marker throw t local-variable-p marker-position compilation-beginning-of-line - -1 0 compilation-move-to-column point-marker forward-to-indentation font-lock-face compilation-message vector cl-struct-compilation--message help-echo "mouse-2: visit this file, line and column" "mouse-2: visit this file and line" "mouse-2: visit this file" (keymap compilation-button-map mouse-face highlight)] 23 (#$ . 35397)])
(defalias 'compilation--put-prop #[771 "\250\205 \224\205 \300\224\225$\207" [put-text-property] 8 "\n\n(fn MATCHNUM PROP VAL)"])
(defalias 'compilation--remove-properties #[512 "\303 \304\211\304\305\306\307\310\311!\312\"\313$\216\314\204 e\262\204# d\262\315\"\210\316\317\314$\2063 \262\320\317\"\203B \321\322#\210\211W\205N \211\262\202( \262,\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 nil compilation--flush-directory-cache next-single-property-change compilation-message get-text-property remove-list-of-text-properties (compilation-debug compilation-directory compilation-message font-lock-face help-echo mouse-face)] 10 "\n\n(fn &optional START END)"])
(defalias 'compilation--parse-region #[514 "\211b\210n\204$ m\204 \303\304!\210\305p!\211\205 \306!\307>\262\203$ \310 \262\311\"\210\2034 b\210\312!\207b\210\313 @\314#\203y \315\316\224\316\225\"\210\n\203W \317\316\224\316\225\302\320\321 \"$\210 A\211\203u \211@\322@\224@\225\323@A\"#\210A\266\202\202Y \210\2027 \324\"\207" [compilation-parse-errors-function compilation-directory-matcher compilation-debug cl--assertion-failed (eobp) get-buffer-process process-status (run open) line-beginning-position compilation--remove-properties compilation--compat-parse-errors re-search-forward t compilation--flush-directory-cache 0 font-lock-append-text-property vector directory add-text-properties compilation-directory-properties compilation-parse-errors] 10 "\n\n(fn START END)"])
#@186 Parse errors between START and END.
The errors recognized are the ones specified in RULES which default
to `compilation-error-regexp-alist' if RULES is nil.
(fn START END &rest RULES)
(defalias 'compilation-parse-errors #[642 "\211\206 \211\205\370\211@\2119\203 \211 \236A\262\211A@\3068\3078\3108@\311\211\211\211\312>\203> \313\314\"\204> \315\316\311OP\262:\203N A\262@\262 :\203^ A\262@\262:\203n A\262@\262\317!\203\315
b\210\320\321#\203\357\322 \323\324\325\326\327!\330\"\307$\216\n\203\241 \331\324\224\324\225\302\327\317\"$\210\332\324\224\324\225\333\f\334! \310\233BB
\205\275 \334!\"!#\210)\210\335 \336\f#\210\202y \337\n8\203\344 \337\n8\250\204\344 \340\341\337\f8\"\210
b\210\320\321#\203\357\342 \n \206\306&\211\262\203\350 \250\203.\335 \336:\203#\343 !\202,\344 \206*\306HJ#\210\335\336
#\210\335\336
#\210\335\336+#\210\335\336+#\210\345\n\233\211\203\272\211@\211A\262\242\211\224\203\262\346@!\211\203\261\2119\204q\211;\203}\347\224\225\336$\210\202\261\211<\203\254\211@\350=\203\254\211A@9\204\227\211A@;\203\254\335\336A@#\210\332\224\225AA#\210\202\261\340\351\"\210\210\210A\266\202\202N\210\337\n8\206\303\324\n\203\326\331\324\224\324\225\302\327\352#$\210\332\224\225AA#\210\331\224\225\336A@$\266\202\350 \266 A\266\202\202 \207" [compilation-error-regexp-alist compilation-error-regexp-alist-alist compilation-debug default-directory compilation-error-face compilation-line-face 2 3 4 nil omake string-match "\\`\\([^^]\\|\\^\\( \\*\\|\\[\\)\\)" "^ *" 1 functionp re-search-forward t match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] font-lock-append-text-property add-text-properties compilation--compat-error-properties match-string compilation--put-prop font-lock-face 5 error "HYPERLINK should be an integer: %s" compilation-error-properties compilation-face [compilation-info-face compilation-warning-face compilation-error-face] 6 eval put-text-property face "Don't know how to handle face %S" std compilation-column-face] 24 (#$ . 39753)])
(defvar compilation--parsed -1)
(make-variable-buffer-local 'compilation--parsed)
#@61 Make sure the text has been parsed up to LIMIT.
(fn LIMIT)
(defalias 'compilation--ensure-parse #[257 "\212\211b\210\304\305!\262\306!\204 \307 W\203T e]\310\223\210\211b\210\311y\210o\2048 \312`S\313\"\2038 \314y\210\202& \315 \316\211\316\317\311\320\321\322!\323\"\305$\216\324`\"\210,\266)\310\207" [compilation--parsed buffer-undo-list inhibit-read-only inhibit-modification-hooks line-beginning-position 2 markerp point-min-marker nil 0 get-text-property compilation-multiline -1 buffer-modified-p t make-byte-code "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] compilation--parse-region] 10 (#$ . 42008)])
#@71 Mark the region between START and END for re-parsing.
(fn START END)
(defalias 'compilation--flush-parse #[514 "\301!\205\f ^\302\223\207" [compilation--parsed markerp nil] 5 (#$ . 42670)])
#@54 Return expressions to highlight in Compilation mode.
(defalias 'compilation-mode-font-lock-keywords #[0 "\301\302\"\207" [compilation-mode-font-lock-keywords append ((compilation--ensure-parse))] 3 (#$ . 42871)])
(defalias 'compilation-read-command #[257 "\301\302@\232\203 \303\202 \300#\207" [compile-history read-shell-command "Compile command: " (compile-history . 1)] 6 "\n\n(fn COMMAND)"])
#@1212 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.
If optional second arg COMINT is t the buffer will be in Comint mode with
`compilation-shell-minor-mode'.
Interactively, prompts for the command if the variable
`compilation-read-command' is non-nil; otherwise uses `compile-command'.
With prefix arg, always prompts.
Additionally, with universal prefix arg, compilation buffer will be in
comint mode, i.e. interactive.
To run more than one compilation at once, start one then rename
the `*compilation*' buffer to some other name with
\[rename-buffer]. Then _switch buffers_ and start the new compilation.
It will create a new `*compilation*' buffer.
On most systems, termination of the main compilation process
kills its subprocesses.
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.
(fn COMMAND &optional COMINT)
(defalias 'compile #[513 "\304!\232\204\n \305 ?\n\"\210\306\307 \"\210\310\"\207" [compile-command compilation-ask-about-save compilation-save-buffers-predicate default-directory eval save-some-buffers set-default compilation-directory compilation-start] 5 (#$ . 43281) (byte-code "\303! \204 \n\203 \301!\202 \211\262\n:D\207" [compile-command compilation-read-command current-prefix-arg eval] 3)])
#@298 Re-compile the program including the current buffer.
If this is run in a Compilation mode buffer, re-use the arguments from the
original use. Otherwise, recompile using `compile-command'.
If the optional argument `edit-command' is non-nil, the command can be edited.
(fn &optional EDIT-COMMAND)
(defalias 'recompile #[256 "\306? \"\210\n\206 \307\f!\203& \310
@\206 !\262
\203&
\240\210\311\312
\206. C\")\207" [compilation-ask-about-save compilation-save-buffers-predicate compilation-directory default-directory compile-command compilation-arguments save-some-buffers eval compilation-read-command apply compilation-start] 6 (#$ . 44912) "P"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable compilation-scroll-output funcall function #[0 "\300\207" [nil] 1] "Non-nil to scroll the *compilation* buffer window as output appears.\n\nSetting it causes the Compilation mode commands to put point at the\nend of their output window so that the end of the output is always\nvisible rather than the beginning.\n\nThe value `first-error' stops scrolling at the first error, and leaves\npoint on its location in the *compilation* buffer." :type (choice (const :tag "No scrolling" nil) (const :tag "Scroll compilation output" t) (const :tag "Stop scrolling at the first error" first-error)) :version "20.3" :group compilation] 10)
#@420 Return the name of a compilation buffer to use.
If NAME-FUNCTION is non-nil, call it with one argument NAME-OF-MODE
to determine the buffer name.
Likewise if `compilation-buffer-name-function' is non-nil.
If current buffer has the major mode MODE-COMMAND,
return the name of the current buffer, so that it gets reused.
Otherwise, construct a buffer name from NAME-OF-MODE.
(fn NAME-OF-MODE MODE-COMMAND NAME-FUNCTION)
(defalias 'compilation-buffer-name #[771 "\211\203 \211!\207\203 !\207 =\203 \302 \207\303\227\303Q\207" [compilation-buffer-name-function major-mode buffer-name "*"] 6 (#$ . 46304)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable compilation-always-kill funcall function #[0 "\300\207" [nil] 1] "If t, always kill a running compilation process before starting a new one.\nIf nil, ask to kill it." :type boolean :version "24.3" :group compilation] 10)
#@901 Run compilation command COMMAND (low level interface).
If COMMAND starts with a cd command, that becomes the `default-directory'.
The rest of the arguments are optional; for them, nil means use the default.
MODE is the major mode to set in the compilation buffer. Mode
may also be t meaning use `compilation-shell-minor-mode' under `comint-mode'.
If NAME-FUNCTION is non-nil, call it with one argument (the mode name)
to determine the buffer name. Otherwise, the default is to
reuses the current buffer if it has the proper major mode,
else use or create a buffer with name based on the major mode.
If HIGHLIGHT-REGEXP is non-nil, `next-error' will temporarily highlight
the matching section of the visited source line; the default is to use the
global value of `compilation-highlight-regexp'.
Returns the compilation buffer created.
(fn COMMAND &optional MODE NAME-FUNCTION HIGHLIGHT-REGEXP)
(defalias 'compilation-start #[1025 "\204 \306\262\307=\203 \310\202 \311\312\313\314!# \315\211r\316\317\n\n#!\211\262q\210\320p!\211\203o \321!\322=\203N \323!\315=\204N \324\325\326\"!\203i \3271a \330!\210\331\332!\210\333!0\202e \210\202o \210\202o \334\335\336 \"\210\210\307\337\340\341 \"\204\203 \202\325 \332\225\204\214 \342\202\325 \332\224H\343=\203\242 \332\224T\332\225SO\202\325 \332\224H\344=\203\274 \311\345\346\f\332\224T\332\225SO#\202\325 \347\350\332\f\"!\351!\211G\332U\203\322 \211@\202\323 \266\202!\210\352 \210\307=\204\353 \353 \210 \210\202\363 \315\354 \210\355 \210\356\304!\210\356\301!\210\203 \356\305!\210@\204A\357=\203 \356\360!\210\3070\361\362\363\364!!\365\325\366B\367 \370\371O#\372\261\210\262*\373\315!\210)\374\375\"\262r\211q\210\376 \377\201C !\203jC\203j\201P \201Q \325\201R \201S \"E\202w\201T \325\201U \201S \"D\325\201V D\"C\201W E!$ E\356\201F !\210FF\356\201G !\210\201X G\203\264A\204\264\201Y e\"\210A\203\275d\202\276e\211b\210\203\325\201Z =\204\325\201[ \"\210\210H\203\337H \210\203\351\201\\ !\210\201] \201^ !\203\207\307=\203 \320\201_ B\227\201` !\203\201a \202I\315\201b D%!\202(\201c B\227 #\201d JK\2039\201e \315\"\210\201f \201g \"\210\307=\204R\201h \201i \"\210\201j !d\223\210L\203t\201k 1o\201l !0\202s\210\202t\210\201m \201n \"\210\211MBM\210\202\201o \201p \n\"\210\201q J\201r \210\331\370!\210\212db\210\307` N\201s I\315\315\201b &\201t \201u !\210\211\247\203\342\201v \201w \211\370U\203\327\201x \202\335\325\201y \"#\210\202 \211;\203\366\201v \201z \211\372P#\210\202 \201v \201{ \211#\210*\210)\373\315!\210\201o \201| \n\"\210)A\203 db\210)\211\211O\207" [default-directory compilation-environment inhibit-read-only buffer-read-only compilation-directory compilation-highlight-regexp compilation-mode t "compilation" replace-regexp-in-string "-mode\\'" "" symbol-name nil get-buffer-create compilation-buffer-name get-buffer-process process-status run process-query-on-exit-flag yes-or-no-p format "A %s process is running; kill it? " (error) interrupt-process sit-for 1 delete-process error "Cannot have two processes in `%s' at once" buffer-name cd string-match "\\`\\s *cd\\(?:\\s +\\(\\S +?\\|'[^']*'\\|\"\\(?:[^\"`$\\]\\|\\\\.\\)*\"\\)\\)?\\s *[;&\n]" "~" 39 34 "\\\\\\(.\\)" "\\1" substitute-env-vars match-string file-expand-wildcards erase-buffer buffer-disable-undo comint-mode compilation-shell-minor-mode make-local-variable first-error compilation-auto-jump-to-next "-*- mode: " "; default-directory: " prin1-to-string abbreviate-file-name " -*-\n" "%s started at %s\n\n" current-time-string 0 19 "\n" set-buffer-modified-p display-buffer (nil (allow-no-window . t)) append boundp compilation-auto-jump-to-first-error compilation-scroll-output mode-name system-uses-terminfo emacs-version process-environment compilation-arguments revert-buffer-function compilation-process-setup-function shell-file-name mode-line-process compilation-always-kill compilation-disable-input compilation-in-progress compilation-filter-start next-error-last-buffer "TERM=dumb" "TERMCAP=" "COLUMNS=%d" window-width "TERM=emacs" "TERMCAP=emacs:co#%d:tc=unknown:" "INSIDE_EMACS=%s,compile" copy-sequence compilation-revert-buffer set-window-start selected-window set-window-point compilation-set-window-height fboundp make-process comint-exec file-remote-p "/bin/sh" "-c" start-file-process-shell-command (:propertize ":%s" face compilation-mode-line-run) set-process-query-on-exit-flag set-process-sentinel compilation-sentinel set-process-filter compilation-filter process-mark (error) process-send-eof run-hook-with-args compilation-start-hook message "Executing `%s'..." (:propertize ":run" face compilation-mode-line-run) force-mode-line-update call-process run-hooks compilation-filter-hook compilation-handle-exit exit "finished\n" "exited abnormally with code %d\n" signal bizarre "Executing `%s'...done"] 20 (#$ . 47239)])
#@81 Set the height of WINDOW according to `compilation-window-height'.
(fn WINDOW)
(defalias 'compilation-set-window-height #[257 "\300\301\302!\"\211\2059 \303!\2059 \304\305!!=?\2059 \212\306 r\307\310\311\312\313!\314\"\315$\216\316!\210\317\320 Z!*\262)\207" [buffer-local-value compilation-window-height window-buffer window-full-width-p frame-root-window window-frame internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 select-window enlarge-window window-height] 9 (#$ . 52224)])
(defvar compilation-menu-map (byte-code "\300\301!\300\302!\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313B#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\207" [make-sparse-keymap "Errors" "Skip" define-key [stop-subjob] (menu-item "Stop Compilation" kill-compilation :help "Kill the process made by the M-x compile or M-x grep commands") [compilation-mode-separator3] ("----") [compilation-next-error-follow-minor-mode] (menu-item "Auto Error Display" next-error-follow-minor-mode :help "Display the error under cursor when moving the cursor" :button (:toggle . next-error-follow-minor-mode)) [compilation-skip] "Skip Less Important Messages" [compilation-skip-none] (menu-item "Don't Skip Any Messages" (lambda nil (interactive) (customize-set-variable 'compilation-skip-threshold 0)) :help "Do not skip any type of messages" :button (:radio eq compilation-skip-threshold 0)) [compilation-skip-info] (menu-item "Skip Info" (lambda nil (interactive) (customize-set-variable 'compilation-skip-threshold 1)) :help "Skip anything less than warning" :button (:radio eq compilation-skip-threshold 1)) [compilation-skip-warning-and-info] (menu-item "Skip Warnings and Info" (lambda nil (interactive) (customize-set-variable 'compilation-skip-threshold 2)) :help "Skip over Warnings and Info, stop for errors" :button (:radio eq compilation-skip-threshold 2)) [compilation-mode-separator2] ("----") [compilation-first-error] (menu-item "First Error" first-error :help "Restart at the first error, visit corresponding source code") [compilation-previous-error] (menu-item "Previous Error" previous-error :help "Visit previous `next-error' message and corresponding source code") [compilation-next-error] (menu-item "Next Error" next-error :help "Visit next `next-error' message and corresponding source code")] 7))
#@38 Keymap for `compilation-minor-mode'.
(defvar compilation-minor-mode-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\310#\210\304\311\306#\210\304\312\306#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331\332 B#\210\211\207" [special-mode-map compilation-menu-map make-sparse-keymap set-keymap-parent define-key [mouse-2] compile-goto-error [follow-link] mouse-face "" "
" "" compilation-display-error " " kill-compilation "\356" compilation-next-error "\360" compilation-previous-error "\373" compilation-previous-file "\375" compilation-next-file "g" recompile [menu-bar compilation] "Errors"] 6) (#$ . 54711))
#@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\316B#\210\211\207" [compilation-menu-map make-sparse-keymap define-key "\215" compile-goto-error "\216" compilation-next-error "\220" compilation-previous-error "\373" compilation-previous-file "\375" compilation-next-file [menu-bar compilation] "Errors"] 6) (#$ . 55438))
#@41 Keymap for compilation-message buttons.
(defvar compilation-button-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\303#\210\211\207" [make-sparse-keymap define-key [mouse-2] compile-goto-error [follow-link] mouse-face "
"] 5) (#$ . 55919))
(fset 'compilation-button-map compilation-button-map)
#@87 Keymap for compilation log buffers.
`compilation-minor-mode-map' is a parent of this.
(defvar compilation-mode-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\310#\210\304\311\306#\210\304\312\306#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\320#\210\304\330\322#\210\304\331\332#\210\304\333\334#\210\302\335!\304\336\335B#\210\303 \"\266\304\337\340#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\211\207" [special-mode-map compilation-menu-map make-sparse-keymap set-keymap-parent define-key [mouse-2] compile-goto-error [follow-link] mouse-face "" "
" "" compilation-display-error " " kill-compilation "\356" compilation-next-error "\360" compilation-previous-error "\373" compilation-previous-file "\375" compilation-next-file " " [backtab] "g" recompile "" next-error-follow-minor-mode "Compile" [menu-bar compilation] [menu-bar compilation compilation-separator2] ("----") [menu-bar compilation compilation-grep] (menu-item "Search Files (grep)..." grep :help "Run grep, with user-specified args, and collect output in a buffer") [menu-bar compilation compilation-recompile] (menu-item "Recompile" recompile :help "Re-compile the program including the current buffer") [menu-bar compilation compilation-compile] (menu-item "Compile..." compile :help "Compile the program including the current buffer. Default: run `make'")] 7) (#$ . 56238))
(defvar compilation-mode-tool-bar-map (byte-code "\302!\205L \303!\304\305\306#\210\304\307\306#\210\310\311 #\210\312\313\314\211\315\316\317\320&\210\312\316\321\211\315\313\317\322&\210\312\323\324\211\325\326\317\327&\210\312\330\331\211\317\332&\210\211\262\207" [tool-bar-map menu-bar-separator keymapp copy-keymap define-key [undo] nil [separator-2] define-key-after [separator-compile] tool-bar-local-item "left-arrow" previous-error-no-select :rtl "right-arrow" :help "Goto previous error" next-error-no-select "Goto next error" "cancel" kill-compilation :enable (let ((buffer (compilation-find-buffer))) (get-buffer-process buffer)) "Stop compilation" "refresh" recompile "Restart compilation"] 10))
(put 'compilation-mode 'mode-class 'special)
#@350 Major mode for compilation log buffers.
\<compilation-mode-map>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-mode-hooks' (which see).
\{compilation-mode-map}
(fn &optional NAME-OF-MODE)
(defalias 'compilation-mode #[256 "\306 \210\307!\210\310\301!\210\311\310\303!\210\n\312\211\206 \313\310\314!\210\f\315 \210\310\316!\210\317\311\320\321!\207" [compilation-mode-map window-point-insertion-type compilation-mode-tool-bar-map tool-bar-map major-mode mode-name kill-all-local-variables use-local-map make-local-variable t compilation-mode "Compilation" page-delimiter compilation-setup jit-lock-defer-time nil run-mode-hooks compilation-mode-hook compilation-page-delimiter buffer-read-only] 3 (#$ . 58481) nil])
(put 'define-compilation-mode 'doc-string-elt 3)
#@355 This is like `define-derived-mode' without the PARENT argument.
The parent is always `compilation-mode' and the customizable `compilation-...'
variables are also set from the name of the mode you have chosen,
by replacing the first word, e.g., `compilation-scroll-output' from
`grep-scroll-output' if that variable exists.
(fn MODE NAME DOC &rest BODY)
(defalias 'define-compilation-mode '(macro . #[899 "\301\302\303\304!#\305\306\307\310\311\312\"\")BBBBB\207" [mode-name replace-regexp-in-string "-mode\\'" "" symbol-name define-derived-mode compilation-mode append mapcar #[257 "\211\302\303\304\305!#!B\262\211A\2051 \306A!\204' \306\301!\2051 \211A >\2051 \307\310\311@DDAE\207" [mode-name byte-compile-bound-variables intern-soft replace-regexp-in-string "^compilation" symbol-name boundp set make-local-variable quote] 8 "\n\n(fn V)"] (compilation-buffer-name-function compilation-directory-matcher compilation-error compilation-error-regexp-alist compilation-error-regexp-alist-alist compilation-error-screen-columns compilation-finish-function compilation-finish-functions compilation-first-column compilation-mode-font-lock-keywords compilation-page-delimiter compilation-parse-errors-filename-function compilation-process-setup-function compilation-scroll-output compilation-search-path compilation-skip-threshold compilation-window-height)] 13 (#$ . 59427)]))
(defalias 'compilation-revert-buffer #[514 "\203\f \303\304\")\207\211\204 \305\306\307!!\205 \310\311\n\"\207" [buffer-file-name revert-buffer-function compilation-arguments nil revert-buffer yes-or-no-p format "Restart compilation? " apply compilation-start] 5 "\n\n(fn IGNORE-AUTO NOCONFIRM)"])
#@132 Marker to the location from where the next error will be found.
The global commands next/previous/first-error/goto-error use this.
(defvar compilation-current-error nil (#$ . 61127))
#@100 Buffer position of the beginning of the compilation messages.
If nil, use the beginning of buffer.
(defvar compilation-messages-start nil (#$ . 61317))
#@168 Prepare the buffer for the compilation parsing commands to work.
Optional argument MINOR indicates this is called from
`compilation-minor-mode'.
(fn &optional MINOR)
(defalias 'compilation-setup #[256 "\306\307!\210\306\310!\210\306\311!\210\306\312!\210\306\300!\210\313\314\315\316\317\314\320$\210\321\306\304!\210\322 !\206, \313\306\305!\210\323\324\325\326\327$\315\330\331\314\320$\210\315\332\333\314\320$\210\211\203S \334\314\335 \"\210\336 \207\337\211 \207" [overlay-arrow-string next-error-overlay-arrow-position next-error-function default-directory comint-file-name-prefix compilation-locs make-local-variable compilation-current-error compilation-messages-start compilation-error-screen-columns overlay-arrow-position "" nil add-hook kill-buffer-hook #[0 "\301\211\207" [next-error-overlay-arrow-position nil] 2] t compilation-next-error-function file-remote-p make-hash-table :test equal :weakness value before-change-functions compilation--flush-parse change-major-mode-hook compilation--remove-properties font-lock-add-keywords compilation-mode-font-lock-keywords font-lock-flush (compilation-mode-font-lock-keywords t) font-lock-defaults] 6 (#$ . 61476)])
(defalias 'compilation--unsetup #[0 "\300\301\302 \"\210\303\304\305\306#\210\307\310!\210\311 \210\312 \207" [font-lock-remove-keywords nil compilation-mode-font-lock-keywords remove-hook before-change-functions compilation--flush-parse t kill-local-variable compilation--parsed compilation--remove-properties font-lock-flush] 4])
#@125 Non-nil if Compilation-Shell minor mode is enabled.
Use the command `compilation-shell-minor-mode' to change this variable.
(defvar compilation-shell-minor-mode nil (#$ . 62999))
(make-variable-buffer-local 'compilation-shell-minor-mode)
#@432 Toggle Compilation Shell minor mode.
With a prefix argument ARG, enable Compilation Shell minor mode
if ARG is positive, and disable it otherwise. If called from
Lisp, enable the mode if ARG is omitted or nil.
When Compilation Shell minor mode is enabled, all the
error-parsing commands of the Compilation major mode are
available but bound to keys that don't collide with Shell mode.
See `compilation-mode'.
(fn &optional ARG)
(defalias 'compilation-shell-minor-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203 \305\306!\210\202! \307 \210\310\311\203+ \312\202, \313\"\210\314\315!\203P \301 \203@ \211\301 \232\203P \316\317\320\203K \321\202L \322#\266\210\323 \210\207" [compilation-shell-minor-mode current-message toggle prefix-numeric-value 0 compilation-setup t compilation--unsetup run-hooks compilation-shell-minor-mode-hook compilation-shell-minor-mode-on-hook compilation-shell-minor-mode-off-hook called-interactively-p any " in current buffer" message "Compilation-Shell minor mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 63244) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@193 Hook run after entering or leaving `compilation-shell-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar compilation-shell-minor-mode-hook nil (#$ . 64390))
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [compilation-shell-minor-mode-map add-minor-mode compilation-shell-minor-mode " Shell-Compile" boundp nil] 6)
#@113 Non-nil if Compilation minor mode is enabled.
Use the command `compilation-minor-mode' to change this variable.
(defvar compilation-minor-mode nil (#$ . 64815))
(make-variable-buffer-local 'compilation-minor-mode)
#@358 Toggle Compilation minor mode.
With a prefix argument ARG, enable Compilation minor mode if ARG
is positive, and disable it otherwise. If called from Lisp,
enable the mode if ARG is omitted or nil.
When Compilation minor mode is enabled, all the error-parsing
commands of Compilation major mode are available. See
`compilation-mode'.
(fn &optional ARG)
(defalias 'compilation-minor-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203 \305\306!\210\202! \307 \210\310\311\203+ \312\202, \313\"\210\314\315!\203P \301 \203@ \211\301 \232\203P \316\317\320\203K \321\202L \322#\266\210\323 \210\207" [compilation-minor-mode current-message toggle prefix-numeric-value 0 compilation-setup t compilation--unsetup run-hooks compilation-minor-mode-hook compilation-minor-mode-on-hook compilation-minor-mode-off-hook called-interactively-p any " in current buffer" message "Compilation minor mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 65036) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@187 Hook run after entering or leaving `compilation-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar compilation-minor-mode-hook nil (#$ . 66072))
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [compilation-minor-mode-map add-minor-mode compilation-minor-mode " Compilation" boundp nil] 6)
#@104 Write MSG in the current buffer and hack its `mode-line-process'.
(fn PROCESS-STATUS EXIT-STATUS MSG)
(defalias 'compilation-handle-exit #[771 "\306\203
#\202 Bd`pb\210\307\n\310@\261\210 \247\2032 \311U\2032 \312\313A\"\210n\2039 \314u\210\315\316 \311\317O\261\210db\210\320`\321\322\323\"#\210\324\325 A#\324\326\n\327\330\331\n@##\312\313\"\210\332\333\334
\311V\203v \335\202w \336%\266\202\337 \210\203\213 W\203\213 b\210
\203\225
\"\210\340\341#)\207" [compilation-exit-message-function inhibit-read-only mode-name compilation-window-height mode-line-process compilation-finish-function t 10 " " 0 message "%s" -1 " at " current-time-string 19 add-text-properties append (compilation-handle-exit t) nil format ":%s [%s]" "%s %s" replace-regexp-in-string "\n?$" "" propertize help-echo face compilation-mode-line-fail compilation-mode-line-exit force-mode-line-update run-hook-with-args compilation-finish-functions] 17 (#$ . 66471)])
#@50 Sentinel for compilation buffers.
(fn PROC MSG)
(defalias 'compilation-sentinel #[514 "\301!\302>\2054 \303!\304!\204 \305\306\"\210\202, r\211q\210\307\301!\310!#\210\311!\210)\312\"\211\262\207" [compilation-in-progress process-status (exit signal) process-buffer buffer-name set-process-buffer nil compilation-handle-exit process-exit-status delete-process delq] 7 (#$ . 67459)])
#@182 Process filter for compilation buffers.
Just inserts the text,
handles carriage motion (see `comint-inhibit-carriage-motion'),
and runs `compilation-filter-hook'.
(fn PROC STRING)
(defalias 'compilation-filter #[514 "\303\304!!\205V r\304!q\210\305\306`\305\"\307 \306d\305\"\310\311!!\312\313\314\315\316#\317\"\320$\216~\210b\210c\210\n\204G \321\311!`\"\210\311!`\322\223\210\323\324!+\266\204)\207" [compilation-filter-start inhibit-read-only comint-inhibit-carriage-motion buffer-live-p process-buffer t copy-marker point-min-marker marker-position process-mark make-byte-code 0 "\300b\210\301\302}\210\300\303\211\223\210\301\303\211\223\210\302\303\211\223\207" vconcat vector [nil] 3 comint-carriage-motion nil run-hooks compilation-filter-hook] 14 (#$ . 67863)])
#@38 Test if inside a compilation buffer.
(defalias 'compilation-buffer-internal-p #[0 "\300\301!\207" [local-variable-p compilation-locs] 2 (#$ . 68661)])
(put 'compilation-buffer-internal-p 'byte-optimizer 'byte-compile-inline-expand)
#@54 Test if BUFFER is a compilation buffer.
(fn BUFFER)
(defalias 'compilation-buffer-p #[257 "r\211q\210\300\301!)\207" [local-variable-p compilation-locs] 3 (#$ . 68899)])
(put 'compilation-buffer-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'compilation-loop '(macro . #[1285 "\300\301\302\303B\304\305\306\307 \310BE\311\305\312\313 \314BB\315BB\316BB\317 \320BB\306\307\fEFE\305\321\311\306\307\307\322\323\257E\324BB\317 \325BBF\305\326\327\330\331\306\332\333BE\257\257E\207" [let (opt) while (n 0) (setq opt pt) or setq pt (pt 'compilation-message) if eq get-text-property ('compilation-message) ((get-text-property opt 'compilation-message)) ((eq pt opt)) user-error (compilation-error) (setq msg (get-text-property pt 'compilation-message)) 'compilation-message nil ((setq msg (get-text-property pt 'compilation-message))) (compilation-error) (< (compilation--message->type msg) compilation-skip-threshold) (if different-file (eq (prog1 last (setq last (compilation--loc->file-struct (compilation--message->loc msg)))) last)) (if compilation-skip-visited (compilation--loc->visited (compilation--message->loc msg))) (if compilation-skip-to-next-location (eq (compilation--message->loc msg) loc)) n (n)] 21 "\n\n(fn < PROPERTY-CHANGE 1+ ERROR LIMIT)"]))
(defalias 'compilation-next-single-property-change #[1026 "\301\211\302\303\\\206
d^]\211\262!\210\304$\211\262\203* \211=\203: \2060 dW\203: \262\202 \207" [compilation--parsed nil compilation--ensure-parse 500 next-single-property-change] 11 "\n\n(fn POSITION PROP &optional OBJECT LIMIT)"])
#@456 Move point to the next error in the compilation buffer.
This function does NOT find the source line like \[next-error].
Prefix arg N says how many error messages to move forwards (or
backwards, if negative).
Optional arg DIFFERENT-FILE, if non-nil, means find next error for a
file that is different from the current one.
Optional arg PT, if non-nil, specifies the value of point to start
looking for the next message.
(fn N &optional DIFFERENT-FILE PT)
(defalias 'compilation-next-error #[769 "pr\211q\210\305\306!)\262\204 \307\310!\210\211\204 `\262\311!\210\312\313\"\211\2057 \211\314H>\2044 \315\316\317D\"\210\211\320H\321\314U\203~ \204J\312Se]\313\"\211\262\204J\322\313\321\323 $\262\312Se]\313\"\211\262\204J\324\313\321\325 $\262\312\313\"\211\262\204J`\262\202J\3268\262\314Y\203q\321\314V\203m\262\324\313\"\211\262\204\305 \312d\313\"\312\313\"=\204\260 =\203\302 \327\330p!\203\273 \331\202\274 \332 \"\210\202\305 d\262\312\313\"\211\262\204\364 \324\313\321d$\211\262\203\345 \312\313\"\211\262\204\364 \327\330p!\203\360 \331\202\361 \332 \"\210\314H>\204\315\316\317D\"\210\326H\nW\204\212 \203-\326\314H>\204\"\315\316\317D\"\210\320H8\262=\204\212 \203I\333\314H>\204B\315\316\317D\"\210\320H\233\204\212 \f\203e\314H>\204]\315\316\317D\"\210\320H=\204\212 S\262\202\212 \210\202J\322\313\321e$\262\321\314W\203I\262\322\313\"\211\262\204\253\312e\313\"\312\313\"=\204\240=\203\250\327\334 \"\210\202\253e\262\312\313\"\211\262\204\320\322\313\321e$\211\262\203\313\312\313\"\211\262\204\320\327\334 \"\210\314H>\204\340\315\316\317D\"\210\326H\nW\204z\203 \326\314H>\204\376\315\316\317D\"\210\320H8\262=\204z \203%\333\314H>\204 \315\316\317D\"\210\320H\233\204z\f\203A\314H>\2049\315\316\317D\"\210\320H=\204zT\262\202z\210b\210\206U\307\335 \"\207" [cl-struct-compilation--message-tags compilation-error compilation-skip-threshold compilation-skip-visited compilation-skip-to-next-location local-variable-p compilation-locs error "Not in a compilation buffer" compilation--ensure-parse get-text-property compilation-message 0 signal wrong-type-argument compilation--message 1 nil previous-single-property-change line-beginning-position compilation-next-single-property-change line-end-position 2 user-error get-buffer-process "No more %ss yet" "Moved past last %s" 5 "Moved back before first %s" "No %s here"] 13 (#$ . 70509) "p"])
#@211 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 \[previous-error].
(fn N)
(defalias 'compilation-previous-error #[257 "\300[!\207" [compilation-next-error] 3 (#$ . 73029) "p"])
#@160 Move point to the next error for a different file than the current one.
Prefix arg N says how many files to move forwards (or backwards, if negative).
(fn N)
(defalias 'compilation-next-file #[257 "\300\301\"\207" [compilation-next-error t] 4 (#$ . 73350) "p"])
#@164 Move point to the previous error for a different file than the current one.
Prefix arg N says how many files to move backwards (or forwards, if negative).
(fn N)
(defalias 'compilation-previous-file #[257 "\300[!\207" [compilation-next-file] 3 (#$ . 73621) "p"])
#@57 Display the source for current error in another window.
(defalias 'compilation-display-error #[0 "`\301\302!\207" [compilation-current-error next-error-no-select 0] 2 (#$ . 73892) nil])
#@62 Kill the process made by the \[compile] or \[grep] commands.
(defalias 'kill-compilation #[0 "\301 \302!\203 \303\302!!\202 \304\305\227\"\207" [mode-name compilation-find-buffer get-buffer-process interrupt-process error "The %s process is not running"] 4 (#$ . 74085) nil])
(defalias 'compile-mouse-goto-error 'compile-goto-error)
#@118 Visit the source for the error message at point.
Use this command in a compilation log buffer.
(fn &optional EVENT)
(defalias 'compile-goto-error #[256 "\211\203\n \301\302!!\210pr\211q\210\303\304!)\262\204 \305\306!\210\307`!\210\310`\311\"\203/ \312\310`\311\"@!\207`\313 \207" [compilation-current-error posn-set-point event-end local-variable-p compilation-locs error "Not in a compilation buffer" compilation--ensure-parse get-text-property compilation-directory dired-other-window next-error-internal] 5 (#$ . 74430) (list last-input-event)])
#@223 Return a compilation buffer.
If AVOID-CURRENT is nil, and the current buffer is a compilation buffer,
return it. If AVOID-CURRENT is non-nil, return the current buffer only
as a last resort.
(fn &optional AVOID-CURRENT)
(defalias 'compilation-find-buffer #[256 "\300\301!\203\f \211\204\f p\207\302\303\"\207" [local-variable-p compilation-locs next-error-find-buffer compilation-buffer-internal-p] 4 (#$ . 74992)])
#@166 Advance to the next error message and visit the file where the error was.
This is the value of `next-error-function' in Compilation buffers.
(fn N &optional RESET)
(defalias 'compilation-next-error-function #[513 "\211\203 \306 \n\307\310\206 \307\306\206 \206 e#\211\311H\f>\204) \312\313\314D\"\210\211\307H\311H\f>\204; \312\313\314D\"\210\315H\316 \316 n\203K \202O \317\320 !\3158\203^ \321\3158!\204r\322\323\3248@@\3248@A@\3248A@%q\210\325\301!\203\202 \202\204 \325\302!\203\216 \n\202\220 \214~\210eb\210\326\3248AA!\211\203\n\211@\211@\203\267 \327\330@\n\331#!\210\211@\262\211A\211\203\211@\211@\203\333 \211@\331=\203\321 \306\210\202\342 \332@\"\210\202\342 \333 \210\334\306w\210\3158\203\362 \3158`\306\223\210\202\373 \315\233\211\316 \240\266A\266\202\202\271 \210A\266\202\202\236 \210*\210)\335\3158\3158#\210\336\233\337\241\207" [compilation-current-error compilation-error-screen-columns compilation-first-column compilation-messages-start cl-struct-compilation--message-tags overlay-arrow-position nil 1 compilation-next-error 0 signal wrong-type-argument compilation--message 3 point-marker copy-marker line-beginning-position marker-buffer apply compilation-find-file 2 local-variable-p reverse compilation-beginning-of-line - -1 compilation-move-to-column beginning-of-line " " compilation-goto-locus 4 t] 17 (#$ . 75418) "p"])
#@61 Internal variable used to keep some values from being GC'd.
(defvar compilation-gcpro nil (#$ . 76834))
(make-variable-buffer-local 'compilation-gcpro)
#@800 Preassociate MARKER with FILE.
FILE should be ABSOLUTE-FILENAME or (RELATIVE-FILENAME . DIRNAME).
This is useful when you compile temporary files, but want
automatic translation of the messages to the real buffer from
which the temporary file came. This may also affect previous messages
about FILE.
Optional args LINE and COL default to 1 and beginning of
indentation respectively. The marker is expected to reflect
this. In the simplest case the marker points to the first line
of the region that was saved to the temp file.
If you concatenate several regions into the temp file (e.g. a
header with variable assignments and a code region), you must
call this several times, once each for the last line of one
region and the first line of the next region.
(fn MARKER FILE &optional LINE COL)
(defalias 'compilation-fake-loc #[1026 ":\204 C\262\301!\210\302!\211B\211A\211A\211\203< \211@@\203. \206' \303@@W\202/ \304\203< \211\262A\262\202 \211\203P \206E \303@@=\203P \211\202Z \206V \303CB\241@\266\202\211\211A\204o \211\203\237 \211@@?\202\230 \211\203\217 \211@@\203\201 @@W\202\202 \304\203\217 \211\262A\262\202o \211\203\237 @@=\203\237 \211\202\245 CB\241@\266\202\262\211A\203\263 \305\306!\210\211\307F\241\210\211\262\207" [compilation-gcpro compilation--flush-file-structure compilation-get-file-structure 1 t cl--assertion-failed (null (cdr loc)) nil] 11 (#$ . 76993)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable compilation-context-lines funcall function #[0 "\300\207" [nil] 1] "Display this many lines of leading context before the current message.\nIf nil and the left fringe is displayed, don't scroll the\ncompilation output window; an arrow in the left fringe points to\nthe current message. If nil and there is no left fringe, the message\ndisplays at the top of the window; there is no arrow." :type (choice integer (const :tag "No window scrolling" nil)) :group compilation :version "22.1"] 10)
#@75 Align the compilation output window W with marker MK near top.
(fn W MK)
(defalias 'compilation-set-window #[514 "\250\203 \301\212b\210\302\303Z!\210`)\"\210\202/ \304!@\305\232\203/ \301\212b\210\306\303!\210`)\"\210\307\"\207" [compilation-context-lines set-window-start compilation-beginning-of-line 1 window-fringes 0 beginning-of-line set-window-point] 7 (#$ . 79015)])
(put 'compilation-set-window 'byte-optimizer 'byte-compile-inline-expand)
#@184 Jump to an error corresponding to MSG at MK.
All arguments are markers. If END-MK is non-nil, mark is set there
and overlay is highlighted between MK and END-MK.
(fn MSG MK END-MK)
(defalias 'compilation-goto-locus #[771 "\306 \307!=\310\307!\311\"\203 \211\203 \211\202 \312\307!\313\"r\307!q\210\314!b\210\211\203h \211\250\203K \315\212b\210\316\317Z!\210`)\"\210\202b \320!@\311\232\203b \315\212b\210\321\317!\210`)\"\210\322\"\266 )\204v \203v \323!\210\203\210 \324\325\307!\326\"\210)\202\217 \327\307!!\210b`=\204\251 ~\210 \203\246 \"\210\202\251 b\210\203\265 \330\324\"\210\202\273 \f\203\273 \331\332`!\211\203\334 \211@\333\334\"\335=\203\325 \336!\210b\210A\266\202\202\276 \210\211\203q\337
!\203\353 \340
!\210.\204\375 \341ee\".\342.\343\344#\210r\307!q\210\212\203b\210\202\331\210`\203 b\210\202\"\321 \210;\203@\345\324#\203@\311\224b\210\346.\311\224\311\225p$\210\202H\346.`p$\210/\324=\204U/\247\203]\347\350\351\"\210\202b\336.!\210/\247\203o\352/\331\351#\210*/\353=\205\354\355 !\2110\207" [compilation-context-lines compilation-highlight-regexp pop-up-windows next-error-move-function mark-active next-error-highlight-timer window-buffer marker-buffer get-buffer-window 0 display-buffer (nil (allow-no-window . t)) marker-position set-window-start compilation-beginning-of-line 1 window-fringes beginning-of-line set-window-point compilation-set-window-height t pop-to-buffer other-window switch-to-buffer push-mark nil overlays-at overlay-get invisible hs delete-overlay timerp cancel-timer make-overlay overlay-put face next-error re-search-forward move-overlay add-hook pre-command-hook compilation-goto-locus-delete-o run-at-time fringe-arrow copy-marker line-beginning-position compilation-highlight-overlay next-error-highlight next-error-overlay-arrow-position] 13 (#$ . 79483)])
(defalias 'compilation-goto-locus-delete-o #[0 "\302!\210\303 !\203 \304 !\210\305\306\307\"\207" [compilation-highlight-overlay next-error-highlight-timer delete-overlay timerp cancel-timer remove-hook pre-command-hook compilation-goto-locus-delete-o] 3])
#@726 Find a buffer for file FILENAME.
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 where to find the file.
Search the directories in `compilation-search-path'.
A nil in `compilation-search-path' means to try the
"current" directory, which is passed in DIRECTORY.
If DIRECTORY is relative, it is combined with `default-directory'.
If DIRECTORY is nil, that means use `default-directory'.
FORMATS, if given, is a list of formats to reformat FILENAME when
looking for it: for each element FMT in FORMATS, this function
attempts to find a file whose name is produced by (format FMT FILENAME).
(fn MARKER FILENAME DIRECTORY &rest FORMATS)
(defalias 'compilation-find-file #[899 "\211\204 \305\262\203 \306!\202 \307\211\211\211\310 !\2035 \311\306\n!!\262 \312 !B\262\313 !\262 \203u \204u @\206C \262\262\203n \204n \306\314@ \"\"\262\315!\205e \316!\262A\262\202I A\262\2025 \204 \212\317\320\321 !\322\")r\321 !q\210\nb\210\211\203\313 \211 \250\203\256 \323\212b\210\324\325 Z!\210`)\"\210\202\305 \326!@\327\232\203\305 \323\212b\210\330\325!\210`)\"\210\331\"\266)\332\314\333\f
#\f\317\307%\211\315!\204\360 \334\335\"\210\336 \210\337\340!\210\202\341!\203\315\306
\"\211\262!\204\334\342
#\210\336 \210\337\340!\210\202\316!\262\266)\202u \343ed\"\211\203=\211@\344\345\"\2036\346\345\307#\210A\266\202\202#\210\207" [compilation-search-path default-directory pop-up-windows compilation-context-lines compilation-error ("%s") expand-file-name nil file-name-absolute-p abbreviate-file-name file-name-directory file-name-nondirectory format file-exists-p find-file-noselect t display-buffer marker-buffer (nil (allow-no-window . t)) set-window-start compilation-beginning-of-line 1 window-fringes 0 beginning-of-line set-window-point read-file-name "Find this %s in (default %s): " message "Cannot find file `%s'" ding sit-for 2 file-directory-p "No `%s' in directory %s" overlays-in overlay-get intangible overlay-put] 18 (#$ . 81656)])
#@330 Retrieve FILE's file-structure or create a new one.
FILE should be (FILENAME) or (RELATIVE-FILENAME . DIRNAME).
In the former case, FILENAME may be relative or absolute.
The file-structure looks like this:
((FILENAME [TRUE-DIRNAME]) FMT ...)
TRUE-DIRNAME is the `file-truename' of DIRNAME, if given.
(fn FILE &optional FMT)
(defalias 'compilation-get-file-structure #[513 "\303\"\206b @A\205 \304A!\305\301!\2037 \306\232\2047 \307!\203, P\262\2027 \211\2037 \304 P!\262\n\203@ \n!\262\310!\262\311\303B\"\206^ \311BD\312BB##\266\202\207" [compilation-locs comint-file-name-prefix compilation-parse-errors-filename-function gethash file-truename boundp "" file-name-absolute-p command-line-normalize-file-name puthash nil] 11 (#$ . 83776)])
(defalias 'compilation--flush-file-structure #[257 "\211:\204 \211C\262\301!\211\302\"=\204 \303\304!\210\211\302@@@A@B\"=\204- \303\305!\210\306\307\310\311\312\313!\314\"\315\316%\"\207" [compilation-locs compilation-get-file-structure gethash cl--assertion-failed (eq fs (gethash file compilation-locs)) (eq fs (gethash (cons (caar fs) (cadr (car fs))) compilation-locs)) maphash make-byte-code 514 "\211\300=\205\n \302 \"\207" vconcat vector [compilation-locs remhash] 5 "\n\n(fn K V)"] 9 "\n\n(fn FILE)"])
(defvaralias 'compilation-last-buffer 'next-error-last-buffer)
(defvar compilation-parsing-end (make-marker))
(defvar compilation-error-list nil)
(defvar compilation-old-error-list nil)
#@57 Map old-style error ERR to new-style message.
(fn ERR)
(defalias 'compilation--compat-error-properties #[257 "\211A\300!\203 \301\302\211\211\302FB\303\304\305\302$\262\306BB\202S \211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\307B\302\302\305&\266\206\207" [markerp compilation-message nil vector cl-struct-compilation--message 2 (help-echo "mouse-2: visit the source location" keymap compilation-button-map mouse-face highlight) compilation-internal-error-properties] 16 (#$ . 85268)])
(defalias 'compilation--compat-parse-errors #[257 "\203} \212\303\n\203 \n`\303\223\210\202 \304 \3051\" \303\"0\202& \210\202' \210 <\205- \211\203{ \211@\211@A\306!\203G \303\211\211\303FB\202] \211:\205] \3078A@@A@@B\303\211FB\211\203r b\210\310\311 \312\313\314\307\303$$\210\266A\266\202\202- \210)\211b\210\303\207" [compilation-parse-errors-function compilation-error-list compilation-parsing-end nil point-marker (error) markerp 2 put-text-property line-end-position compilation-message vector cl-struct-compilation--message] 15 "\n\n(fn LIMIT)"])
(defalias 'compilation-forget-errors #[0 "\306!\210\307\211\310p!\211\205 \311!\211\206 d\211eV\203$ \312S!\202% \211\266\313\314!\210\f\2063
\315=\211\f\207" [compilation-locs compilation-gcpro compilation-current-error compilation-messages-start compilation-auto-jump-to-first-error compilation-scroll-output clrhash nil get-buffer-process process-mark copy-marker make-local-variable compilation-auto-jump-to-next first-error] 6])
(provide 'compile)
Kontol Shell Bypass