ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/flymake.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\302\303\304\305\306\307\310\311& \210\312\313\314\315\316DD\317\310\301\304\320\321\322& \210\312\323\314\315\324DD\325\310\301\304\320\321\326& \210\312\327\314\315\330DD\331\310\301\304\320\321\332& \210\312\333\314\315\334DD\335\310\301\321\336&\210\312\337\314\315\340DD\341\310\301\321\336&\210\312\342\314\315\343DD\344\310\301\321\345&\210\312\346\314\315\347DD\350\310\301\321\336&\210\312\351\314\315\352DD\353\310\301\321\336&\210\312\354\314\315\355DD\356\310\301\321\357&\210\312\360\314\315\361DD\362\321\363\310\301\304\364& \210\312\365\314\315\366DD\367\310\301\321\370&\210\312\371\314\315\372DD\373\310\301\321\357&\210\312\374\314\315\375DD\376\310\301\321\377&\207" [custom-declare-group flymake nil "Universal on-the-fly syntax checker." :version "23.1" :link (custom-manual "(flymake) Top") :group tools custom-declare-variable flymake-error-bitmap funcall function #[0 "\300\207" [(exclamation-mark error)] 1] "Bitmap (a symbol) used in the fringe for indicating errors.\nThe value may also be a list of two elements where the second\nelement specifies the face for the bitmap. For possible bitmap\nsymbols, see `fringe-bitmaps'. See also `flymake-warning-bitmap'.\n\nThe option `flymake-fringe-indicator-position' controls how and where\nthis is used." "24.3" :type (choice (symbol :tag "Bitmap") (list :tag "Bitmap and face" (symbol :tag "Bitmap") (face :tag "Face"))) flymake-warning-bitmap #[0 "\300\207" [question-mark] 1] "Bitmap (a symbol) used in the fringe for indicating warnings.\nThe value may also be a list of two elements where the second\nelement specifies the face for the bitmap. For possible bitmap\nsymbols, see `fringe-bitmaps'. See also `flymake-error-bitmap'.\n\nThe option `flymake-fringe-indicator-position' controls how and where\nthis is used." (choice (symbol :tag "Bitmap") (list :tag "Bitmap and face" (symbol :tag "Bitmap") (face :tag "Face"))) flymake-fringe-indicator-position #[0 "\300\207" [left-fringe] 1] "The position to put flymake fringe indicator.\nThe value can be nil (do not use indicators), `left-fringe' or `right-fringe'.\nSee `flymake-error-bitmap' and `flymake-warning-bitmap'." (choice (const left-fringe) (const right-fringe) (const :tag "No fringe indicators" nil)) flymake-compilation-prevents-syntax-check #[0 "\300\207" [t] 1] "If non-nil, don't start syntax check if compilation is running." boolean flymake-start-syntax-check-on-newline #[0 "\300\207" [t] 1] "Start syntax check if newline char was added/removed from the buffer." flymake-no-changes-timeout #[0 "\300\207" [0.5] 1] "Time to wait after last change before starting compilation." number flymake-gui-warnings-enabled #[0 "\300\207" [t] 1] "Enables/disables GUI warnings." flymake-start-syntax-check-on-find-file #[0 "\300\207" [t] 1] "Start syntax check on find file." flymake-log-level #[0 "\300\207" [-1] 1] "Logging level, only messages with level lower or equal will be logged.\n-1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG" integer flymake-xml-program #[0 "\300\301!\203 \301\207\302\207" [executable-find "xmlstarlet" "xml"] 2] "Program to use for XML validation." file "24.4" flymake-master-file-dirs #[0 "\300\207" [("." "./src" "./UnitTest")] 1] "Dirs where to look for master files." (repeat (string)) flymake-master-file-count-limit #[0 "\300\207" [32] 1] "Max number of master files to check." flymake-allowed-file-name-masks #[0 "\300\207" [(("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-simple-make-init) ("\\.xml\\'" flymake-xml-init) ("\\.html?\\'" flymake-xml-init) ("\\.cs\\'" flymake-simple-make-init) ("\\.p[ml]\\'" flymake-perl-init) ("\\.php[345]?\\'" flymake-php-init) ("\\.h\\'" flymake-master-make-header-init flymake-master-cleanup) ("\\.java\\'" flymake-simple-make-java-init flymake-simple-java-cleanup) ("[0-9]+\\.tex\\'" flymake-master-tex-init flymake-master-cleanup) ("\\.tex\\'" flymake-simple-tex-init) ("\\.idl\\'" flymake-simple-make-init))] 1] "Files syntax checking is allowed for.\nThis is an alist with elements of the form:\n REGEXP INIT [CLEANUP [NAME]]\nREGEXP is a regular expression that matches a file name.\nINIT is the init function to use.\nCLEANUP is the cleanup function to use, default `flymake-simple-cleanup'.\nNAME is the file name function to use, default `flymake-get-real-file-name'." (alist :key-type (regexp :tag "File regexp") :value-type (list :tag "Handler functions" (function :tag "Init function") (choice :tag "Cleanup function" (const :tag "flymake-simple-cleanup" nil) function) (choice :tag "Name function" (const :tag "flymake-get-real-file-name" nil) function)))] 10)
#@71 If t, flymake syntax check process is running for the current buffer.
(defvar flymake-is-running nil (#$ . 5049))
(make-variable-buffer-local 'flymake-is-running)
#@34 Timer for starting syntax check.
(defvar flymake-timer nil (#$ . 5218))
(make-variable-buffer-local 'flymake-timer)
#@29 Time of last buffer change.
(defvar flymake-last-change-time nil (#$ . 5340))
(make-variable-buffer-local 'flymake-last-change-time)
#@41 Time at which syntax check was started.
(defvar flymake-check-start-time nil (#$ . 5479))
(make-variable-buffer-local 'flymake-check-start-time)
#@58 Non-nil if syntax check was killed by `flymake-compile'.
(defvar flymake-check-was-interrupted nil (#$ . 5630))
(make-variable-buffer-local 'flymake-check-was-interrupted)
#@81 Sorted list of line numbers and lists of err info in the form (file, err-text).
(defvar flymake-err-info nil (#$ . 5808))
(make-variable-buffer-local 'flymake-err-info)
#@75 Same as `flymake-err-info', effective when a syntax check is in progress.
(defvar flymake-new-err-info nil (#$ . 5983))
(make-variable-buffer-local 'flymake-new-err-info)
#@295 Log a message at level LEVEL.
If LEVEL is higher than `flymake-log-level', the message is
ignored. Otherwise, it is printed using `message'.
TEXT is a format control string, and the remaining arguments ARGS
are the string substitutions (see the function `format').
(fn LEVEL TEXT &rest ARGS)
(defalias 'flymake-log #[642 "X\205 \301\302#\303\304\"\262\207" [flymake-log-level apply format-message message "%s"] 7 (#$ . 6161)])
#@83 Insert VAL into LIST after position POS.
POS counts from zero.
(fn LIST POS VAL)
(defalias 'flymake-ins-after #[771 "\300!\233T\233B\241\210\211\207" [copy-sequence] 8 (#$ . 6603)])
#@75 Set VAL at position POS in LIST.
POS counts from zero.
(fn LIST POS VAL)
(defalias 'flymake-set-at #[771 "\300!\233\240\210\211\207" [copy-sequence] 6 (#$ . 6798)])
#@45 List of currently active flymake processes.
(defvar flymake-processes nil (#$ . 6974))
(defvar flymake-output-residual nil nil)
(make-variable-buffer-local 'flymake-output-residual)
#@88 Return the corresponding entry from `flymake-allowed-file-name-masks'.
(fn FILE-NAME)
(defalias 'flymake-get-file-name-mode-and-masks #[257 "\211;\204 \301\302!\210\303\211\204( \203( \304@@\"\203! @A\262A\262\202 \305\306\307@$\210\207" [flymake-allowed-file-name-masks error "Invalid file-name" nil string-match flymake-log 3 "file %s, init=%s"] 8 (#$ . 7162)])
#@110 Determine whether we can syntax check FILE-NAME.
Return nil if we cannot, non-nil if we can.
(fn FILE-NAME)
(defalias 'flymake-can-syntax-check-file #[257 "\300!\205 \301\207" [flymake-get-init-function t] 3 (#$ . 7546)])
#@63 Return init function to be used for the file.
(fn FILE-NAME)
(defalias 'flymake-get-init-function #[257 "\300!@\211\207" [flymake-get-file-name-mode-and-masks] 3 (#$ . 7777)])
#@66 Return cleanup function to be used for the file.
(fn FILE-NAME)
(defalias 'flymake-get-cleanup-function #[257 "\300!A@\206 \301\207" [flymake-get-file-name-mode-and-masks flymake-simple-cleanup] 3 (#$ . 7961)])
(defalias 'flymake-get-real-file-name-function #[257 "\300\301!8\206 \302\207" [2 flymake-get-file-name-mode-and-masks flymake-get-real-file-name] 4 "\n\n(fn FILE-NAME)"])
(defvar flymake-find-buildfile-cache (make-hash-table :test 'equal))
#@113 Look up DIR-NAME in cache and return its associated value.
If DIR-NAME is not found, return nil.
(fn DIR-NAME)
(defalias 'flymake-get-buildfile-from-cache #[257 "\301\"\207" [flymake-find-buildfile-cache gethash] 4 (#$ . 8425)])
#@84 Associate DIR-NAME with BUILDFILE in the buildfile cache.
(fn DIR-NAME BUILDFILE)
(defalias 'flymake-add-buildfile-to-cache #[514 "\301#\207" [flymake-find-buildfile-cache puthash] 6 (#$ . 8663)])
#@28 Clear the buildfile cache.
(defalias 'flymake-clear-buildfile-cache #[0 "\301!\207" [flymake-find-buildfile-cache clrhash] 2 (#$ . 8870)])
#@182 Find buildfile starting from current directory.
Buildfile includes Makefile, build.xml etc.
Return its file name if found, or nil if not found.
(fn BUILDFILE-NAME SOURCE-DIR-NAME)
(defalias 'flymake-find-buildfile #[514 "\300!\206& \301\"\211\203 \302\303\304#\210\305\"\210\211\202$ \302\303\306#\210\307\262\207" [flymake-get-buildfile-from-cache locate-dominating-file flymake-log 3 "found buildfile at %s" flymake-add-buildfile-to-cache "buildfile for %s not found" nil] 7 (#$ . 9017)])
#@53 Replace all occurrences of `\' with `/'.
(fn NAME)
(defalias 'flymake-fix-file-name #[257 "\211\205 \300!\262\301!\262\302!\262\211\207" [expand-file-name abbreviate-file-name directory-file-name] 3 (#$ . 9524)])
#@124 Check if FILE-NAME-ONE and FILE-NAME-TWO point to same file.
Return t if so, nil if not.
(fn FILE-NAME-ONE FILE-NAME-TWO)
(defalias 'flymake-same-files #[514 "\300!\300!\232\207" [flymake-fix-file-name] 5 (#$ . 9752)])
#@333 Find (by name and location) all possible master files.
Name is specified by FILE-NAME and location is specified by
MASTER-FILE-DIRS. Master files include .cpp and .c for .h.
Files are searched for starting from the .h directory and max
max-level parent dirs. File contents are not checked.
(fn FILE-NAME MASTER-FILE-DIRS MASKS)
(defalias 'flymake-find-possible-master-files #[771 "\302\211\211\204s \203s \303@\304!\"\305!\203j \204j \211\203j \211@\306\307#\310\311\312G%\210\204a \211\203a \313@!\204Z \211@B\262GY\203Z \310\311\314#\210\307\262\211A\262\2024 \266\211A\262\202 \266A\262\202 \203\203 \315!\316\317\"\262)\310\311\320G#\210\207" [flymake-master-file-count-limit flymake-included-file-name nil expand-file-name file-name-directory file-exists-p directory-files t flymake-log 3 "dir %s, %d file(s) for mask %s" file-directory-p "master file count limit (%d) reached" file-name-nondirectory sort flymake-master-file-compare "found %d possible master file(s)"] 16 (#$ . 9981)])
#@206 Compare two files specified by FILE-ONE and FILE-TWO.
This function is used in sort to move most possible file names
to the beginning of the list (File.h -> File.cpp moved to top).
(fn FILE-ONE FILE-TWO)
(defalias 'flymake-master-file-compare #[514 "\301!\302!\232\205 \232?\207" [flymake-included-file-name file-name-sans-extension file-name-base] 5 (#$ . 11024)])
#@106 Maximum number of chars to look at when checking possible master file.
Nil means search the entire file.
(defvar flymake-check-file-limit 8192 (#$ . 11403))
#@472 Check if MASTER-FILE-NAME is a master file for SOURCE-FILE-NAME.
If yes, patch a copy of MASTER-FILE-NAME to include PATCHED-SOURCE-FILE-NAME
instead of SOURCE-FILE-NAME.
For example, foo.cpp is a master file if it includes foo.h.
When a buffer for MASTER-FILE-NAME exists, use it as a source
instead of reading master file from disk.
(fn MASTER-FILE-TEMP-BUFFER MASTER-FILE-NAME PATCHED-MASTER-FILE-NAME SOURCE-FILE-NAME PATCHED-SOURCE-FILE-NAME INCLUDE-DIRS REGEXP)
(defalias 'flymake-check-patch-master-file-buffer #[1799 "\301!\302!\303!\304\211\305G\306V\203, \307\230\203, \305\310\311!\311\n!#\2020 \311!\"\262\312\313\314\315\316!\317\"\320$\216r\fq\210\211\203O \211dV\203R d\262\321\322\323\n$\210eb\210`W\203\327 \324\325#\203\327 \306\224\306\225\321\322\326\n#\210\327\306!\262G\306V\203\236 \307\230\203\236 \330\305\331 \"\"\204\236 \332Q\262\333\304\211\211G
GZ\304&\325=\203\320 \321\322\334#\210\335\f\f#\203\320 \325\262\336\301!#\210\306y\266\202^ \203\340 \337 !\210*\203\354 \321\320\340#\210\207" [flymake-check-file-limit file-name-nondirectory file-name-extension file-name-sans-extension nil format 1 "tex" "%s\\(?:\\.%s\\)?" regexp-quote make-byte-code 0 "\301\300!\207" vconcat vector [kill-buffer] 2 flymake-log 3 "checking %s against regexp %s" re-search-forward t "found possible match for %s" match-string string-match "\\.%s\\'" "." compare-strings "inc-name=%s" flymake-check-include flymake-replace-region flymake-save-buffer-in-file "found master file %s"] 22 (#$ . 11567)])
#@72 Replace text in BUFFER in region (BEG END) with REP.
(fn BEG END REP)
(defalias 'flymake-replace-region #[771 "\212b\210\211c\210|)\207" [] 5 (#$ . 13149)])
#@78 Insert contents of FILE-NAME into newly created temp buffer.
(fn FILE-NAME)
(defalias 'flymake-read-file-to-temp-buffer #[257 "\300\301\302\303!P!!r\211q\210\304!\210)\211\207" [get-buffer-create generate-new-buffer-name "flymake:" file-name-nondirectory insert-file-contents] 6 (#$ . 13316)])
#@70 Copy contents of BUFFER into newly created temp buffer.
(fn BUFFER)
(defalias 'flymake-copy-buffer-to-temp-buffer #[257 "r\300\301\302\303!P!!q\210\304!\210p)\207" [get-buffer-create generate-new-buffer-name "flymake:" buffer-name insert-buffer-substring] 6 (#$ . 13619)])
#@163 Check if SOURCE-FILE-NAME can be found in include path.
Return t if it can be found via include path using INC-NAME.
(fn SOURCE-FILE-NAME INC-NAME INCLUDE-DIRS)
(defalias 'flymake-check-include #[771 "\300!\203 \301\"\207\211\203' \301\302!\303@\303\260\"\204' \211A\262\202 \207" [file-name-absolute-p flymake-same-files file-name-directory "/"] 10 (#$ . 13902)])
#@96 Check if there exists a buffer visiting FILE-NAME.
Return t if so, nil if not.
(fn FILE-NAME)
(defalias 'flymake-find-buffer-for-file #[257 "\300!\211\205\n \301!\207" [get-file-buffer get-buffer] 4 (#$ . 14286)])
#@182 Save SOURCE-FILE-NAME with a different name.
Find master file, patch and save it.
(fn SOURCE-FILE-NAME PATCHED-SOURCE-FILE-NAME GET-INCL-DIRS-F CREATE-TEMP-F MASKS INCLUDE-REGEXP)
(defalias 'flymake-create-master-file #[1542 "\301#\211G\302\303\211\211\211\211\204V W\203V 8\262 \304\"\262\305!\2035 \306\305!!\262\202: \307!\262\310\311\n!!&\262T\262\202
\211\203` D\202l \312\313\314\315!$\210\303\207" [flymake-master-file-dirs flymake-find-possible-master-files 0 nil "flymake_master" flymake-find-buffer-for-file flymake-copy-buffer-to-temp-buffer flymake-read-file-to-temp-buffer flymake-check-patch-master-file-buffer file-name-directory flymake-log 3 "none of %d master file(s) checked includes %s" file-name-nondirectory] 22 (#$ . 14510)])
#@107 Save the entire buffer contents into file FILE-NAME.
Create parent directories as needed.
(fn FILE-NAME)
(defalias 'flymake-save-buffer-in-file #[257 "\300\301!\302\"\210\303\304\211\304\305%\210\306\307\310\311 $\207" [make-directory file-name-directory 1 write-region nil 566 flymake-log 3 "saved buffer %s in file %s" buffer-name] 7 (#$ . 15309)])
#@91 Parse OUTPUT and highlight error lines.
It's flymake process filter.
(fn PROCESS OUTPUT)
(defalias 'flymake-process-filter #[514 "\300!\301\302\303G\304!$\210\305!\205 r\211q\210\306!)\207" [process-buffer flymake-log 3 "received %d byte(s) of output from process %d" process-id buffer-live-p flymake-parse-output-and-residual] 9 (#$ . 15670)])
#@56 Sentinel for syntax check buffers.
(fn PROCESS EVENT)
(defalias 'flymake-process-sentinel #[514 "\302!\303>\205x \304!\305!\306!\307\310!!\311\312\313\314 !$\210\3151^ \311\316\317#\210\320!\2039 rq\210\211 \210)\321!\210\322\"\320!\205Z rq\210\323 \210\324\"\210\325\211)0\202v \326\327\330!#\311\331\"\210rq\210\325\211)\262\262\266\204\207" [flymake-processes flymake-is-running process-status (signal exit) process-exit-status process-command process-buffer flymake-get-cleanup-function buffer-file-name flymake-log 2 "process %d exited with code %d" process-id (error) 3 "cleaning up using %s" buffer-live-p delete-process delq flymake-parse-residual flymake-post-syntax-check nil format "Error in process sentinel for buffer %s: %s" error-message-string 0] 12 (#$ . 16029)])
(defalias 'flymake-post-syntax-check #[514 "\214~\210\304\305 \306\307ed\"#\310 \210\311 !\210\304\211\312 \313\"\262\312 \314\"\262\315\316\317\320 \321 \nZ&\210\304\322\232\203d \211\322\232\203d \322\232\203N \323\324\211\"\202l \204] \325\326\327\330\"\"\202l \323\304\324\"\202l \323\327\331#\324\"\266\202)\207" [flymake-new-err-info flymake-err-info flymake-check-start-time flymake-check-was-interrupted nil flymake-fix-line-numbers 1 count-lines flymake-delete-own-overlays flymake-highlight-err-lines flymake-get-err-count "e" "w" flymake-log 2 "%s: %d error(s), %d warning(s) in %.2f second(s)" buffer-name float-time 0 flymake-report-status "" flymake-report-fatal-status "CFGERR" format "Configuration error has occurred while running %s" "%d/%d"] 12 "\n\n(fn EXIT-STATUS COMMAND)"])
#@71 Split OUTPUT into lines, merge in residual if necessary.
(fn OUTPUT)
(defalias 'flymake-parse-output-and-residual #[257 "\211\203 \211P\202\f \302!\211@A@\211\303 \"\211\207" [flymake-output-residual flymake-new-err-info flymake-split-output flymake-parse-err-lines] 9 (#$ . 17660)])
#@35 Parse residual if it's non empty.
(defalias 'flymake-parse-residual #[0 "\205
\302 C\"\303\211\207" [flymake-output-residual flymake-new-err-info flymake-parse-err-lines nil] 3 (#$ . 17960)])
(defalias 'flymake-er-make-er #[514 "D\207" [] 4 "\n\n(fn LINE-NO LINE-ERR-INFO-LIST)"])
(defalias 'flymake-er-get-line #[257 "\211@\207" [] 2 "\n\n(fn ERR-INFO)"])
(defalias 'flymake-er-get-line-err-info-list #[257 "\211A@\207" [] 2 "\n\n(fn ERR-INFO)"])
(defalias 'flymake-ler-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake-ler-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-flymake-ler-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'flymake-ler-p 'compiler-macro 'flymake-ler-p--cmacro)
(defalias 'flymake-ler-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-flymake-ler-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put flymake-ler-p side-effect-free error-free put flymake-ler cl-deftype-satisfies] 4)
(defalias 'flymake-ler-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake-ler-file (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-flymake-ler-tags)) (signal 'wrong-type-argument (list 'flymake-ler cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'flymake-ler-file 'compiler-macro 'flymake-ler-file--cmacro)
(defalias 'flymake-ler-file #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 1] 5 "\n\n(fn CL-X)"])
(function-put 'flymake-ler-file 'side-effect-free t)
(defalias 'flymake-ler-line--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake-ler-line (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-flymake-ler-tags)) (signal 'wrong-type-argument (list 'flymake-ler cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'flymake-ler-line 'compiler-macro 'flymake-ler-line--cmacro)
(defalias 'flymake-ler-line #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 2] 5 "\n\n(fn CL-X)"])
(function-put 'flymake-ler-line 'side-effect-free t)
(defalias 'flymake-ler-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake-ler-type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-flymake-ler-tags)) (signal 'wrong-type-argument (list 'flymake-ler cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'flymake-ler-type 'compiler-macro 'flymake-ler-type--cmacro)
(defalias 'flymake-ler-type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 3] 5 "\n\n(fn CL-X)"])
(function-put 'flymake-ler-type 'side-effect-free t)
(defalias 'flymake-ler-text--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake-ler-text (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-flymake-ler-tags)) (signal 'wrong-type-argument (list 'flymake-ler cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'flymake-ler-text 'compiler-macro 'flymake-ler-text--cmacro)
(defalias 'flymake-ler-text #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 4] 5 "\n\n(fn CL-X)"])
(function-put 'flymake-ler-text 'side-effect-free t)
(defalias 'flymake-ler-full-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake-ler-full-file (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-flymake-ler-tags)) (signal 'wrong-type-argument (list 'flymake-ler cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'flymake-ler-full-file 'compiler-macro 'flymake-ler-full-file--cmacro)
(defalias 'flymake-ler-full-file #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put flymake-ler-full-file side-effect-free t defalias copy-flymake-ler copy-sequence] 4)
(defalias 'flymake-ler-make-ler--cmacro #[1541 "\300\301\302\303\211\211\n\n\n\n\n&\n\207" [cl--defsubst-expand (file line type text full-file) (cl-block flymake-ler-make-ler "Constructor for objects of type `flymake-ler'." (declare (side-effect-free t)) (vector 'cl-struct-flymake-ler file line type text full-file)) nil] 17 "\n\n(fn CL-WHOLE-ARG FILE LINE TYPE TEXT &optional FULL-FILE)"])
(put 'flymake-ler-make-ler 'compiler-macro 'flymake-ler-make-ler--cmacro)
#@94 Constructor for objects of type `flymake-ler'.
(fn FILE LINE TYPE TEXT &optional FULL-FILE)
(defalias 'flymake-ler-make-ler #[1284 "\300\301&\207" [vector cl-struct-flymake-ler] 12 (#$ . 22816)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put flymake-ler-make-ler side-effect-free t cl-struct-define flymake-ler nil cl-structure-object ((cl-tag-slot) (file) (line) (type) (text) (full-file)) cl-struct-flymake-ler-tags cl-struct-flymake-ler] 10)
(defalias 'flymake-ler-set-file #[514 "\211\301H>\204 \302\303\304D\"\210\305H\301H>\204# \302\303\304D\"\210\306H\301H>\2046 \302\303\304D\"\210\307H\301H>\204I \302\303\304D\"\210\310H\311\312&\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 2 3 4 5 vector cl-struct-flymake-ler] 14 "\n\n(fn LINE-ERR-INFO FILE)"])
(defalias 'flymake-ler-set-full-file #[514 "\301H>\204 \302\303\304D\"\210\305H\301H>\204! \302\303\304D\"\210\306H\301H>\2044 \302\303\304D\"\210\307H\301H>\204G \302\303\304D\"\210\310H\311\312&\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 1 2 3 4 vector cl-struct-flymake-ler] 14 "\n\n(fn LINE-ERR-INFO FULL-FILE)"])
(defalias 'flymake-ler-set-line #[514 "\301H>\204 \302\303\304D\"\210\305H\301H>\204# \302\303\304D\"\210\306H\301H>\2046 \302\303\304D\"\210\307H\301H>\204I \302\303\304D\"\210\310H\311\312&\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 1 3 4 5 vector cl-struct-flymake-ler] 14 "\n\n(fn LINE-ERR-INFO LINE)"])
#@110 Return number of errors of specified TYPE.
Value of TYPE is either "e" or "w".
(fn LINE-ERR-INFO-LIST TYPE)
(defalias 'flymake-get-line-err-count #[514 "\301G\301W\2036 8\301H>\204! \302\303\304 8D\"\2108\305H\232\203/ \211T\262T\262\202 \207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 3] 11 (#$ . 24454)])
#@87 Return number of errors of specified TYPE for ERR-INFO-LIST.
(fn ERR-INFO-LIST TYPE)
(defalias 'flymake-get-err-count #[514 "\300G\300W\203 \211\3018A@\"\\\262T\262\202 \207" [0 flymake-get-line-err-count] 9 (#$ . 24813)])
#@327 Replace line numbers with fixed value.
If line-numbers is less than MIN-LINE, set line numbers to MIN-LINE.
If line numbers is greater than MAX-LINE, set line numbers to MAX-LINE.
The reason for this fix is because some compilers might report
line number outside the file being compiled.
(fn ERR-INFO-LIST MIN-LINE MAX-LINE)
(defalias 'flymake-fix-line-numbers #[771 "G\300\301\301V\203E S8\262\302!\262\211W\204\" \211V\203> \211W\203, \202- \262\303S\304\305!\"#\262S\262\202 \266\207" [nil 0 flymake-er-get-line flymake-set-at flymake-er-make-er flymake-er-get-line-err-info-list] 13 (#$ . 25057)])
#@84 Highlight error lines in BUFFER using info from ERR-INFO-LIST.
(fn ERR-INFO-LIST)
(defalias 'flymake-highlight-err-lines #[257 "\212\211\211\205 \211@\300@A@\"\210A\266\202\202 \262)\207" [flymake-highlight-line] 6 (#$ . 25692)])
#@63 Determine whether overlay OV was created by flymake.
(fn OV)
(defalias 'flymake-overlay-p #[257 "\300!\205\n \301\302\"\207" [overlayp overlay-get flymake-overlay] 4 (#$ . 25935)])
#@89 Allocate a flymake overlay in range BEG and END.
(fn BEG END TOOLTIP-TEXT FACE BITMAP)
(defalias 'flymake-make-overlay #[1285 "\301\"?\205R \302\303\304$\205# \305\306\307<\203 \202! CB#\310\311#\210\310\312#\210\310\313\304#\210\310\314\315#\210\310\316\304#\210\310\317#\266\320\321\322$\207" [flymake-fringe-indicator-position flymake-region-has-flymake-overlays make-overlay nil t propertize "!" display overlay-put face help-echo flymake-overlay priority 100 evaporate before-string flymake-log 3 "created an overlay at (%d-%d)"] 11 (#$ . 26125)])
#@40 Delete all flymake overlays in BUFFER.
(defalias 'flymake-delete-own-overlays #[0 "\300ed\"\211\205 \211@\301!\203 \302!\210A\266\202\202 \207" [overlays-in flymake-overlay-p delete-overlay] 4 (#$ . 26711)])
#@137 Check if region specified by BEG and END has overlay.
Return t if it has at least one flymake overlay, nil if no overlay.
(fn BEG END)
(defalias 'flymake-region-has-flymake-overlays #[514 "\300\"\301:\203 \302@!\203 \303\262A\262\202 \207" [overlays-in nil flymake-overlay-p t] 6 (#$ . 26932)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\207" [custom-declare-face flymake-errline ((((supports :underline (:style wave))) :underline (:style wave :color "Red1")) (t :inherit error)) "Face used for marking error lines." :version "24.4" :group flymake flymake-warnline ((((supports :underline (:style wave))) :underline (:style wave :color "DarkOrange")) (t :inherit warning)) "Face used for marking warning lines."] 8)
#@142 Highlight line LINE-NO in current buffer.
Perhaps use text from LINE-ERR-INFO-LIST to enhance highlighting.
(fn LINE-NO LINE-ERR-INFO-LIST)
(defalias 'flymake-highlight-line #[514 "eb\210Sy\210\302 \210`\303\210\304x\210`=\203 \305\306!\202 `\307\310\311#\312\313\"\314V\2033 \315D\2026 \316 D\211@A\211@A\317\n\n\n%\266\202\207" [flymake-error-bitmap flymake-warning-bitmap back-to-indentation nil " \f \n" line-beginning-position 2 mapconcat flymake-ler-text "\n" flymake-get-line-err-count "e" 0 flymake-errline flymake-warnline flymake-make-overlay] 18 (#$ . 27708)])
#@73 Parse err LINES, store info in ERR-INFO-LIST.
(fn ERR-INFO-LIST LINES)
(defalias 'flymake-parse-err-lines #[514 "\211G\302\303\211\304!W\203h \3058!\262\203M \211\302H >\204- \306\307\310D\"\210\311H!\262\312\"\262\313\"\203M \314\303\"\262\315\"\262\316\317\320\n8\203^ \321\202_ \322$\210T\262\202 \207" [buffer-file-name cl-struct-flymake-ler-tags 0 nil flymake-get-real-file-name-function flymake-parse-line signal wrong-type-argument flymake-ler 1 flymake-ler-set-full-file flymake-same-files flymake-ler-set-file flymake-add-err-info flymake-log 3 "parsed `%s', %s line-err-info" "got" "no"] 13 (#$ . 28307)])
#@133 Split OUTPUT into lines.
Return last one as residual if it does not end with newline char.
Returns ((LINES) RESIDUAL).
(fn OUTPUT)
(defalias 'flymake-split-output #[257 "\211\205. \211G\300V\205. \301\302\303#\304\211GSH!\305\232\306\204) \307!@\262\310!\262D\266\203\207" [0 split-string "[\n
]+" t char-to-string "\n" nil last butlast] 6 (#$ . 28967)])
#@126 Grab error line patterns from ORIGINAL-LIST in compile.el format.
Convert it to flymake internal format.
(fn ORIGINAL-LIST)
(defalias 'flymake-reformat-err-line-patterns-from-compile-el #[257 "\300\211\203K \211@\211A\262\211@A@\3018\3028:\203 @\262:\203) @\262\211:\2032 \211@\262\303!\204B FB\262\266A\266\202\202 \210\211\207" [nil 2 3 functionp] 12 (#$ . 29339)])
(require 'compile)
#@209 Patterns for matching error/warning lines. Each pattern has the form
(REGEXP FILE-IDX LINE-IDX COL-IDX ERR-TEXT-IDX).
Use `flymake-reformat-err-line-patterns-from-compile-el' to add patterns
from compile.el
(defvar flymake-err-line-patterns (byte-code "\301\302\303!\"\207" [compilation-error-regexp-alist-alist append (("\\(\\([a-zA-Z]:\\)?[^:( \n]+\\)(\\([0-9]+\\)) : \\(\\(error\\|warning\\|fatal error\\) \\(C[0-9]+\\):[ \n]*\\(.+\\)\\)" 1 3 nil 4) ("\\(\\([a-zA-Z]:\\)?[^:( \n]+\\):\\([0-9]+\\):[0-9]+:[0-9]+:[0-9]+: \\(\\(Error\\|Warning\\|Caution\\|Semantic Error\\):[ \n]*\\(.+\\)\\)" 1 3 nil 4) ("midl[ ]*:[ ]*\\(command line error .*\\)" nil nil nil 1) ("\\(\\([a-zA-Z]:\\)?[^:( \n]+\\)(\\([0-9]+\\),[0-9]+): \\(\\(error\\|warning\\|fatal error\\) \\(CS[0-9]+\\):[ \n]*\\(.+\\)\\)" 1 3 nil 4) ("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1) ("\\(?:Parse\\|Fatal\\) error: \\(.*\\) in \\(.*\\) on line \\([0-9]+\\)" 2 3 nil 1) (" *\\(\\[javac\\] *\\)?\\(\\([a-zA-Z]:\\)?[^:( \n]+\\):\\([0-9]+\\)\\(?::[0-9]+\\)?:[ \n]*\\(.+\\)" 2 4 nil 5)) flymake-reformat-err-line-patterns-from-compile-el] 4) (#$ . 29758))
(byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\207" [defvaralias flymake-warning-re flymake-warning-predicate nil (saved-value saved-variable-comment) put make-obsolete-variable "24.4"] 7)
#@207 Predicate matching against error text to detect a warning.
Takes a single argument, the error's text and should return non-nil
if it's a warning.
Instead of a function, it can also be a regular expression.
(defvar flymake-warning-predicate "^[wW]arning" (#$ . 31181))
#@104 Parse LINE to see if it is an error or warning.
Return its components if so, nil otherwise.
(fn LINE)
(defalias 'flymake-parse-line #[257 "\302\303\304\302\302\203\227 \211\204\227 \305@@\"\203\220 @A@\306@8\205) \307\n\"\262\211\2039 \310\307 \"!\202: \303\262@G\311V\203O \307\311@8\n\"\202W \312 \303\225\302O!\262\204c \313\262\202 ;\203p \305 \"\202y \314 !\203 !\203 \315\262\316\317\320\f\f &\210\321\266\203A\262\202 \211\205\250 \322\323\302&\207" [flymake-err-line-patterns flymake-warning-predicate nil 0 "e" string-match 2 match-string string-to-number 4 flymake-patch-err-text "<no error text>" functionp "w" flymake-log 3 "parse line: file-idx=%s line-idx=%s file=%s line=%s text=%s" t vector cl-struct-flymake-ler] 17 (#$ . 31456)])
#@82 Find (line-err-info-list pos) for specified LINE-NO.
(fn ERR-INFO-LIST LINE-NO)
(defalias 'flymake-find-err-info #[514 "\2039 \300\301GW\203 8@W\203 T\262\202 W\2035 8@\232\2035 \3028!\262D\207\303\207" [nil 0 flymake-er-get-line-err-info-list (nil 0)] 8 (#$ . 32259)])
(defalias 'flymake-line-err-info-is-less-or-equal #[514 "\301H>\204 \302\303\304D\"\210\305H\301H>\204! \302\303\304D\"\210\305H\231\206\365 \301H>\2047 \302\303\304D\"\210\305H\301H>\204I \302\303\304D\"\210\305H\230\203z \301H>\204_ \302\303\304D\"\210\306H\204z \211\301H>\204t \302\303\304D\"\210\211\306H\206\365 \301H>\204\211 \302\303\304D\"\210\305H\301H>\204\233 \302\303\304D\"\210\305H\230\205\365 \301H>\204\261 \302\303\304D\"\210\306H\203\314 \211\301H>\204\306 \302\303\304D\"\210\211\306H\206\365 \301H>\204\333 \302\303\304D\"\210\306H?\205\365 \211\301H>\204\361 \302\303\304D\"\210\211\306H?\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 3 1] 7 "\n\n(fn LINE-ONE LINE-TWO)"])
#@331 Update LINE-ERR-INFO-LIST with the error LINE-ERR-INFO.
For the format of LINE-ERR-INFO, see `flymake-ler-make-ler'.
The new element is inserted in the proper position, according to
the predicate `flymake-line-err-info-is-less-or-equal'.
The updated value of LINE-ERR-INFO-LIST is returned.
(fn LINE-ERR-INFO-LIST LINE-ERR-INFO)
(defalias 'flymake-add-line-err-info #[514 "\204 \211C\207G\300\211W\203 \3018\"\203 \211T\262\202\n \211\300\232\203. B\262\2026 \302S#\262\207" [0 flymake-line-err-info-is-less-or-equal flymake-ins-after] 8 (#$ . 33326)])
#@271 Update ERR-INFO-LIST with the error LINE-ERR-INFO, preserving sort order.
Returns the updated value of ERR-INFO-LIST.
For the format of ERR-INFO-LIST, see `flymake-err-info'.
For the format of LINE-ERR-INFO, see `flymake-ler-make-ler'.
(fn ERR-INFO-LIST LINE-ERR-INFO)
(defalias 'flymake-add-err-info #[514 "\211\301H>\204 \302\303\304D\"\210\211\305H\203 \305\202+ \211\301H>\204( \302\303\304D\"\210\211\306H\307\"\211@A@\310\211\203C \311 \233@!\262\312\"\262\313\"\262\203` \314#\262\202x \301\232\203o \211B\262\202x \315S#\262\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 1 2 flymake-find-err-info nil flymake-er-get-line-err-info-list flymake-add-line-err-info flymake-er-make-er flymake-set-at flymake-ins-after] 12 (#$ . 33905)])
#@69 Include dirs for the project current file belongs to.
(fn BASEDIR)
(defalias 'flymake-get-project-include-dirs-imp #[257 "\300!\203\n \300!\207\301\302!\303Q\304!\305\306\307#\211G\310\311W\2033 \312\3138\"\2043 T\262\202 W\203g \3058\314\307#\211G\211\310V\203e \312\313S8\"\204^ \315\316\317S8#B\262\211S\262\202B \266\320\"\210\207" [flymake-get-project-include-dirs-from-cache "make -C " shell-quote-argument " DUMPVARS=INCLUDE_DIRS dumpvars" shell-command-to-string split-string "\n" t 0 nil string-match "^INCLUDE_DIRS=.*" " *-I" replace-regexp-in-string "\"" "" flymake-add-project-include-dirs-to-cache] 14 (#$ . 34718)])
#@73 Function used to get project include dirs, one parameter: basedir name.
(defvar flymake-get-project-include-dirs-function 'flymake-get-project-include-dirs-imp (#$ . 35383))
(defalias 'flymake-get-project-include-dirs #[257 "!\207" [flymake-get-project-include-dirs-function] 3 "\n\n(fn BASEDIR)"])
#@55 System include dirs - from the `INCLUDE' env setting.
(defalias 'flymake-get-system-include-dirs #[0 "\301\302!\211\205\f \303\304#\207" [path-separator getenv "INCLUDE" split-string t] 5 (#$ . 35690)])
(defvar flymake-project-include-dirs-cache (make-hash-table :test 'equal))
(defalias 'flymake-get-project-include-dirs-from-cache #[257 "\301\"\207" [flymake-project-include-dirs-cache gethash] 4 "\n\n(fn BASE-DIR)"])
(defalias 'flymake-add-project-include-dirs-to-cache #[514 "\301#\207" [flymake-project-include-dirs-cache puthash] 6 "\n\n(fn BASE-DIR INCLUDE-DIRS)"])
(defalias 'flymake-clear-project-include-dirs-cache #[0 "\301!\207" [flymake-project-include-dirs-cache clrhash] 2])
#@65 Get dirs to use when resolving local file names.
(fn BASE-DIR)
(defalias 'flymake-get-include-dirs #[257 "\300\301\302!\303 #\211\207" [append (".") flymake-get-project-include-dirs flymake-get-system-include-dirs] 5 (#$ . 36395)])
(defalias 'flymake-safe-delete-file #[257 "\211\205 \300!\205 \301!\210\302\303\304#\207" [file-exists-p delete-file flymake-log 1 "deleted file %s"] 5 "\n\n(fn FILE-NAME)"])
(defalias 'flymake-safe-delete-directory #[257 "\3001 \301!\210\302\303\304#0\207\210\302\303\305#\207" [(error) delete-directory flymake-log 1 "deleted dir %s" "Failed to delete dir %s, error ignored"] 5 "\n\n(fn DIR-NAME)"])
#@43 Start syntax checking for current buffer.
(defalias 'flymake-start-syntax-check #[0 "\305\306\307#\210?\205O \310 !\205O \n\203 \311 ?\205O \312 \210\313 \210\314 \315!\316! \211@A@\3178\204F \305\320\321\n$\210 \202M \314\322#\266\207\207" [flymake-is-running buffer-file-name flymake-compilation-prevents-syntax-check flymake-check-was-interrupted flymake-last-change-time flymake-log 3 "flymake is running: %s" flymake-can-syntax-check-file flymake-compilation-is-running flymake-clear-buildfile-cache flymake-clear-project-include-dirs-cache nil flymake-get-init-function flymake-get-cleanup-function 2 0 "init function %s for %s failed, cleaning up" flymake-start-syntax-check-process] 12 (#$ . 37046) nil])
#@48 Start syntax check process.
(fn CMD ARGS DIR)
(defalias 'flymake-start-syntax-check-process #[771 "\3061I \211\206 \211\203 \307\310\311#\210\312\313\314p%)\315\316\"\210\317\320\"\210\211 B\321\322\323 \324\322\325\"\210\307\326\327\330!\331!%\210\211\2620\207\332\333\334!$
\335!\307\336\"\210\211 \210\337\340\"\266\203\207" [default-directory flymake-processes flymake-is-running flymake-last-change-time flymake-check-start-time buffer-file-name (error) flymake-log 3 "starting process on dir %s" apply start-file-process "flymake-proc" set-process-sentinel flymake-process-sentinel set-process-filter flymake-process-filter t nil float-time flymake-report-status "*" 2 "started process %d, command=%s, dir=%s" process-id process-command format-message "Failed to launch syntax check process `%s' with args %s: %s" error-message-string flymake-get-cleanup-function 0 flymake-report-fatal-status "PROCERR"] 10 (#$ . 37783)])
#@31 Kill process PROC.
(fn PROC)
(defalias 'flymake-kill-process #[257 "\301!\210\302!\303!\203 r\211q\210\304)\210\305\306\307\310!#\207" [flymake-check-was-interrupted kill-process process-buffer buffer-live-p t flymake-log 1 "killed process %d" process-id] 6 (#$ . 38744)])
#@34 Kill all syntax check processes.
(defalias 'flymake-stop-all-syntax-checks #[0 "\205 \301\211A\242!\210\202 \207" [flymake-processes flymake-kill-process] 3 (#$ . 39030) nil])
(defalias 'flymake-compilation-is-running #[0 "\301\300!\205 \207" [compilation-in-progress boundp] 2])
#@52 Kill all flymake syntax checks, start compilation.
(defalias 'flymake-compile #[0 "\300 \210\301\302!\207" [flymake-stop-all-syntax-checks call-interactively compile] 2 (#$ . 39323) nil])
#@67 Start a syntax check for buffer BUFFER if necessary.
(fn BUFFER)
(defalias 'flymake-on-timer-event #[257 "\303!\205& r\211q\210?\205% \205% \304 Z\nV\205% \305\306\307\310\"\210\311 )\207" [flymake-is-running flymake-last-change-time flymake-no-changes-timeout buffer-live-p float-time nil flymake-log 3 "starting syntax check as more than 1 second passed since last change" flymake-start-syntax-check] 4 (#$ . 39517)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias flymake-display-err-menu-for-current-line flymake-popup-current-error-menu nil make-obsolete "24.4"] 4)
#@76 Pop up a menu with errors/warnings for current line.
(fn &optional EVENT)
(defalias 'flymake-popup-current-error-menu #[256 "\302 \303\"@\206
\304\305!\306\307\"\310!\203 \202 \311\312 D\313\314\315\316\"\315\317\"$\320\321BD\"\322\323\324#\210\211\205f \325\326H >\204P \327\330\331D\"\210\332H\326H >\204b \327\330\331D\"\210\333H\"\207" [flymake-err-info cl-struct-flymake-ler-tags line-number-at-pos flymake-find-err-info user-error "No errors for current line" mapcar #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\203S \306\307\301H>\204& \302\303\304D\"\210\310H\301H>\2049 \302\303\304D\"\210\305H\301H>\204L \302\303\304D\"\210\311H$B\207\211\301H>\204b \302\303\304D\"\210\211\310HC\207" [cl-struct-flymake-ler-tags 0 signal wrong-type-argument flymake-ler 1 format "%s - %s(%d)" 4 2] 9 "\n\n(fn X)"] mouse-event-p mouse-1 posn-at-point format "Line %d: %d error(s), %d warning(s)" flymake-get-line-err-count "e" "w" x-popup-menu "" flymake-log 3 "choice=%s" flymake-goto-file-and-line 0 signal wrong-type-argument flymake-ler 5 2] 13 (#$ . 40119) (list last-nonmenu-event)])
#@70 Try to get buffer for FILE and goto line LINE in it.
(fn FILE LINE)
(defalias 'flymake-goto-file-and-line #[514 "\300!\204\f \301\302\303#\207\304!\210eb\210\211Sy\207" [file-exists-p flymake-log 1 "File %s does not exist" find-file] 6 (#$ . 41260)])
(defvar flymake-mode-line nil nil)
(make-variable-buffer-local 'flymake-mode-line)
(defvar flymake-mode-line-e-w nil nil)
(make-variable-buffer-local 'flymake-mode-line-e-w)
(defvar flymake-mode-line-status nil nil)
(make-variable-buffer-local 'flymake-mode-line-status)
#@54 Show status in mode line.
(fn E-W &optional STATUS)
(defalias 'flymake-report-status #[513 "\203 \211\203\f \211\303G\304V\203 \211\305Q\262\211 P\262\211\306 \207" [flymake-mode-line-e-w flymake-mode-line-status flymake-mode-line " Flymake" 0 ":" force-mode-line-update] 6 (#$ . 41792)])
#@42 Display a warning to user.
(fn WARNING)
(defalias 'flymake-display-warning #[257 "\300!\207" [message-box] 3 (#$ . 42099)])
#@69 Display a warning and switch flymake mode off.
(fn STATUS WARNING)
(defalias 'flymake-report-fatal-status #[514 "\203 \301\302\303\"!\210\304\305!\210\306\305\307\310 %\207" [flymake-gui-warnings-enabled flymake-display-warning format "Flymake: %s. Flymake will be switched OFF" flymake-mode 0 flymake-log "switched OFF Flymake mode for buffer %s due to fatal status %s, warning %s" buffer-name] 8 (#$ . 42231)])
#@93 Non-nil if Flymake mode is enabled.
Use the command `flymake-mode' to change this variable.
(defvar flymake-mode nil (#$ . 42656))
(make-variable-buffer-local 'flymake-mode)
#@264 Toggle Flymake mode on or off.
With a prefix argument ARG, enable Flymake mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
\{flymake-mode-map}
(fn &optional ARG)
(defalias 'flymake-mode #[256 "\305 \306=\203
?\202 \307!\310V\211\203s \204\" \311\312!\210\202\224 \313 !\2042 \314\315\316\317 #\210\202\224 \320\321\322\323\324$\210\320\325\326\323\324$\210\320\327\330\323\324$\210\331\332\211\"\210\333\323\334\335p$ \203\224 \336\337 !!\203\224 \3401i \341 0\202o \311\342\"\262\210\202\224 \343\321\322\324#\210\343\325\326\324#\210\343\327\330\324#\210\344 \210\n\203\222 \345\n!\210\323\323\346\347\203\236 \350\202\237 \351\"\210\352\353!\203\303 \305 \203\263 \211\305 \232\203\303 \354\311\355\203\276 \356\202\277 \357#\266\210\360 \210\207" [flymake-mode buffer-file-name flymake-timer flymake-start-syntax-check-on-find-file flymake-is-running current-message toggle prefix-numeric-value 0 message "Flymake unable to run without a buffer file name" flymake-can-syntax-check-file flymake-log 2 "flymake cannot check syntax in buffer %s" buffer-name add-hook after-change-functions flymake-after-change-function nil t after-save-hook flymake-after-save-hook kill-buffer-hook flymake-kill-buffer-hook flymake-report-status "" run-at-time 1 flymake-on-timer-event file-writable-p file-name-directory (debug error) flymake-start-syntax-check "Error: %S" remove-hook flymake-delete-own-overlays cancel-timer run-hooks flymake-mode-hook flymake-mode-on-hook flymake-mode-off-hook called-interactively-p any " in current buffer" "Flymake mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 42837) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@177 Hook run after entering or leaving `flymake-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar flymake-mode-hook nil (#$ . 44632))
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [flymake-mode-map add-minor-mode flymake-mode flymake-mode-line boundp nil] 6)
#@23 Turn flymake mode on.
(defalias 'flymake-mode-on #[0 "\300\301!\210\302\301\303\304 #\207" [flymake-mode 1 flymake-log "flymake mode turned ON for buffer %s" buffer-name] 4 (#$ . 44993)])
#@24 Turn flymake mode off.
(defalias 'flymake-mode-off #[0 "\300\301!\210\302\303\304\305 #\207" [flymake-mode 0 flymake-log 1 "flymake mode turned OFF for buffer %s" buffer-name] 4 (#$ . 45187)])
#@89 Start syntax check for current buffer if it isn't already running.
(fn START STOP LEN)
(defalias 'flymake-after-change-function #[771 "{\203 \211\302\232\203 \303\304\305\"\210\306 \210\307 \211\207" [flymake-start-syntax-check-on-newline flymake-last-change-time "\n" flymake-log 3 "starting syntax check as new-line has been seen" flymake-start-syntax-check float-time] 7 (#$ . 45386)])
(defalias 'flymake-after-save-hook #[0 "\300\301p\"\205 \302\303\304\"\210\305 \207" [local-variable-p flymake-mode flymake-log 3 "starting syntax check as buffer was saved" flymake-start-syntax-check] 3])
(defalias 'flymake-kill-buffer-hook #[0 "\205 \301!\210\302\211\207" [flymake-timer cancel-timer nil] 2])
(defalias 'flymake-find-file-hook #[0 "\301\302p\"?\205 \303!\205 \302 \210\304\305\306\"\207" [buffer-file-name local-variable-p flymake-mode flymake-can-syntax-check-file flymake-log 3 "automatically turned ON flymake mode"] 3])
#@51 Return first line with error.
(fn ERR-INFO-LIST)
(defalias 'flymake-get-first-err-line-no #[257 "\211\205 \300@!\207" [flymake-er-get-line] 3 (#$ . 46339)])
#@50 Return last line with error.
(fn ERR-INFO-LIST)
(defalias 'flymake-get-last-err-line-no #[257 "\211\205 \300GS8!\207" [flymake-er-get-line] 4 (#$ . 46505)])
#@58 Return next line with error.
(fn ERR-INFO-LIST LINE-NO)
(defalias 'flymake-get-next-err-line-no #[514 "\205, G\300\211W\203 \3018!Y\203 \211T\262\202 \211W\205* \3018!\266\202\207" [0 flymake-er-get-line] 8 (#$ . 46672)])
#@62 Return previous line with error.
(fn ERR-INFO-LIST LINE-NO)
(defalias 'flymake-get-prev-err-line-no #[514 "\205, G\211\300V\203 \301S8!X\203 \211S\262\202 \211\300V\205* \301S8!\262\207" [0 flymake-er-get-line] 7 (#$ . 46915)])
#@47 Move forward until non-whitespace is reached.
(defalias 'flymake-skip-whitespace #[0 "\300\301!\205\f \302u\210\202 \207" [looking-at "[ ]" nil] 2 (#$ . 47162)])
#@57 Go to line LINE-NO, then skip whitespace.
(fn LINE-NO)
(defalias 'flymake-goto-line #[257 "eb\210\211Sy\210\300 \207" [flymake-skip-whitespace] 2 (#$ . 47332)])
#@31 Go to next error in err ring.
(defalias 'flymake-goto-next-error #[0 "\301\302 \"\211\204 \303!\262\304\305\306\"\210\211\203 \307!\202! \304\305\310\"\207" [flymake-err-info flymake-get-next-err-line-no line-number-at-pos flymake-get-first-err-line-no flymake-log 1 "passed end of file" flymake-goto-line "no errors in current buffer"] 4 (#$ . 47500) nil])
#@35 Go to previous error in err ring.
(defalias 'flymake-goto-prev-error #[0 "\301\302 \"\211\204 \303!\262\304\305\306\"\210\211\203 \307!\202! \304\305\310\"\207" [flymake-err-info flymake-get-prev-err-line-no line-number-at-pos flymake-get-last-err-line-no flymake-log 1 "passed beginning of file" flymake-goto-line "no errors in current buffer"] 4 (#$ . 47870) nil])
(defalias 'flymake-patch-err-text #[257 "\300\301\"\203\f \302\303\"\207\207" [string-match "^[\n :0-9]*\\(.*\\)$" match-string 1] 4 "\n\n(fn STRING)"])
(defalias 'flymake-create-temp-inplace #[514 ";\204 \300\301!\210\211\204 \302\262\303!\304\305!\306\205 \307PR!\310\311\312$\210\207" [error "Invalid file-name" "flymake" file-name-extension file-truename file-name-sans-extension "_" "." flymake-log 3 "create-temp-inplace: file=%s temp=%s"] 9 "\n\n(fn FILE-NAME PREFIX)"])
(defalias 'flymake-create-temp-with-folder-structure #[514 ";\204 \301\302!\210\303!\304\305\"\306T\307O\"\310\306\311!\"!\207" [temporary-file-directory error "Invalid file-name" file-name-directory string-match "/" expand-file-name nil file-truename file-name-nondirectory] 9 "\n\n(fn FILE-NAME PREFIX)"])
#@121 Attempt to delete temp dir created by `flymake-create-temp-with-folder-structure', do not fail on error.
(fn DIR-NAME)
(defalias 'flymake-delete-temp-directory #[257 "GT\301O\211G\302V\205$ \303!\262\304\305\306\"!!\210\307!\262\202 \207" [temporary-file-directory nil 0 directory-file-name flymake-safe-delete-directory file-truename expand-file-name file-name-directory] 8 (#$ . 49062)])
(defvar flymake-temp-source-file-name nil nil)
(make-variable-buffer-local 'flymake-temp-source-file-name)
(defvar flymake-master-file-name nil nil)
(make-variable-buffer-local 'flymake-master-file-name)
(defvar flymake-temp-master-file-name nil nil)
(make-variable-buffer-local 'flymake-temp-master-file-name)
(defvar flymake-base-dir nil nil)
(make-variable-buffer-local 'flymake-base-dir)
#@116 Make a temporary copy of the current buffer, save its name in buffer data and return the name.
(fn CREATE-TEMP-F)
(defalias 'flymake-init-create-temp-buffer-copy #[257 "\302\"\303!\210\211\207" [buffer-file-name flymake-temp-source-file-name "flymake" flymake-save-buffer-in-file] 5 (#$ . 49862)])
#@76 Do cleanup after `flymake-init-create-temp-buffer-copy'.
Delete temp file.
(defalias 'flymake-simple-cleanup #[0 "\302!\210\303\211\207" [flymake-temp-source-file-name flymake-last-change-time flymake-safe-delete-file nil] 2 (#$ . 50172)])
#@138 Translate file name from error message to "real" file name.
Return full-name. Names are real, not patched.
(fn FILE-NAME-FROM-ERR-MSG)
(defalias 'flymake-get-real-file-name #[257 "\305 \n \f\306!\205 \306!E\211DD\211DDFG\307\232\203+ \262\310#\262\204? \311\"\262\204H \262\312!\262\313\314\315\n\n$\210\207" [buffer-file-name flymake-master-file-name flymake-temp-source-file-name flymake-temp-master-file-name flymake-base-dir nil file-name-directory 0 flymake-get-full-patched-file-name flymake-get-full-nonpatched-file-name flymake-fix-file-name flymake-log 3 "get-real-file-name: file-name=%s real-name=%s"] 13 (#$ . 50421)])
(defalias 'flymake-get-full-patched-file-name #[771 "GG\300\211\204S \301V\203S G\262\211\204L \301V\203L S8S8@S8A@\203C \203C \302\303\n\"\"\203C \211\262\266S\262\202 S\262\202 \207" [nil 0 flymake-same-files expand-file-name] 13 "\n\n(fn FILE-NAME-FROM-ERR-MSG BASE-DIRS FILES)"])
(defalias 'flymake-get-full-nonpatched-file-name #[514 "\300\301!\203
\262\2021 G\2040 \211\302V\2030 \303S8\"\304!\203) \211\262S\266\202\202 \210\211\207" [nil file-name-absolute-p 0 expand-file-name file-exists-p] 8 "\n\n(fn FILE-NAME-FROM-ERR-MSG BASE-DIRS)"])
#@114 Find buildfile, store its dir in buffer data and return its dir, if found.
(fn SOURCE-FILE-NAME BUILDFILE-NAME)
(defalias 'flymake-init-find-buildfile-dir #[514 "\301\302!\"\211\203 \211\211\202! \303\304\305$\210\306\307\310\311#\"\207" [flymake-base-dir flymake-find-buildfile file-name-directory flymake-log 1 "no buildfile (%s) for %s" flymake-report-fatal-status "NOMK" format "No buildfile (%s) found for %s"] 9 (#$ . 51689)])
#@154 Find master file (or buffer), create its copy along with a copy of the source file.
(fn GET-INCL-DIRS-F CREATE-TEMP-F MASTER-FILE-MASKS INCLUDE-REGEXP)
(defalias 'flymake-init-create-temp-source-and-master-buffer-copy #[1028 "\303!\304&\211\204$ \305\306\307#\210\310\311\312\"\210\313\202, \211@\211A@\211\207" [buffer-file-name flymake-master-file-name flymake-temp-master-file-name flymake-init-create-temp-buffer-copy flymake-create-master-file flymake-log 1 "cannot find master file for %s" flymake-report-status "!" "" nil] 13 (#$ . 52140)])
(defalias 'flymake-master-cleanup #[0 "\301 \210\302!\207" [flymake-temp-master-file-name flymake-simple-cleanup flymake-safe-delete-file] 2])
#@151 Create a command line for syntax check using GET-CMD-LINE-F.
(fn SOURCE-FILE-NAME BASE-DIR USE-RELATIVE-BASE-DIR USE-RELATIVE-SOURCE GET-CMD-LINE-F)
(defalias 'flymake-get-syntax-check-program-args #[1285 "\211\203 \300\"\202 \203 \300\301 !\"\202 \"\207" [file-relative-name file-name-directory] 11 (#$ . 52856)])
(defalias 'flymake-get-make-cmdline #[514 "\300\301\302\303P\304\305\257D\207" ["make" "-s" "-C" "CHK_SOURCES=" "SYNTAX_CHECK_MODE=1" "check-syntax"] 9 "\n\n(fn SOURCE BASE-DIR)"])
(defalias 'flymake-get-ant-cmdline #[514 "\300\301\302\303Q\304P\305FD\207" ["ant" "-buildfile" "/" "build.xml" "-DCHK_SOURCES=" "check-syntax"] 7 "\n\n(fn SOURCE BASE-DIR)"])
#@204 Create syntax check command line for a directly checked source file.
Use CREATE-TEMP-F for creating temp copy.
(fn CREATE-TEMP-F USE-RELATIVE-BASE-DIR USE-RELATIVE-SOURCE BUILD-FILE-NAME GET-CMDLINE-F)
(defalias 'flymake-simple-make-init-impl #[1285 "\301\302\"\211\203 \303!\304\n\n %\262\210\207" [buffer-file-name nil flymake-init-find-buildfile-dir flymake-init-create-temp-buffer-copy flymake-get-syntax-check-program-args] 15 (#$ . 53557)])
(defalias 'flymake-simple-make-init #[0 "\300\301\302\211\303\304%\207" [flymake-simple-make-init-impl flymake-create-temp-inplace t "Makefile" flymake-get-make-cmdline] 6])
#@136 Create make command line for a source file checked via master file compilation.
(fn GET-INCL-DIRS-F MASTER-FILE-MASKS INCLUDE-REGEXP)
(defalias 'flymake-master-make-init #[771 "\300\301\302$\211\203 \303\304\"\211\203 \305\300\211\306%\262\210\207" [nil flymake-init-create-temp-source-and-master-buffer-copy flymake-create-temp-inplace flymake-init-find-buildfile-dir "Makefile" flymake-get-syntax-check-program-args flymake-get-make-cmdline] 12 (#$ . 54199)])
(defalias 'flymake-find-make-buildfile #[257 "\300\301\"\207" [flymake-find-buildfile "Makefile"] 4 "\n\n(fn SOURCE-DIR)"])
(defalias 'flymake-master-make-header-init #[0 "\300\301\302\303#\207" [flymake-master-make-init flymake-get-include-dirs ("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'") "[ ]*#[ ]*include[ ]*\"\\([[:word:]0-9/\\_.]*%s\\)\""] 4])
(defalias 'flymake-simple-make-java-init #[0 "\300\301\302\211\303\304%\207" [flymake-simple-make-init-impl flymake-create-temp-with-folder-structure nil "Makefile" flymake-get-make-cmdline] 6])
(defalias 'flymake-simple-ant-java-init #[0 "\300\301\302\211\303\304%\207" [flymake-simple-make-init-impl flymake-create-temp-with-folder-structure nil "build.xml" flymake-get-ant-cmdline] 6])
#@77 Cleanup after `flymake-simple-make-java-init' -- delete temp file and dirs.
(defalias 'flymake-simple-java-cleanup #[0 "\301!\210\205
\302\303!!\207" [flymake-temp-source-file-name flymake-safe-delete-file flymake-delete-temp-directory file-name-directory] 3 (#$ . 55426)])
(defalias 'flymake-perl-init #[0 "\301\302!\303\304!\"\305\306DD\207" [buffer-file-name flymake-init-create-temp-buffer-copy flymake-create-temp-inplace file-relative-name file-name-directory "perl" "-wc "] 5])
(defalias 'flymake-php-init #[0 "\301\302!\303\304!\"\305\306\307ED\207" [buffer-file-name flymake-init-create-temp-buffer-copy flymake-create-temp-inplace file-relative-name file-name-directory "php" "-f" "-l"] 6])
(defalias 'flymake-get-tex-args #[257 "\300\301\302ED\207" ["texify" "--pdf" "--tex-option=-c-style-errors"] 5 "\n\n(fn FILE-NAME)"])
(defalias 'flymake-simple-tex-init #[0 "\300\301\302!!\207" [flymake-get-tex-args flymake-init-create-temp-buffer-copy flymake-create-temp-inplace] 3])
(defalias 'flymake-master-tex-init #[0 "\300\301\302\303\304$\211\205
\305!\207" [flymake-init-create-temp-source-and-master-buffer-copy flymake-get-include-dirs-dot flymake-create-temp-inplace ("\\.tex\\'") "[ ]*\\in\\(?:put\\|clude\\)[ ]*{\\(.*%s\\)}" flymake-get-tex-args] 5])
(defalias 'flymake-get-include-dirs-dot #[257 "\300\207" [(".")] 2 "\n\n(fn BASE-DIR)"])
(defalias 'flymake-xml-init #[0 "\301\302\303!DD\207" [flymake-xml-program "val" flymake-init-create-temp-buffer-copy flymake-create-temp-inplace] 4])
(provide 'flymake)
Kontol Shell Bypass