| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/progmodes/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313\314\315\316\317\320& \210\321\322\323\324\325DD\326\313\327\330\331&\210\321\332\323\324\333DD\334\313\327\330\335&\210\321\336\323\324\337DD\340\313\341\330\342&\210\321\343\323\324\344DD\345\313\327\330\346&\210\347\350\351\352#\210\321\353\323\324\354DD\355\330\356%\210\321\357\323\324\360DD\361\330\362%\210\347\357\363\341#\210\364\365\366\311#\210\367\211\203\255 \211@\365N\203\246 \366N\204\246 \370\366\365N#\210A\266\202\202\214 \210\347\365\366\341#\210\321\366\323\324\371DD\372\313\341\330\362&\210\321\373\323\324\374DD\375\313\352\330\362&\210\321\376\323\324\377DD\201@ \330\201A %\210\347\376\201B \341#\210\321\201C \323\324\201D DD\201E \313\341\330\362&\210\321\201F \323\324\201G DD\201H \330\201I %\210\201J \201K !\203E\201K \201L \201M \201N \211\211\211\201O \211\211\211\211\211\211\211\201N \201O \201N \211\211&\"\210\311\207" [require cl-lib thingatpt warnings compile mwheel project 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" [(flymake-double-exclamation-mark compilation-error)] 1 #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" [(exclamation-mark compilation-warning)] 1 #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-note-bitmap #[0 "\300\207" [(exclamation-mark compilation-info)] 1 #1#] "Bitmap (a symbol) used in the fringe for indicating info notes.\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." "26.1" (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 #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)) make-obsolete-variable flymake-start-syntax-check-on-newline "can check on newline in post-self-insert-hook" "27.1" flymake-no-changes-timeout #[0 "\300\207" [0.5] 1 #1#] "Time to wait after last change before automatically checking buffer.\nIf nil, never start checking buffer automatically like this." (choice (number :tag "Timeout in seconds") (const :tag "No check on timeout" nil)) flymake-gui-warnings-enabled #[0 "\300\207" [t] 1 #1#] "Enables/disables GUI warnings." boolean "it no longer has any effect." defvaralias flymake-start-syntax-check-on-find-file flymake-start-on-flymake-mode (saved-value saved-variable-comment) put #[0 "\300\207" [t] 1 #1#] "If non-nil, start syntax check when `flymake-mode' is enabled.\nSpecifically, start it when the buffer is actually displayed." flymake-start-on-save-buffer #[0 "\300\207" [t] 1 #1#] "If non-nil, start syntax check when a buffer is saved.\nSpecifically, start it when the saved buffer is actually displayed." flymake-log-level #[0 "\300\207" [-1] 1 #1#] "Obsolete and ignored variable." integer "it is superseded by `warning-minimum-log-level.'" flymake-wrap-around #[0 "\300\207" [t] 1 #1#] "If non-nil, moving to errors wraps around buffer boundaries." flymake-suppress-zero-counters #[0 "\300\207" [:warning] 1 #1#] "Control appearance of zero-valued diagnostic counters in mode line.\n\nIf set to t, suppress all zero counters. If set to a severity\nsymbol like `:warning' (the default) suppress zero counters less\nsevere than that severity, according to `warning-numeric-level'.\nIf set to nil, don't suppress any zero counters." symbol fboundp define-fringe-bitmap flymake-double-exclamation-mark vector 0 102] 20)
#@34 Timer for starting syntax check.
(defvar flymake-timer nil (#$ . 4972))
(make-variable-buffer-local 'flymake-timer)
#@41 Time at which syntax check was started.
(defvar flymake-check-start-time nil (#$ . 5094))
(make-variable-buffer-local 'flymake-check-start-time)
#@69 Do actual work for `flymake-log'.
(fn LEVEL SUBLOG MSG &rest ARGS)
(defalias 'flymake--log-1 #[899 "\302\303\304\206 \305\306\307\310\311p!##\312\305D\313\314#\247\203, \3158\206. \316\202. \317$*\207" [warning-type-format warning-minimum-level :emergency format " [%s %s]" flymake replace-regexp-in-string "%" "%%" buffer-name display-warning apply format-message (:emergency :error :warning :debug :debug) :error "*Flymake log*"] 13 (#$ . 5245)])
#@33 Go to the *Flymake log* buffer.
(defalias 'flymake-switch-to-log-buffer #[0 "\300\301!\207" [switch-to-buffer "*Flymake log*"] 2 (#$ . 5714) nil])
#@275 Log, at level LEVEL, the message MSG formatted with ARGS.
LEVEL is passed to `display-warning', which is used to display
the warning. If this form is included in a file,
the generated warning contains an indication of the file that
generated it.
(fn LEVEL MSG &rest ARGS)
(defalias 'flymake-log '(macro . #[642 "\302\303!\203 \303 \202 ?\205 \304\301!\205 \211;\205# \305\306\307!!!\310\311DBBBB\207" [load-file-name byte-compile-current-file fboundp macroexp-file-name boundp intern file-name-nondirectory file-name-sans-extension flymake--log-1 quote] 10 (#$ . 5868)]))
#@78 Format TEXT with ARGS and signal an error for Flymake.
(fn TEXT &rest ARGS)
(defalias 'flymake-error #[385 "\300\301#\302\303\304#\210\305\306P!\207" [apply format-message flymake--log-1 :error flymake error "[Flymake] "] 7 (#$ . 6461)])
#@72 compiler-macro for inlining `flymake--diag-p'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-p (and (memq (type-of cl-x) cl-struct-flymake--diag-tags) t)) nil] 9 (#$ . 6710)])
(put 'flymake--diag-p 'compiler-macro 'flymake--diag-p--cmacro)
#@13
(fn CL-X)
(defalias 'flymake--diag-p #[257 "\301!>\205 \302\207" [cl-struct-flymake--diag-tags type-of t] 3 (#$ . 7062)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put flymake--diag-p side-effect-free error-free put flymake--diag cl-deftype-satisfies] 5)
#@76 compiler-macro for inlining `flymake--diag-locus'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-locus--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-locus (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 1))) nil] 9 (#$ . 7348)])
(put 'flymake--diag-locus 'compiler-macro 'flymake--diag-locus--cmacro)
#@64 Access slot "locus" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-locus #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 1] 5 (#$ . 7768)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-locus side-effect-free t] 4)
#@74 compiler-macro for inlining `flymake--diag-beg'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-beg--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-beg (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 2))) nil] 9 (#$ . 8118)])
(put 'flymake--diag-beg 'compiler-macro 'flymake--diag-beg--cmacro)
#@62 Access slot "beg" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-beg #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 2] 5 (#$ . 8528)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-beg side-effect-free t] 4)
#@74 compiler-macro for inlining `flymake--diag-end'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-end--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-end (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 3))) nil] 9 (#$ . 8872)])
(put 'flymake--diag-end 'compiler-macro 'flymake--diag-end--cmacro)
#@62 Access slot "end" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-end #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 3] 5 (#$ . 9282)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-end side-effect-free t] 4)
#@75 compiler-macro for inlining `flymake--diag-type'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-type (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 4))) nil] 9 (#$ . 9626)])
(put 'flymake--diag-type 'compiler-macro 'flymake--diag-type--cmacro)
#@63 Access slot "type" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-type #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 4] 5 (#$ . 10041)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-type side-effect-free t] 4)
#@75 compiler-macro for inlining `flymake--diag-text'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-text--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-text (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 5))) nil] 9 (#$ . 10389)])
(put 'flymake--diag-text 'compiler-macro 'flymake--diag-text--cmacro)
#@63 Access slot "text" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-text #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 5] 5 (#$ . 10805)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-text side-effect-free t] 4)
#@78 compiler-macro for inlining `flymake--diag-backend'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-backend--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-backend (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 6))) nil] 9 (#$ . 11153)])
(put 'flymake--diag-backend 'compiler-macro 'flymake--diag-backend--cmacro)
#@66 Access slot "backend" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-backend #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 6] 5 (#$ . 11584)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-backend side-effect-free t] 4)
#@75 compiler-macro for inlining `flymake--diag-data'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-data--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-data (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 7))) nil] 9 (#$ . 11941)])
(put 'flymake--diag-data 'compiler-macro 'flymake--diag-data--cmacro)
#@63 Access slot "data" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-data #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 7] 5 (#$ . 12357)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-data side-effect-free t] 4)
#@89 compiler-macro for inlining `flymake--diag-overlay-properties'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-overlay-properties--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-overlay-properties (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 8))) nil] 9 (#$ . 12705)])
(put 'flymake--diag-overlay-properties 'compiler-macro 'flymake--diag-overlay-properties--cmacro)
#@77 Access slot "overlay-properties" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-overlay-properties #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 8] 5 (#$ . 13191)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-overlay-properties side-effect-free t] 4)
#@78 compiler-macro for inlining `flymake--diag-overlay'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-overlay--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-overlay (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 9))) nil] 9 (#$ . 13581)])
(put 'flymake--diag-overlay 'compiler-macro 'flymake--diag-overlay--cmacro)
#@66 Access slot "overlay" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-overlay #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 9] 5 (#$ . 14012)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-overlay side-effect-free t] 4)
#@79 compiler-macro for inlining `flymake--diag-orig-beg'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-orig-beg--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-orig-beg (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 10))) nil] 9 (#$ . 14369)])
(put 'flymake--diag-orig-beg 'compiler-macro 'flymake--diag-orig-beg--cmacro)
#@67 Access slot "orig-beg" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-orig-beg #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 10] 5 (#$ . 14806)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-orig-beg side-effect-free t] 4)
#@79 compiler-macro for inlining `flymake--diag-orig-end'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-orig-end--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-orig-end (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 11))) nil] 9 (#$ . 15167)])
(put 'flymake--diag-orig-end 'compiler-macro 'flymake--diag-orig-end--cmacro)
#@67 Access slot "orig-end" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-orig-end #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 11] 5 (#$ . 15604)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put flymake--diag-orig-end side-effect-free t defalias copy-flymake--diag copy-sequence] 4)
#@163 compiler-macro for inlining `flymake--diag-make'.
(fn CL-WHOLE &cl-quote &key LOCUS BEG END TYPE TEXT BACKEND DATA OVERLAY-PROPERTIES OVERLAY ORIG-BEG ORIG-END)
(defalias 'flymake--diag-make--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@ \211\203u \211@\314>\203] \211AA\262\202J \315
>A@\203l \316\262\202J \317\320@\"\210\202J \210\321\322\323\316\316&\207" [plist-member :locus :beg :end :type :text :backend :data :overlay-properties :overlay :orig-beg :orig-end (:locus :beg :end :type :text :backend :data :overlay-properties :overlay :orig-beg :orig-end :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:locus :beg :end :type :text :backend :data :overlay-properties :overlay :orig-beg :orig-end)" cl--defsubst-expand (locus beg end type text backend data overlay-properties overlay orig-beg orig-end) (cl-block flymake--diag-make (record 'flymake--diag locus beg end type text backend data overlay-properties overlay orig-beg orig-end))] 30 (#$ . 16018)])
(put 'flymake--diag-make 'compiler-macro 'flymake--diag-make--cmacro)
#@143 Constructor for objects of type `flymake--diag'.
(fn &key LOCUS BEG END TYPE TEXT BACKEND DATA OVERLAY-PROPERTIES OVERLAY ORIG-BEG ORIG-END)
(defalias 'flymake--diag-make #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@ \211\203u \211@\314>\203] \211AA\262\202J \315
>A@\203l \316\262\202J \317\320@\"\210\202J \210\321\322\f\f\f\f\f\f\f\f\f\f\f&\f\207" [plist-member :locus :beg :end :type :text :backend :data :overlay-properties :overlay :orig-beg :orig-end (:locus :beg :end :type :text :backend :data :overlay-properties :overlay :orig-beg :orig-end :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:locus :beg :end :type :text :backend :data :overlay-properties :overlay :orig-beg :orig-end)" record flymake--diag] 25 (#$ . 17240)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put flymake--diag-make side-effect-free t cl-struct-define flymake--diag nil cl-structure-object record ((cl-tag-slot) (locus) (beg) (end) (type) (text) (backend) (data) (overlay-properties) (overlay) (orig-beg) (orig-end)) cl-struct-flymake--diag-tags] 11)
#@961 Make a Flymake diagnostic for LOCUS's region from BEG to END.
LOCUS is a buffer object or a string designating a file name.
TYPE is a diagnostic symbol and TEXT is string describing the
problem detected in this region. DATA is any object that the
caller wishes to attach to the created diagnostic for later
retrieval with `flymake-diagnostic-data'.
If LOCUS is a buffer BEG and END should be buffer positions
inside it. If LOCUS designates a file, BEG and END should be a
cons (LINE . COL) indicating a file position. In this second
case, END may be omitted in which case the region is computed
using `flymake-diag-region' if the diagnostic is appended to an
actual buffer.
OVERLAY-PROPERTIES is an alist of properties attached to the
created diagnostic, overriding the default properties and any
properties listed in the `flymake-overlay-control' property of
the diagnostic's type symbol.
(fn LOCUS BEG END TYPE TEXT &optional DATA OVERLAY-PROPERTIES)
(defalias 'flymake-make-diagnostic #[1797 ";\203\f \300!\262\301\302\303 \303&\f\207" [expand-file-name record flymake--diag nil] 20 (#$ . 18488)])
#@229 Get Flymake diagnostics in region determined by BEG and END.
If neither BEG or END is supplied, use whole accessible buffer,
otherwise if BEG is non-nil and END is nil, consider only
diagnostics at BEG.
(fn &optional BEG END)
(defalias 'flymake-diagnostics #[512 "\300\301\302\303\304$\"\207" [mapcar #[257 "\300\301\"\207" [overlay-get flymake-diagnostic] 4 "\n\n(fn OV)"] flymake--overlays :beg :end] 9 (#$ . 19625)])
#@85 Make PUBLIC an alias for INTERNAL, add doc using THING.
(fn PUBLIC INTERNAL THING)
(defalias 'flymake--diag-accessor '(macro . #[771 "\300\301\302\303\304!\"\305B\257\207" [defsubst (diag) format "Get Flymake diagnostic DIAG's %s." symbol-name (diag)] 10 (#$ . 20057)]))
#@48 Get Flymake diagnostic DIAG's text.
(fn DIAG)
(defalias 'flymake-diagnostic-text #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 5] 5 (#$ . 20340)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put flymake-diagnostic-text speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@48 Get Flymake diagnostic DIAG's type.
(fn DIAG)
(defalias 'flymake-diagnostic-type #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 4] 5 (#$ . 20732)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put flymake-diagnostic-type speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@51 Get Flymake diagnostic DIAG's backend.
(fn DIAG)
(defalias 'flymake-diagnostic-backend #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 6] 5 (#$ . 21124)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put flymake-diagnostic-backend speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@48 Get Flymake diagnostic DIAG's data.
(fn DIAG)
(defalias 'flymake-diagnostic-data #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 7] 5 (#$ . 21525)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put flymake-diagnostic-data speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@47 Get Flymake diagnostic DIAG's beg.
(fn DIAG)
(defalias 'flymake-diagnostic-beg #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 2] 5 (#$ . 21917)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put flymake-diagnostic-beg speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@47 Get Flymake diagnostic DIAG's end.
(fn DIAG)
(defalias 'flymake-diagnostic-end #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 3] 5 (#$ . 22306)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put flymake-diagnostic-end speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@49 Get Flymake diagnostic DIAG's locus.
(fn DIAG)
(defalias 'flymake-diagnostic-buffer #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 1] 5 (#$ . 22695)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put flymake-diagnostic-buffer speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@328 Get flymake-related overlays.
If BEG is non-nil and END is nil, consider only `overlays-at'
BEG. Otherwise consider `overlays-in' the region comprised by BEG
and END, defaulting to the whole buffer. Remove all that do not
verify FILTER, a function, and sort them by COMPARE (using KEY).
(fn &key BEG END FILTER COMPARE KEY)
(defalias 'flymake--overlays #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\214~\210\313\314\315\"\203d \204d \316\317\"\202r \320\206k e\206q d\"\"\203\204 \321\305\206\200 \322$\202\205 \211\262)\207" [plist-member :beg :end :filter :compare :key (:beg :end :filter :compare :key :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:beg :end :filter :compare :key)" cl-remove-if-not make-closure #[257 "\301\302\"\205 \300?\206 \300!\207" [V0 overlay-get flymake-diagnostic] 4 "\n\n(fn OV)"] overlays-at t overlays-in cl-sort identity] 12 (#$ . 23093)])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\314%\210\315\316\317\306#\210\315\316\320\321\314!\206( \322#\210\315\323\317\301#\210\315\323\320\321\314!\206: \322#\207" [custom-declare-face flymake-error ((((supports :underline (:style wave))) :underline (:style wave :color "Red1")) (t :inherit error)) "Face used for marking error regions." :version "24.4" flymake-warning ((((supports :underline (:style wave))) :underline (:style wave :color "deep sky blue")) (t :inherit warning)) "Face used for marking warning regions." flymake-note ((((supports :underline (:style wave))) :underline (:style wave :color "yellow green")) (t :inherit warning)) "Face used for marking note regions." "26.1" put flymake-warnline face-alias obsolete-face purecopy t flymake-errline] 6)
#@217 Compute BUFFER's region (BEG . END) corresponding to LINE and COL.
If COL is nil, return a region just for LINE. Return nil if the
region is invalid. This function saves match data.
(fn BUFFER LINE &optional COL)
(defalias 'flymake-diag-region #[770 "\3001\226 rq\210\301]\302d\303\"^\212\304 \305\306\"\216eb\210Sy\210\307\310\203\203 \211\311V\262\203\203 Su\210`\3121> \313\314!0\202B \210\202E \206R \3151P \313\316!0\202R \210\317\211\203` \211U\204` \211\206i TbdW\205i `\211\203u B\266\205\202\215 \211\262!B\266\205\202\215 !B\266\204)\262)\262)0\207\320\321\322\323%\210\317\207" [(debug error) 1 line-number-at-pos absolute match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[0 "\300 \210m\203 \301\302!\207`\207" [back-to-indentation line-beginning-position 0] 2] #[257 "\300\210\301x\210`=\203 \302\303!\207`\207" [nil " \f\n" line-beginning-position 2] 3 "\n\n(fn BEG)"] 0 (error) end-of-thing sexp (error) symbol nil flymake--log-1 :warning flymake "Invalid region line=%s col=%s"] 13 (#$ . 24974)])
#@3708 Special hook of Flymake backends that check a buffer.
The functions in this hook diagnose problems in a buffer's
contents and provide information to the Flymake user interface
about where and how to annotate problems diagnosed in a buffer.
Each backend function must be prepared to accept an arbitrary
number of arguments:
* the first argument is always REPORT-FN, a callback function
detailed below;
* the remaining arguments are keyword-value pairs in the
form (:KEY VALUE :KEY2 VALUE2...).
Currently, Flymake may provide these keyword-value pairs:
* `:recent-changes', a list of recent changes since the last time
the backend function was called for the buffer. An empty list
indicates that no changes have been recorded. If it is the
first time that this backend function is called for this
activation of `flymake-mode', then this argument isn't provided
at all (i.e. it's not merely nil).
Each element is in the form (BEG END TEXT) where BEG and END
are buffer positions, and TEXT is a string containing the text
contained between those positions (if any) after the change was
performed.
* `:changes-start' and `:changes-end', the minimum and maximum
buffer positions touched by the recent changes. These are only
provided if `:recent-changes' is also provided.
Whenever Flymake or the user decides to re-check the buffer,
backend functions are called as detailed above and are expected
to initiate this check, but aren't required to complete it before
exiting: if the computation involved is expensive, especially for
large buffers, that task can be scheduled for the future using
asynchronous processes or other asynchronous mechanisms.
In any case, backend functions are expected to return quickly or
signal an error, in which case the backend is disabled. Flymake
will not try disabled backends again for any future checks of
this buffer. To reset the list of disabled backends, turn
`flymake-mode' off and on again, or interactively call
`flymake-start' with a prefix argument.
If the function returns, Flymake considers the backend to be
"running". If it has not done so already, the backend is
expected to call the function REPORT-FN with a single argument
REPORT-ACTION also followed by an optional list of keyword-value
pairs in the form (:REPORT-KEY VALUE :REPORT-KEY2 VALUE2...).
Currently accepted values for REPORT-ACTION are:
* A (possibly empty) list of diagnostic objects created with
`flymake-make-diagnostic', causing Flymake to delete all
previous diagnostic annotations in the buffer and create new
ones from this list.
A backend may call REPORT-FN repeatedly in this manner, but
only until Flymake considers that the most recently requested
buffer check is now obsolete because, say, buffer contents have
changed in the meantime. The backend is only given notice of
this via a renewed call to the backend function. Thus, to
prevent making obsolete reports and wasting resources, backend
functions should first cancel any ongoing processing from
previous calls.
* The symbol `:panic', signaling that the backend has encountered
an exceptional situation and should be disabled.
Currently accepted REPORT-KEY arguments are:
* `:explanation' value should give user-readable details of
the situation encountered, if any.
* `:force': value should be a boolean suggesting that Flymake
consider the report even if it was somehow unexpected.
* `:region': a cons (BEG . END) of buffer positions indicating
that the report applies to that region only. Specifically,
this means that Flymake will only delete diagnostic annotations
of past reports if they intersect the region by at least one
character.
(defvar flymake-diagnostic-functions nil (#$ . 26066))
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\300\307\305\310#\210\300\311\305\312#\207" [put flymake-diagnostic-functions safe-local-variable null :error flymake-category flymake-error :warning flymake-warning :note flymake-note] 4)
(defvar flymake-diagnostic-types-alist nil)
(byte-code "\300\301\302\303#\210\304\305\306\305#\210\304\305\307\310#\210\304\305\311\312\313!#\210\304\305\314\315#\210\304\305\316\317#\210\304\320\306\320#\210\304\320\307\321#\210\304\320\311\312\322!#\210\304\320\314\323#\210\304\320\316\324#\210\304\325\306\325#\210\304\325\307\326#\210\304\325\311\312\327!#\210\304\325\314\330#\210\304\325\316\331#\207" [make-obsolete-variable flymake-diagnostic-types-alist "Set properties on the diagnostic symbols instead. See Info\nNode `(Flymake)Flymake error types'" "27.1" put flymake-error face flymake-bitmap flymake-error-bitmap severity warning-numeric-level :error mode-line-face compilation-error flymake-type-name "error" flymake-warning flymake-warning-bitmap :warning compilation-warning "warning" flymake-note flymake-note-bitmap :debug compilation-info "note"] 5)
#@181 Look up PROP for diagnostic TYPE.
If TYPE doesn't declare PROP in its plist or in the symbol of its
associated `flymake-category' return DEFAULT.
(fn TYPE PROP &optional DEFAULT)
(defalias 'flymake--lookup-type-property #[770 "\301\302!\"\203
N\207\303\304\304\"\211\262\"\206H \305N\206& \304\305\"\211\2052 \2119\2052 \302!\211\205; \301\"\211\205B \211A@\266\203\206H \207" [flymake-diagnostic-types-alist plist-member symbol-plist nil alist-get flymake-category] 9 (#$ . 30950)])
#@50 Get the severity for diagnostic TYPE.
(fn TYPE)
(defalias 'flymake--severity #[257 "\300\301\302\303!#\207" [flymake--lookup-type-property severity warning-numeric-level :error] 6 (#$ . 31458)])
#@34
(fn BITMAP &optional RECURSED)
(defalias 'flymake--fringe-overlay-spec #[513 "9\203 \301!\203 \211\204 \302J\303\"\207\205. \205. \304\305\306<\203* \202, CB#\207" [flymake-fringe-indicator-position boundp flymake--fringe-overlay-spec t propertize "!" display] 7 (#$ . 31661)])
#@67 Tell if A and B are equivalent `flymake--diag' objects.
(fn A B)
(defalias 'flymake--equal-diagnostic-p #[514 "=\206- \300\301\302:\203& @\262!!\232\211\262\203& A\262\202 \211\205+ \302\266\203\207" [(flymake--diag-end flymake--diag-beg flymake-diagnostic-type flymake-diagnostic-backend flymake-diagnostic-text) nil t] 8 (#$ . 31959)])
#@535 Attempt to overlay DIAGNOSTIC in current buffer.
FOREIGN says if DIAGNOSTIC is "foreign" to the current buffer,
i.e. managed by another buffer where `flymake-mode' is also
active.
This function mayskip overlay creation if a diagnostic which is
the same as DIAGNOSTIC is already highlighted
(in the sense of `flymake--equal-diagnostic-p'). In that case
the action to take depends on FOREIGN. If nil the existing
overlay is deleted, else no overlay is created.
Return nil or the overlay created.
(fn DIAGNOSTIC &optional FOREIGN)
(defalias 'flymake--highlight-line #[513 "\3022=\303!>\204 \304\305\306D\"\210\211\307H\262\206 \310\303!>\204, \304\305\306D\"\210\311H\303!>\204? \304\305\306D\"\210\312H\313\314C:\203b \203b !@\262:\203\206 !@\262\202\206 :\203\206 !\211\203w \211A\262\242\202~ \304\315\316GD\"\211\262\262\266\303!>\204\227 \304\305\306 D\"\210\311I\210\303!>\204\256 \304\305\306 D\"\210\312I\210\317\"\314:\203=@\262\320\n\"\2036\203\327 \321\302\314\"\210\2026\303!>\204\346 \304\305\306D\"\210\211\311\303!>\204\367 \304\305\306D\"\210\322HI\210\303!>\204 \304\305\306D\"\210\211\312\303!>\204 \304\305\306D\"\210\323HI\210\324\303!>\2041\304\305\306D\"\210\325H!\210A\262\202\271 \266\211\326\"\240\210\303!>\204X\304\305\306 D\"\210\311\327\242!I\210\303!>\204r\304\305\306 D\"\210\312\330\242!I\210\331\242\332\333\334\"#\210\335\336\303 !>\204\231\304\305\306 D\"\210\337H!\336\333\340\"!\341 \"#\314\211:\203\314@\262\211A\262\242\262\331\242#\210A\262\202\255\266\342\211\343\344$\210\211\345\346\333 \347\341\350\341 \"\"#!$\210\211\351\352$\210\211\353\354\310!$\210\211\355\314\356\357\242\353\"\\B$\266\331\242\360\361#\210\331\242\362 #\210\303!>\2041\304\305\306 D\"\210\325\242I\210\211\242\266\2050\207" [cl-struct-flymake--diag-tags flymake-diagnostic-types-alist --cl-block-flymake--highlight-line-- type-of signal wrong-type-argument flymake--diag 4 :error 2 3 #[257 "\300p@A#\207" [flymake-diag-region] 5 "\n\n(fn CELL)"] nil wrong-number-of-arguments (a . b) flymake-diagnostics flymake--equal-diagnostic-p throw 10 11 delete-overlay 9 make-overlay overlay-start overlay-end overlay-put category flymake--lookup-type-property flymake-category append reverse 8 flymake-overlay-control alist-get #[1028 "\300\301\242!\"?\205 \302\242\303##\207" [plist-member overlay-properties overlay-put flymake--lookup-type-property] 11 "\n\n(fn TYPE OV PROP VALUE)"] face flymake-error before-string flymake--fringe-overlay-spec flymake-bitmap bitmap help-echo #[771 "\300!r\301\302\"\216\303@\304\"\210\305\306\307!\310#*\207" [internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord mapconcat flymake-diagnostic-text flymake-diagnostics "\n"] 8 "\n\n(fn WINDOW OV POS)"] severity warning-numeric-level priority 40 overlay-get evaporate t flymake-diagnostic] 21 (#$ . 32318)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias flymake-display-warning message-box nil make-obsolete "26.1"] 4)
#@896 State of a buffer's multiple Flymake backends.
The keys to this hash table are functions as found in
`flymake-diagnostic-functions'. The values are structures
of the type `flymake--state', with these slots:
`running', a symbol to keep track of a backend's replies via its
REPORT-FN argument. A backend is running if this key is
present. If nil, Flymake isn't expecting any replies from the
backend.
`diags', a (possibly empty) list of recent diagnostic objects
created by the backend with `flymake-make-diagnostic'.
`reported-p', a boolean indicating if the backend has replied
since it last was contacted.
`disabled', a string with the explanation for a previous
exceptional situation reported by the backend, nil if the
backend is operating normally.
`foreign-diags', a hash table of buffers/files to
collections of diagnostics outside the buffer where this
`flymake--state' pertains.
(defvar flymake--state nil (#$ . 35529))
(make-variable-buffer-local 'flymake--state)
#@73 compiler-macro for inlining `flymake--state-p'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--state-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--state-p (and (memq (type-of cl-x) cl-struct-flymake--state-tags) t)) nil] 9 (#$ . 36516)])
(put 'flymake--state-p 'compiler-macro 'flymake--state-p--cmacro)
#@13
(fn CL-X)
(defalias 'flymake--state-p #[257 "\301!>\205 \302\207" [cl-struct-flymake--state-tags type-of t] 3 (#$ . 36875)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put flymake--state-p side-effect-free error-free put flymake--state cl-deftype-satisfies] 5)
#@79 compiler-macro for inlining `flymake--state-running'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--state-running--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--state-running (progn (or (flymake--state-p cl-x) (signal 'wrong-type-argument (list 'flymake--state cl-x))) (aref cl-x 1))) nil] 9 (#$ . 37166)])
(put 'flymake--state-running 'compiler-macro 'flymake--state-running--cmacro)
#@67 Access slot "running" of `flymake--state' struct CL-X.
(fn CL-X)
(defalias 'flymake--state-running #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--state-tags type-of signal wrong-type-argument flymake--state 1] 5 (#$ . 37604)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--state-running side-effect-free t] 4)
#@82 compiler-macro for inlining `flymake--state-reported-p'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--state-reported-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--state-reported-p (progn (or (flymake--state-p cl-x) (signal 'wrong-type-argument (list 'flymake--state cl-x))) (aref cl-x 2))) nil] 9 (#$ . 37966)])
(put 'flymake--state-reported-p 'compiler-macro 'flymake--state-reported-p--cmacro)
#@70 Access slot "reported-p" of `flymake--state' struct CL-X.
(fn CL-X)
(defalias 'flymake--state-reported-p #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--state-tags type-of signal wrong-type-argument flymake--state 2] 5 (#$ . 38419)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--state-reported-p side-effect-free t] 4)
#@80 compiler-macro for inlining `flymake--state-disabled'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--state-disabled--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--state-disabled (progn (or (flymake--state-p cl-x) (signal 'wrong-type-argument (list 'flymake--state cl-x))) (aref cl-x 3))) nil] 9 (#$ . 38790)])
(put 'flymake--state-disabled 'compiler-macro 'flymake--state-disabled--cmacro)
#@68 Access slot "disabled" of `flymake--state' struct CL-X.
(fn CL-X)
(defalias 'flymake--state-disabled #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--state-tags type-of signal wrong-type-argument flymake--state 3] 5 (#$ . 39233)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--state-disabled side-effect-free t] 4)
#@77 compiler-macro for inlining `flymake--state-diags'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--state-diags--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--state-diags (progn (or (flymake--state-p cl-x) (signal 'wrong-type-argument (list 'flymake--state cl-x))) (aref cl-x 4))) nil] 9 (#$ . 39598)])
(put 'flymake--state-diags 'compiler-macro 'flymake--state-diags--cmacro)
#@65 Access slot "diags" of `flymake--state' struct CL-X.
(fn CL-X)
(defalias 'flymake--state-diags #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--state-tags type-of signal wrong-type-argument flymake--state 4] 5 (#$ . 40026)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--state-diags side-effect-free t] 4)
#@85 compiler-macro for inlining `flymake--state-foreign-diags'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--state-foreign-diags--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--state-foreign-diags (progn (or (flymake--state-p cl-x) (signal 'wrong-type-argument (list 'flymake--state cl-x))) (aref cl-x 5))) nil] 9 (#$ . 40382)])
(put 'flymake--state-foreign-diags 'compiler-macro 'flymake--state-foreign-diags--cmacro)
#@73 Access slot "foreign-diags" of `flymake--state' struct CL-X.
(fn CL-X)
(defalias 'flymake--state-foreign-diags #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--state-tags type-of signal wrong-type-argument flymake--state 5] 5 (#$ . 40850)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put flymake--state-foreign-diags side-effect-free t defalias copy-flymake--state copy-sequence] 4)
#@138 compiler-macro for inlining `flymake--make-backend-state'.
(fn CL-WHOLE &cl-quote &key RUNNING REPORTED-P DISABLED DIAGS FOREIGN-DIAGS)
(defalias 'flymake--make-backend-state--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"\206 \306A@\211\203N \211@\307>\2036 \211AA\262\202# \310>A@\203E \311\262\202# \312\313@\"\210\202# \210\314\315\316\311\n\311\n\n\n\n\n&\n\207" [plist-member :running :reported-p :disabled :diags :foreign-diags (nil (make-hash-table)) (:running :reported-p :disabled :diags :foreign-diags :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:running :reported-p :disabled :diags :foreign-diags)" cl--defsubst-expand (running reported-p disabled diags foreign-diags) (cl-block flymake--make-backend-state (record 'flymake--state running reported-p disabled diags foreign-diags))] 18 (#$ . 41284)])
(put 'flymake--make-backend-state 'compiler-macro 'flymake--make-backend-state--cmacro)
#@110 Constructor for objects of type `flymake--state'.
(fn &key RUNNING REPORTED-P DISABLED DIAGS FOREIGN-DIAGS)
(defalias 'flymake--make-backend-state #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"\206# \306\307 DA@\211\203Q \211@\310>\2039 \211AA\262\202& \311>A@\203H \306\262\202& \312\313@\"\210\202& \210\314\315&\207" [plist-member :running :reported-p :disabled :diags :foreign-diags nil make-hash-table (:running :reported-p :disabled :diags :foreign-diags :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:running :reported-p :disabled :diags :foreign-diags)" record flymake--state] 13 (#$ . 42273)])
(cl-struct-define 'flymake--state nil 'cl-structure-object 'record nil '((cl-tag-slot) (running) (reported-p) (disabled) (diags) (foreign-diags (make-hash-table))) 'cl-struct-flymake--state-tags 'flymake--state t)
#@85 Bind BACKEND's STATE-VAR to its state, run BODY.
(fn BACKEND STATE-VAR &rest BODY)
(defalias 'flymake--with-backend-state '(macro . #[642 "\300\301!\302D\303\304\305BB\306\307BBEDDBB\207" [make-symbol "b" let* or gethash (flymake--state) puthash ((flymake--make-backend-state) flymake--state)] 12 (#$ . 43168)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put flymake--with-backend-state lisp-indent-function 2 put edebug-form-spec (sexp sexp &rest form)] 5)
#@54 Tell if Flymake has running backends in this buffer.
(defalias 'flymake-is-running #[0 "\300 \207" [flymake-running-backends] 1 (#$ . 43660)])
#@92 Return t if regions START0..END0 and START1..END1 intersect.
(fn START0 END0 START1 END1)
(defalias 'flymake--intersects-p #[1028 "Y\203\f W\206- V\203 X\206- Y\203$ W\206- \211V\205- \211X\207" [] 6 (#$ . 43809)])
#@447 Handle reports from BACKEND identified by TOKEN.
BACKEND, REPORT-ACTION and EXPLANATION, and FORCE conform to the
calling convention described in
`flymake-diagnostic-functions' (which see). Optional FORCE says
to handle a report even if TOKEN was not expected. REGION is
a (BEG . END) pair of buffer positions indicating that this
report applies to that region.
(fn BACKEND TOKEN REPORT-ACTION &key EXPLANATION FORCE REGION &allow-other-keys)
(defalias 'flymake--handle-report #[899 "\303\304\"A@\303\305\"A@\303\306\"A@\307\"\206 \310\311\"\312\204- \313\314\n\"\210\202\320 \315! >\204< \316\317\300D\"\210\320H\203K \313\321\n\"\210\202\320 \315! >\204Z \316\317\300D\"\210\322H\262\211\204l \313\323\n\"\210\202\320 \211=\204\202 \204\202 \313\324\n#\210\202\320 \325=\203\223 \326 \"\210\202\320 <\204\254 \326 \327\330\n\"\"\210\313\331\"\210\202\320 \332\333 \334\306 &\210\n\203\320 \335\336\337\340\f G\341\342\n!!&\210\315! >\204\337 \316\317\300D\"\210\343\344I\210\345p!\207" [flymake--state cl-struct-flymake--state-tags flymake-check-start-time plist-member :explanation :force :region gethash error "Can't find state for %s in `flymake--state'" nil flymake-error "Unexpected report from unknown backend %s" type-of signal wrong-type-argument 3 "Unexpected report from disabled backend %s" 1 "Unexpected report from stopped backend %s" "Obsolete report from backend %s with explanation %s" :panic flymake--disable-backend format "Unknown action %S" "Expected report, but got unknown key %s" flymake--publish-diagnostics :backend :state flymake--log-1 :debug flymake "backend %s reported %d diagnostics in %.2f second(s)" float-time time-since 2 t flymake--update-diagnostics-listings] 18 (#$ . 44047)])
#@14
(fn STATE)
(defalias 'flymake--clear-foreign-diags #[257 "\301\302\303!>\204 \304\305\306D\"\210\307H\"\210\310\303!>\204& \304\305\306D\"\210\307H!\207" [cl-struct-flymake--state-tags maphash #[514 "\211\301:\203- @\262\302!>\204 \303\304\305D\"\210\211\306H\211\203% \307!\210\210A\262\202 \301\207" [cl-struct-flymake--diag-tags nil type-of signal wrong-type-argument flymake--diag 9 delete-overlay] 8 "\n\n(fn BUFFER DIAGS)"] type-of signal wrong-type-argument flymake--state 5 clrhash] 7 (#$ . 45823)])
(defvar flymake-mode nil nil)
(make-variable-buffer-local 'flymake-mode)
#@159 Helper for `flymake--handle-report'.
Publish DIAGS, which contain diagnostics for the current buffer
and other buffers.
(fn DIAGS &key BACKEND STATE REGION)
(defalias 'flymake--publish-diagnostics #[385 "\303\304\"A@\303\305\"A@\303\306\"A@\211\203= \211@\307>\203& \211AA\262\202 \310>A@\2034 \311\262\202 \312\313@\"\210\202 \210\211\203a \211@\314!>\204T \315\316\317D\"\210\211\320I\210A\266\202\202? \210\214~\210\211\203\346 \314! >\204x \315\316\321D\"\210\322H\311\211\211\211:\203\313 @\262\314!>\204\230 \315\316\317D\"\210\323H\262\324!\203\264 \325\326!\327!@ A$\203\273 \330!\210\202\301 C\244\262A\262\311\262\202 \314! >\204\334 \315\316\321 D\"\210\322I\266\202Y\314! >\204\365 \315\316\321D\"\210\331H\204Y\314! >\204\n\315\316\321D\"\210\322H\311\211\211:\203?@\262\314!>\204(\315\316\317D\"\210\323H\262\2035\330!\210A\262\311\262\202\266\314! >\204P\315\316\321D\"\210\322\311I\210\332!\210\311\211\211:\203,@\262\314!>\204u\315\316\317D\"\210\333H\262p=\203\242\314! >\204\221\315\316\321D\"\210\322\322HBI\210\334!\210\202\"\335!\204\261\336!\211\262\203\324rq\210\n\203\276\334\337\"\210\314!>\204\315\315\316\317D\"\210\333\340 I\210)\314!>\204\343\315\316\317D\"\210\333H;\204\356\341\342!\210\314!>\204\375\315\316\317D\"\210\333H\314! >\204\315\316\321 D\"\210\343H\344\345\"B#\266A\262\311\262\202]\266)\311\207" [cl-struct-flymake--diag-tags cl-struct-flymake--state-tags flymake-mode plist-member :backend :state :region (:backend :state :region :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:backend :state :region)" type-of signal wrong-type-argument flymake--diag 6 flymake--state 4 9 overlay-buffer flymake--intersects-p overlay-start overlay-end delete-overlay 2 flymake--clear-foreign-diags 1 flymake--highlight-line buffer-live-p find-buffer-visiting foreign buffer-file-name cl--assertion-failed (stringp (flymake--diag-locus d)) 5 puthash gethash] 17 (#$ . 46433)])
#@250 Make a suitable anonymous report function for BACKEND.
BACKEND is used to help Flymake distinguish different diagnostic
sources. If provided, TOKEN helps Flymake distinguish between
different runs of the same backend.
(fn BACKEND &optional TOKEN)
(defalias 'flymake-make-report-fn #[513 "p\300\301$\207" [make-closure #[128 "\303\302!\205 r\302q\210\304\305\300\301$)\207" [V0 V1 V2 buffer-live-p apply flymake--handle-report] 6 "\n\n(fn &rest ARGS)"]] 8 (#$ . 48531)])
#@126 Collect Flymake backends matching FN.
If MESSAGE-PREFIX, echo a message using that prefix.
(fn FN &optional MESSAGE-PREFIX)
(defalias 'flymake--collect #[513 "\204 \301\302!\210\303C\304\305\306#\"\210\203\" \307\310\311\312\242\313##\210\211\242\207" [flymake--state user-error "Flymake is not initialized" nil maphash make-closure #[514 "\300!\205\f \301\301\242B\240\207" [V0 V1] 5 "\n\n(fn BACKEND STATE)"] message "%s%s" mapconcat #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn S)"] ", "] 10 (#$ . 49015)])
#@53 Compute running Flymake backends in current buffer.
(defalias 'flymake-running-backends #[0 "\300\301\302\303!\205 \304\"\207" [flymake--collect flymake--state-running called-interactively-p interactive "Running backends: "] 4 (#$ . 49546) nil])
#@54 Compute disabled Flymake backends in current buffer.
(defalias 'flymake-disabled-backends #[0 "\300\301\302\303!\205 \304\"\207" [flymake--collect flymake--state-disabled called-interactively-p interactive "Disabled backends: "] 4 (#$ . 49799) nil])
#@55 Compute reporting Flymake backends in current buffer.
(defalias 'flymake-reporting-backends #[0 "\300\301\302\303!\205 \304\"\207" [flymake--collect flymake--state-reported-p called-interactively-p interactive "Reporting backends: "] 4 (#$ . 50056) nil])
#@105 Disable BACKEND because EXPLANATION.
If it is running also stop it.
(fn BACKEND &optional EXPLANATION)
(defalias 'flymake--disable-backend #[513 "\302\303\304\305%\210\306\"\206 \307\310 #\311! >\204$ \312\313\300D\"\210\211\314\315I\210\311! >\2048 \312\313\300D\"\210\211\316I\210\311! >\204L \312\313\300D\"\210\211\317\320I\207" [flymake--state cl-struct-flymake--state-tags flymake--log-1 :warning flymake "Disabling backend %s because %s" gethash puthash flymake--make-backend-state type-of signal wrong-type-argument 1 nil 3 2 t] 8 (#$ . 50319)])
#@163 Run the backend BACKEND, re-enabling if necessary.
ARGS is a keyword-value plist passed to the backend along
with a report function.
(fn BACKEND &optional ARGS)
(defalias 'flymake--run-backend #[513 "\302\303\304\305$\210\306\307!\310\"\206 \311\312 #\313! >\204& \314\315\300D\"\210\211\316I\210\313! >\204: \314\315\300D\"\210\211\317\320I\210\313! >\204N \314\315\300D\"\210\211\321\320I\266\3221b \323\324\"#0\207\325\"\207" [flymake--state cl-struct-flymake--state-tags flymake--log-1 :debug flymake "Running backend %s" cl-gensym "backend-token" gethash puthash flymake--make-backend-state type-of signal wrong-type-argument 1 3 nil 2 (error) apply flymake-make-report-fn flymake--disable-backend] 8 (#$ . 50895)])
#@62 Recent changes collected by `flymake-after-change-function'.
(defvar flymake--recent-changes nil (#$ . 51643))
(make-variable-buffer-local 'flymake--recent-changes)
#@614 Start a syntax check for the current buffer.
DEFERRED is a list of symbols designating conditions to wait for
before actually starting the check. If it is nil (the list is
empty), start it immediately, else defer the check to when those
conditions are met. Currently recognized conditions are
`post-command', for waiting until the current command is over,
`on-display', for waiting until the buffer is actually displayed
in a window. If DEFERRED is t, wait for all known conditions.
With optional FORCE run even disabled backends.
Interactively, with a prefix arg, FORCE is t.
(fn &optional DEFERRED FORCE)
(defalias 'flymake-start #[512 "\304=\203\n \305\202 p\306C\306C\307\310%\240\210\211\307\311$\240\210\312>\203; \203; \313\314\242\315\306$\207\316>\203O \317p!\204O \313\320\242\315\321$\207 \205{ \322 \205n \323 \324\325\326\327\330 \"\"\331\325\332\327\333 \"\"\257\306\334\335\307\336 #\"\262\207" [this-command flymake-mode flymake-check-start-time flymake--recent-changes t (post-command on-display) nil make-closure #[0 "\304\305\303\242\306#\210\307\302!\205 r\302q\210\310\311\312\301\"\300\")\207" [V0 V1 V2 V3 remove-hook post-command-hook nil buffer-live-p flymake-start remove post-command] 4] #[0 "\303\304\302\242\305#\210\306\307\310\301\"\300\"\207" [V0 V1 V2 remove-hook window-configuration-change-hook local flymake-start remove on-display] 4] post-command add-hook post-command-hook append on-display get-buffer-window window-configuration-change-hook local float-time :recent-changes :changes-start cl-reduce min mapcar car :changes-end max cadr run-hook-wrapped flymake-diagnostic-functions #[257 "\300\2042 \304\n\"\206 \305\306 \n#\307! >\204 \310\311\302D\"\210\211\312H\262\2032 \313\314\315\316$\210\2027 \317\301\"\210\320\207" [V0 V1 flymake--state cl-struct-flymake--state-tags gethash puthash flymake--make-backend-state type-of signal wrong-type-argument 3 flymake--log-1 :debug flymake "Backend %s is disabled, not starting" flymake--run-backend nil] 6 "\n\n(fn BACKEND)"]] 16 (#$ . 51815) (list nil current-prefix-arg)])
#@28 Keymap for `flymake-mode'.
(defvar flymake-mode-map (make-sparse-keymap) (#$ . 53930))
#@93 Non-nil if Flymake mode is enabled.
Use the command `flymake-mode' to change this variable.
(defvar flymake-mode nil (#$ . 54023))
(make-variable-buffer-local 'flymake-mode)
#@1855 Toggle Flymake mode on or off.
This is a minor mode. If called interactively, toggle the `Flymake
mode' mode. If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable the
mode if ARG is nil, omitted, or is a positive number. Disable the
mode if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate `flymake-mode'.
The mode's hook is called both when the mode is enabled and when it is
disabled.
Flymake is an Emacs minor mode for on-the-fly syntax checking.
Flymake collects diagnostic information from multiple sources,
called backends, and visually annotates the buffer with the
results.
Flymake performs these checks while the user is editing.
The customization variables `flymake-start-on-flymake-mode',
`flymake-no-changes-timeout' determine the exact circumstances
whereupon Flymake decides to initiate a check of the buffer.
The commands `flymake-goto-next-error' and
`flymake-goto-prev-error' can be used to navigate among Flymake
diagnostics annotated in the buffer.
The visual appearance of each type of diagnostic can be changed
by setting properties `flymake-overlay-control', `flymake-bitmap'
and `flymake-severity' on the symbols of diagnostic types (like
`:error', `:warning' and `:note').
Activation or deactivation of backends used by Flymake in each
buffer happens via the special hook
`flymake-diagnostic-functions'.
Some backends may take longer than others to respond or complete,
and some may decide to disable themselves if they are not
suitable for the current buffer. The commands
`flymake-running-backends', `flymake-disabled-backends' and
`flymake-reporting-backends' summarize the situation, as does the
special *Flymake log* buffer.
(fn &optional ARG)
(defalias 'flymake-mode #[256 "\306 \307=\203
?\202 \247\203 \310W\203 \311\202 \312\313\301!\2031 \314\300 \"\2031 \300 B\203\222 \315\316\317\311\312$\210\315\320\321\311\312$\210\315\322\323\311\312$\210\315\324\325\312\211$\210\326\327\330 \"\210\331 \311\f\203d \332\312!\210p
\333 \211\203\215 \211@r\211q\210\203\205 \n\203\205 \334\335\336#\n\"\210)A\266\202\202h \266\202\306 \337\316\317\312#\210\337\320\321\312#\210\337\322\323\312#\210\337\324\325\312#\210.\203\267 \340.!\210\311.\326\327\330 \"\210\n\203\306 \334\341\n\"\210\342\343\203\320 \344\202\321 \345\"\210\346\347!\203\363 \306 \203\345 \211\306 \232\203\363 \350\351\203\357 \352\202\360 \353\354#\210\210\355 \210\207" [flymake-mode local-minor-modes flymake--state flymake--recent-changes flymake-start-on-flymake-mode buffer-file-name current-message toggle 1 nil t boundp delq add-hook after-change-functions flymake-after-change-function after-save-hook flymake-after-save-hook kill-buffer-hook flymake-kill-buffer-hook eldoc-documentation-functions flymake-eldoc-function mapc delete-overlay flymake--overlays make-hash-table flymake-start buffer-list maphash make-closure #[514 "\303\304\305\300\301#\306!\n>\204 \307\310\311D\"\210\312H\"\207" [V0 V1 cl-struct-flymake--state-tags maphash make-closure #[514 "\300=\204 \301\302!\230\205 r\300q\210\303\304\")\207" [V0 V1 expand-file-name mapc #[257 "\300\301\"\207" [flymake--highlight-line foreign] 4 "\n\n(fn DIAG)"]] 5 "\n\n(fn FILE DIAGS)"] type-of signal wrong-type-argument flymake--state 5] 8 "\n\n(fn BACKEND STATE)"] remove-hook cancel-timer #[514 "\300!\207" [flymake--clear-foreign-diags] 4 "\n\n(fn BACKEND STATE)"] run-hooks flymake-mode-hook flymake-mode-on-hook flymake-mode-off-hook called-interactively-p any message "Flymake mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update flymake-timer] 11 (#$ . 54205) (byte-code "\203\n \301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar flymake-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [flymake-mode-map flymake-mode-hook variable-documentation put "Hook run after entering or leaving `flymake-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode flymake-mode flymake-mode-line-format] 6)
#@108 (Re)schedule an idle timer for checking the buffer.
Do it only if `flymake-no-changes-timeout' is non-nil.
(defalias 'flymake--schedule-timer-maybe #[0 "\203 \302!\210 \205 \303\304 !\305\306p$\211\207" [flymake-timer flymake-no-changes-timeout cancel-timer run-with-idle-timer seconds-to-time nil #[257 "\303!\205! r\211q\210\203 \203 \304\305\306\307 $\210\310\311!\210\312\211)\207" [flymake-mode flymake-no-changes-timeout flymake-timer buffer-live-p flymake--log-1 :debug flymake "starting syntax check after idle for %s seconds" flymake-start t nil] 6 "\n\n(fn BUFFER)"]] 5 (#$ . 58569)])
#@23 Turn Flymake mode on.
(defalias 'flymake-mode-on #[0 "\300\301!\207" [flymake-mode 1] 2 (#$ . 59181)])
#@24 Turn Flymake mode off.
(defalias 'flymake-mode-off #[0 "\300\301!\207" [flymake-mode 0] 2 (#$ . 59290)])
(byte-code "\300\301\302\303#\210\300\304\302\303#\207" [make-obsolete flymake-mode-on flymake-mode "26.1" flymake-mode-off] 4)
#@148 Start syntax check for current buffer if it isn't already running.
START and STOP and LEN are as in `after-change-functions'.
(fn START STOP LEN)
(defalias 'flymake-after-change-function #[771 "{EB\301 \207" [flymake--recent-changes flymake--schedule-timer-maybe] 7 (#$ . 59530)])
(defalias 'flymake-after-save-hook #[0 "\205
\301\302\303\304#\210\305\306!\207" [flymake-start-on-save-buffer flymake--log-1 :debug flymake "starting syntax check as buffer was saved" flymake-start t] 4])
(defalias 'flymake-kill-buffer-hook #[0 "\300\301!\207" [flymake-mode -1] 2])
(defalias 'flymake-find-file-hook #[0 "\206 ??\205 \300 \210\302\303\304\305#\207" [flymake-mode flymake-diagnostic-functions flymake--log-1 :warning flymake "Turned on in `flymake-find-file-hook'"] 4])
#@115 Document diagnostics at point.
Intended for `eldoc-documentation-functions' (which see).
(fn REPORT-DOC &rest _)
(defalias 'flymake-eldoc-function #[385 "\300`!\211\205 \301\302\303#!\207" [flymake-diagnostics mapconcat flymake-diagnostic-text "\n"] 8 (#$ . 60319)])
#@466 Go to Nth next Flymake diagnostic that matches FILTER.
Interactively, always move to the next diagnostic. With a prefix
arg, skip any diagnostics with a severity less than `:warning'.
If `flymake-wrap-around' is non-nil and no more next diagnostics,
resumes search from top.
FILTER is a list of diagnostic types. Only diagnostics with
matching severities matching are considered. If nil (the
default) no filter is applied.
(fn &optional N FILTER INTERACTIVE)
(defalias 'flymake-goto-next-error #[768 "\206 \301\302\303\304\305\"\306\211\307V\262\203 \310\202 \311\312\313&\314\304\315\"\"\203D \211\2038 \316!\241\210\211\202E \205E \316!\241\202E \211S8\211\203c \313!b\210\205| \317\320\321\322\"\323 `#\"\207\205| \324\325\203z \326\327\330\331\f\332#\"\202{ \333\"\207" [flymake-wrap-around 1 flymake--overlays :filter make-closure #[257 "\302\303\"\211\205) \300?\206) \304\305\306! >\204 \307\310\311D\"\210\211\312H\262!\300\313\305$\207" [V0 cl-struct-flymake--diag-tags overlay-get flymake-diagnostic cl-find flymake--severity type-of signal wrong-type-argument flymake--diag 4 :key] 9 "\n\n(fn OV)"] :compare 0 < > :key overlay-start cl-member-if #[257 "\300\211\301V\262\203 \302!`V\207\302!`W\207" [V0 0 overlay-start] 4 "\n\n(fn OV)"] last message "%s" overlay-get help-echo selected-window user-error "No more Flymake diagnostics%s" format " of %s severity" mapconcat symbol-name ", " ""] 16 (#$ . 60597) (byte-code "\301\205 \302\303E\207" [current-prefix-arg 1 (:error :warning) t] 3)])
#@481 Go to Nth previous Flymake diagnostic that matches FILTER.
Interactively, always move to the previous diagnostic. With a
prefix arg, skip any diagnostics with a severity less than
`:warning'.
If `flymake-wrap-around' is non-nil and no more previous
diagnostics, resumes search from bottom.
FILTER is a list of diagnostic types. Only diagnostics with
matching severities matching are considered. If nil (the
default) no filter is applied.
(fn &optional N FILTER INTERACTIVE)
(defalias 'flymake-goto-prev-error #[768 "\300\206 \301[#\207" [flymake-goto-next-error 1] 7 (#$ . 62152) (byte-code "\301\205 \302\303E\207" [current-prefix-arg 1 (:error :warning) t] 3)])
#@15 Flymake menu.
(defvar flymake-menu nil (#$ . 62834))
(byte-code "\301\302\303\304$\210\305\306\307\310\311DD\312\313\314%\210\305\315\307\310\316DD\317\313\320%\207" [flymake-mode-map easy-menu-do-define flymake-menu "Flymake menu." ("Flymake" ["Go to next problem" flymake-goto-next-error t] ["Go to previous problem" flymake-goto-prev-error t] ["Check now" flymake-start t] ["List all problems" flymake-show-buffer-diagnostics t] "--" ["Go to log buffer" flymake-switch-to-log-buffer t] ["Turn off Flymake" flymake-mode t]) custom-declare-variable flymake-mode-line-format funcall function #[0 "\300\207" [(" " flymake-mode-line-title flymake-mode-line-exception flymake-mode-line-counters)] 1 #1=""] "Mode line construct for customizing Flymake information." :type (repeat (choice string symbol)) flymake-mode-line-counter-format #[0 "\300\207" [("[" flymake-mode-line-error-counter flymake-mode-line-warning-counter flymake-mode-line-note-counter "]")] 1 #1#] "Mode-line construct for formatting Flymake diagnostic counters.\nThis is a suitable place for placing the `flymake-error-counter',\n`flymake-warning-counter' and `flymake-note-counter' constructs.\nSeparating each of these with space is not necessary." (repeat (choice string symbol))] 6)
#@59 Mode-line construct to show Flymake's mode name and menu.
(defvar flymake-mode-line-title '(:eval (flymake--mode-line-title)) (#$ . 64095))
#@62 Mode-line construct to report on exceptional Flymake status.
(defvar flymake-mode-line-exception '(:eval (flymake--mode-line-exception)) (#$ . 64241))
#@131 Mode-line construct for counting Flymake diagnostics.
The counters are only placed if some Flymake backend initialized
correctly.
(defvar flymake-mode-line-counters '(:eval (flymake--mode-line-counters)) (#$ . 64399))
(defvar flymake-mode-line-error-counter '(:eval (flymake--mode-line-counter :error t)))
(defvar flymake-mode-line-warning-counter '(:eval (flymake--mode-line-counter :warning)))
(defvar flymake-mode-line-note-counter '(:eval (flymake--mode-line-counter :note)))
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\207" [put flymake-mode-line-format risky-local-variable t flymake-mode-line-title flymake-mode-line-exception flymake-mode-line-counters flymake-mode-line-error-counter flymake-mode-line-warning-counter flymake-mode-line-note-counter] 4)
(defalias 'flymake--mode-line-title #[0 "\301\302\303\304\305\306\307\310 \311\312#\210\311\313#\210\311\314\315#\210\211\262\257\207" [flymake-menu :propertize "Flymake" mouse-face mode-line-highlight help-echo #[128 "\301\302\303!\"\301\304\305 G\"\301\306\307 G\"\310R\207" [flymake--state format "%s known backends\n" hash-table-count "%s running\n" flymake-running-backends "%s disabled\n" flymake-disabled-backends "mouse-1: Display minor mode menu\nmouse-2: Show help for minor mode"] 6 "\n\n(fn &rest _)"] keymap make-sparse-keymap define-key [mode-line down-mouse-1] [mode-line down-mouse-3] [mode-line mouse-2] #[0 "\300\301!\207" [describe-function flymake-mode] 2 nil nil]] 12])
#@43 Helper for `flymake-mode-line-exception'.
(defalias 'flymake--mode-line-exception #[0 "\301\211\302!\303U\203 \304\202; \305\306 \211\262\307 \211\262\"\203- \310\311\312\313\305\"G\"E\202; \314 \203: \204: \315\202; \316\211\242\243\211\242\243\211\242\243\205d \317\320\321\322\323\324 \325\326\327#\210\211\262\257D\207" [flymake--state nil hash-table-count 0 ("?" nil "No known backends") cl-set-difference flymake-running-backends flymake-reporting-backends "Wait" compilation-mode-line-run format "Waiting for %s running backend(s)" flymake-disabled-backends ("!" compilation-mode-line-run "All backends disabled") (nil nil nil) ":" :propertize face help-echo keymap make-sparse-keymap define-key [mode-line mouse-1] flymake-switch-to-log-buffer] 22 (#$ . 65978)])
(defalias 'flymake--mode-line-counters #[0 "\301 \205 \207" [flymake-mode-line-counter-format flymake-running-backends] 1])
#@150 Compute number of diagnostics in buffer with TYPE's severity.
TYPE is usually keyword `:error', `:warning' or `:note'.
(fn TYPE &optional NO-SPACE)
(defalias 'flymake--mode-line-counter #[513 "\304\305\306\307#\310 \211\2038 \211@\311!\311\312!>\204# \313\314\315D\"\210\211\316H\262!U\2031 T\262A\266\202\202 \210\211\304V\262\204\\ \317=\203J \320\207 \203X \311!\321 !Y\202Y \317\205\221 \203d \322\202e \323\324\325\326\"\327\330\331\332\333 \334\335\336\n\"\337\340\"#\210\334\335\336 \"\337\341\"#\210\211\262\257D\207" [cl-struct-flymake--diag-tags flymake-suppress-zero-counters mouse-wheel-down-event mouse-wheel-up-event 0 flymake--lookup-type-property mode-line-face compilation-error flymake-diagnostics flymake--severity type-of signal wrong-type-argument flymake--diag 4 t nil warning-numeric-level "" (:propertize " ") :propertize format "%d" face mouse-face mode-line-highlight keymap make-sparse-keymap define-key vector mode-line make-closure #[257 "\301\302!\211@\262!r\303\304\"\216\305@\306\"\210\307\310\300C\311#*\207" [V0 internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord flymake-goto-prev-error 1 t] 6 "\n\n(fn EVENT)" "e"] #[257 "\301\302!\211@\262!r\303\304\"\216\305@\306\"\210\307\310\300C\311#*\207" [V0 internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord flymake-goto-next-error 1 t] 6 "\n\n(fn EVENT)" "e"]] 19 (#$ . 66904)])
(defvar flymake--diagnostics-buffer-source nil nil)
(make-variable-buffer-local 'flymake--diagnostics-buffer-source)
(defvar flymake-diagnostics-buffer-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\207" [make-sparse-keymap define-key "
" flymake-goto-diagnostic " " flymake-show-diagnostic] 5))
#@70 Show location of diagnostic at POS.
(fn POS &optional OTHER-WINDOW)
(defalias 'flymake-show-diagnostic #[513 "\301\206 `\302\"\262\206 \303\304!\305\306\"\307!>\204$ \310\311\312D\"\210\211\313H\307!>\2046 \310\311\312D\"\210\314H\307!>\204H \310\311\312D\"\210\315H\316r\317!\203W \202Z \320!q\210\321\322p \"!r\323\324\"\216\325@\326\"\210\327!\203} \"\210\202\217 \330p@A#\211\242\243\"\266*\210p)\207" [cl-struct-flymake--diag-tags get-text-property tabulated-list-id user-error "Nothing at point" plist-get :diagnostic type-of signal wrong-type-argument flymake--diag 1 2 3 #[514 "b\210\300`\206 \301 \302#\207" [pulse-momentary-highlight-region line-end-position highlight] 6 "\n\n(fn B E)"] bufferp find-file-noselect internal--before-with-selected-window display-buffer make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord number-or-marker-p flymake-diag-region] 15 (#$ . 68816) (byte-code "`\300D\207" [t] 2)])
#@88 Show location of diagnostic at POS.
POS can be a buffer position or a button
(fn POS)
(defalias 'flymake-goto-diagnostic #[257 "\300\301\302\303\"\262\203 \304!\202 !!\207" [pop-to-buffer flymake-show-diagnostic button-get type button-start] 7 (#$ . 69829) "d"])
#@195 Helper for `flymake--diagnostic-buffer-entries'.
PROJECT-ROOT indicates that each entry should be preceded by the
filename of the diagnostic relative to that directory.
(fn DIAGS PROJECT-ROOT)
(defalias 'flymake--tabulated-entries-1 #[514 "\301\211\211\211\211\211\211\211\211\211\211\211\f:\203\315\f@\262\f \302!>\204) \303\304\305D\"\210\211\306H\262\262 \307 !\203> \310 !\202@ \n\262\n\302\f!>\204S \303\304\305D\"\210 \311H\262 \203~ \312 !\203~ r\312 !q\210\212\313 !b\210\314 `\315 Z*B\202\341 \302\f!>\204\217 \303\304\305D\"\210 \316H:\203\257 \302\f!>\204\250 \303\304\305D\"\210 \316H\202\341 \302\f!>\204\300 \303\304\305D\"\210 \317H:\203\340 \302\f!>\204\331 \303\304\305D\"\210 \317H\202\341 \301\262\211A\262 \242\262 \302!>\204\375 \303\304\305D\"\210\211\320H\262\262 \302!>\204\303\304\305D\"\210\211\321H\262\262\3221'\323!0\202+\210\202.\206/\324\262\325\326\327 \"\326\327 \"\330\326\327\331\f\332#\"\333\331\f\334\335##\330\203^\336\337\340 #\202_\341\342\326\343
\"#\336\344\345\302!>\204z\303\304\305D\"\210\211\346H\262#\347B%\262\203\302\203\302\350\f\351 \352\331 \353\354\355!#\257\203\274\356\325\357
!\342\360\"\361BBB!\"\202\275DB\262\fA\262
\301\262\202
\237\207" [cl-struct-flymake--diag-tags nil type-of signal wrong-type-argument flymake--diag 1 bufferp buffer-file-name 9 overlay-buffer overlay-start line-number-at-pos line-beginning-position 2 10 4 6 (error) symbol-name "(anonymous function)" vector format "%s" propertize flymake--lookup-type-property flymake-type-name face mode-line-face flymake-error replace-regexp-in-string "\\(.\\)[^-]+\\(-\\|$\\)" "\\1\\2" "(anon)" help-echo "From `%s' backend" "\n.*" "" 5 (mouse-face highlight help-echo "mouse-2: visit this diagnostic" face nil action flymake-goto-diagnostic mouse-action flymake-goto-diagnostic) :diagnostic :line :severity severity warning-numeric-level :error vconcat file-name-nondirectory file-relative-name (face nil mouse-face highlight action flymake-goto-diagnostic mouse-action flymake-goto-diagnostic)] 28 (#$ . 70107)])
#@134 Get tabulated list entries for current tabulated list buffer.
Expects `flymake--diagnostics-buffer-entries' to be bound to a
buffer.
(defalias 'flymake--diagnostics-buffer-entries #[0 "\302!\205 rq\210 \205 \303\304 \305\")\207" [flymake--diagnostics-buffer-source flymake-mode bufferp flymake--tabulated-entries-1 flymake-diagnostics nil] 3 (#$ . 72263)])
(defvar flymake--diagnostics-base-tabulated-list-format (byte-code "\300\301\302\303\304\305BBB\306\307\310\311E\312BBB\"\207" [apply vector "Line" 5 #[514 "\300@\301\"\300@\301\"W\207" [plist-get :line] 6 "\n\n(fn L1 L2)"] (:right-align t) ("Col" 3 nil :right-align t) "Type" 8 #[514 "\300@\301\"\300@\301\"W\207" [plist-get :severity] 6 "\n\n(fn L1 L2)"] (("Backend" 8 t) ("Message" 0 t))] 7))
(defvar flymake-diagnostics-buffer-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [flymake-diagnostics-buffer-mode-hook variable-documentation put "Hook run after entering Flymake diagnostics mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp flymake-diagnostics-buffer-mode-map definition-name flymake-diagnostics-buffer-mode] 4)
(defvar flymake-diagnostics-buffer-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [flymake-diagnostics-buffer-mode-abbrev-table flymake-diagnostics-buffer-mode-map variable-documentation put purecopy "Keymap for `flymake-diagnostics-buffer-mode'." boundp flymake-diagnostics-buffer-mode-syntax-table definition-name flymake-diagnostics-buffer-mode (lambda (#1=#:def-tmp-var) (defvar flymake-diagnostics-buffer-mode-syntax-table #1#)) make-syntax-table "Syntax table for `flymake-diagnostics-buffer-mode'." (lambda (#1#) (defvar flymake-diagnostics-buffer-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `flymake-diagnostics-buffer-mode'." derived-mode-parent tabulated-list-mode] 5)
#@281 A mode for listing Flymake diagnostics.
In addition to any hooks its parent mode `tabulated-list-mode' might
have run, this mode runs the hook
`flymake-diagnostics-buffer-mode-hook', as the final or penultimate
step during initialization.
\{flymake-diagnostics-buffer-mode-map}
(defalias 'flymake-diagnostics-buffer-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325 C#\210\327 !\210\330\f!\210
\331 \332 \210)\333\334!\207" [delay-mode-hooks major-mode mode-name flymake-diagnostics-buffer-mode-map flymake-diagnostics-buffer-mode-syntax-table flymake-diagnostics-buffer-mode-abbrev-table make-local-variable t tabulated-list-mode flymake-diagnostics-buffer-mode "Flymake diagnostics" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table flymake--diagnostics-buffer-entries tabulated-list-init-header run-mode-hooks flymake-diagnostics-buffer-mode-hook local-abbrev-table flymake--diagnostics-base-tabulated-list-format tabulated-list-format tabulated-list-entries] 5 (#$ . 74472) nil])
(defalias 'flymake--diagnostics-buffer-name #[0 "\300\301p\"\207" [format "*Flymake diagnostics for `%s'*"] 3])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias flymake-show-diagnostics-buffer flymake-show-buffer-diagnostics nil make-obsolete "1.2.1"] 4)
#@56 Show a list of Flymake diagnostics for current buffer.
(defalias 'flymake-show-buffer-diagnostics #[0 "\301 p\302!\206 r\303!q\210\304 \210p)r\211q\210\305p!\210\306 )\207" [flymake--diagnostics-buffer-source flymake--diagnostics-buffer-name get-buffer get-buffer-create flymake-diagnostics-buffer-mode display-buffer revert-buffer] 5 (#$ . 76065) nil])
#@967 Diagnostics list meant for listing, not highlighting.
This variable holds an alist ((FILE-NAME . DIAGS) ...) where
FILE-NAME is a string holding an absolute file name and DIAGS is
a list of diagnostic objects created with
`flymake-make-diagnostic'. These diagnostics are never annotated
as overlays in actual buffers: they merely serve as temporary
stand-ins for more accurate diagnostics that are produced once
the file they refer to is visited and `flymake-mode' is turned on
in the resulting buffer.
Flymake backends that somehow gain sporadic information about
diagnostics in neighboring files may freely modify this variable
by adding or removing entries to for those files. If the
information about those neighboring files is acquired repeatedly
and reliably, it may be more sensible to report them as
"foreign" diagnostics instead.
Commands such as `flymake-show-project-diagnostics' will include
some of this variable's contents the diagnostic listings.
(defvar flymake-list-only-diagnostics nil (#$ . 76431))
(defvar flymake--project-diagnostic-list-project nil nil)
(make-variable-buffer-local 'flymake--project-diagnostic-list-project)
(defvar flymake-project-diagnostics-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [flymake-project-diagnostics-mode-hook variable-documentation put "Hook run after entering Flymake diagnostics mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp flymake-project-diagnostics-mode-map definition-name flymake-project-diagnostics-mode] 4)
(defvar flymake-project-diagnostics-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [flymake-project-diagnostics-mode-abbrev-table flymake-project-diagnostics-mode-map variable-documentation put purecopy "Keymap for `flymake-project-diagnostics-mode'." boundp flymake-project-diagnostics-mode-syntax-table definition-name flymake-project-diagnostics-mode (lambda (#1=#:def-tmp-var) (defvar flymake-project-diagnostics-mode-syntax-table #1#)) make-syntax-table "Syntax table for `flymake-project-diagnostics-mode'." (lambda (#1#) (defvar flymake-project-diagnostics-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `flymake-project-diagnostics-mode'." derived-mode-parent tabulated-list-mode] 5)
#@283 A mode for listing Flymake diagnostics.
In addition to any hooks its parent mode `tabulated-list-mode' might
have run, this mode runs the hook
`flymake-project-diagnostics-mode-hook', as the final or penultimate
step during initialization.
\{flymake-project-diagnostics-mode-map}
(defalias 'flymake-project-diagnostics-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325 C#\210\327 !\210\330\f!\210
\331\332 \"!\333\"\334 \210)\335\336!\207" [delay-mode-hooks major-mode mode-name flymake-project-diagnostics-mode-map flymake-project-diagnostics-mode-syntax-table flymake-project-diagnostics-mode-abbrev-table make-local-variable t tabulated-list-mode flymake-project-diagnostics-mode "Flymake diagnostics" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table vconcat [("File" 25 t)] flymake--project-diagnostics-entries tabulated-list-init-header run-mode-hooks flymake-project-diagnostics-mode-hook local-abbrev-table flymake--diagnostics-base-tabulated-list-format tabulated-list-format tabulated-list-entries] 5 (#$ . 79044) nil])
#@93 Get all known relevant diagnostics for PROJECT.
(fn &optional (PROJECT (project-current)))
(defalias 'flymake--project-diagnostics #[128 "\211\203
\211A\262\242\202 \303 \203 \304\305\306GTD\"\210\307!\310\311\312!\"\313\211C\313\211C\313\211\211\211:\203f @\262rq\210\314 )\262\203P \311!\242B\240\210\315\316\317\320\321$!\244\262A\262\313\262\2020 \237\266\205\262\313:\203\226 @\262r\211q\210\203\216 \203\216 \322\323\324# \"\210)A\262\202n \266\n\313\211\211:\203\314 @\262\211A\262\242\262\325\326 !\"\203\305 \242\235\204\305 \315!\244\262A\262\202\234 \211\237\266\204\262\327\242#\207" [flymake-mode flymake--state flymake-list-only-diagnostics project-current signal wrong-number-of-arguments flymake--project-diagnostics project-root cl-remove-if-not buffer-file-name project-buffers nil flymake-diagnostics reverse cl-sort < :key flymake-diagnostic-beg maphash make-closure #[514 "\303\304\305\300\301#\306!\n>\204 \307\310\311D\"\210\312H\"\207" [V0 V1 cl-struct-flymake--state-tags maphash make-closure #[514 "\302!\262\301\242\235?\205 \301\301\242B\240\210\300\303\300\242\"\240\207" [V0 V1 expand-file-name append] 6 "\n\n(fn FOREIGN-FILE DIAGS)"] type-of signal wrong-type-argument flymake--state 5] 8 "\n\n(fn BACKEND STATE)"] string-prefix-p expand-file-name append] 19 (#$ . 80409)])
(defalias 'flymake--project-diagnostics-entries #[0 "\300 \301\302!\303!\"\207" [project-current flymake--tabulated-entries-1 flymake--project-diagnostics project-root] 5])
#@13
(fn ROOT)
(defalias 'flymake--project-diagnostics-buffer #[257 "\300\301\302\"!\207" [get-buffer-create format "*Flymake diagnostics for `%s'*"] 5 (#$ . 81967)])
#@61 Show a list of Flymake diagnostics for the current project.
(defalias 'flymake-show-project-diagnostics #[0 "\301 \302!\303!r\211q\210\304 \210\305\300!\210\306p!\210\307 )\207" [flymake--project-diagnostic-list-project project-current project-root flymake--project-diagnostics-buffer flymake-project-diagnostics-mode make-local-variable display-buffer revert-buffer] 5 (#$ . 82138) nil])
#@70 Update diagnostics listings somehow relevant to BUFFER.
(fn BUFFER)
(defalias 'flymake--update-diagnostics-listings #[257 "\303 \211\205; \211@r\211q\210\304=\203$ \203$ \305!\203$ \306 !>\2040 \307=\2033 \n=\2033 \310 \210)A\266\202\202 \207" [major-mode flymake--project-diagnostic-list-project flymake--diagnostics-buffer-source buffer-list flymake-project-diagnostics-mode buffer-file-name project-buffers flymake-diagnostics-buffer-mode revert-buffer] 6 (#$ . 82537)])
(byte-code "\300\301!\210\302\303!\207" [provide flymake require flymake-proc] 2)