Current File : //usr/local/share/emacs/27.2/lisp/progmodes/flymake.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\314\315\316\317& \210\320\321\322\323\324DD\325\312\326\327\330&\210\320\331\322\323\332DD\333\312\326\327\334&\210\320\335\322\323\336DD\337\312\340\327\341&\210\320\342\322\323\343DD\344\312\326\327\345&\210\346\347\350\351#\210\320\352\322\323\353DD\354\327\355%\210\320\356\322\323\357DD\360\327\361%\210\346\356\362\340#\210\363\364\365\310#\210\366\211\203\251 \211@\364N\203\242 \365N\204\242 \367\365\364N#\210A\266\202\202\210 \210\346\364\365\340#\210\320\365\322\323\370DD\371\312\340\327\361&\210\320\372\322\323\373DD\374\312\351\327\361&\210\320\375\322\323\376DD\377\327\201@ %\210\346\375\201A \340#\210\320\201B \322\323\201C DD\201D \312\340\327\361&\210\320\201E \322\323\201F DD\201G \327\201H %\210\201I \201J !\203?\201J \201K \201L \201M \211\211\211\201N \211\211\211\211\211\211\211\201M \201N \201M \211\211&\"\210\310\207" [require cl-lib thingatpt warnings compile mwheel 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] "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] "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] "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] "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] "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] "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] "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] "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] "Obsolete and ignored variable." integer "it is superseded by `warning-minimum-log-level.'" flymake-wrap-around #[0 "\300\207" [t] 1] "If non-nil, moving to errors wraps around buffer boundaries." flymake-suppress-zero-counters #[0 "\300\207" [:warning] 1] "Control appearance of zero-valued diagnostic counters in mode line.\n\nIf set to t, supress 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 supress 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 (#$ . 5225))
(make-variable-buffer-local 'flymake-timer)
#@41 Time at which syntax check was started.
(defvar flymake-check-start-time nil (#$ . 5347))
(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 \305p#\306\305D\307\310#\247\203& \3118\206( \312\202( \313$*\207" [warning-type-format warning-minimum-level :emergency format " [%s %s]" flymake display-warning apply format-message (:emergency :error :warning :debug :debug) :error "*Flymake log*"] 10 (#$ . 5498)])
#@33 Go to the *Flymake log* buffer.
(defalias 'flymake-switch-to-log-buffer #[0 "\300\301!\207" [switch-to-buffer "*Flymake log*"] 2 (#$ . 5903) nil])
#@289 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 byte-compiled file,
the generated warning contains an indication of the file that
generated it.
(fn LEVEL MSG &rest ARGS)
(defalias 'flymake-log '(macro . #[642 "\301\302!\205 \302J\211\205 ?\205 \303\304\305!!!\306\307DBBBB\207" [load-file-name boundp byte-compile-current-file intern file-name-nondirectory file-name-sans-extension flymake--log-1 quote] 10 (#$ . 6057)]))
#@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 (#$ . 6614)])
#@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 (#$ . 6863)])
(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 (#$ . 7215)])
(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)
#@77 compiler-macro for inlining `flymake--diag-buffer'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--diag-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--diag-buffer (progn (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 1))) nil] 9 (#$ . 7501)])
(put 'flymake--diag-buffer 'compiler-macro 'flymake--diag-buffer--cmacro)
#@65 Access slot "buffer" of `flymake--diag' struct CL-X.
(fn CL-X)
(defalias 'flymake--diag-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 (#$ . 7926)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--diag-buffer 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 (#$ . 8279)])
(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 (#$ . 8689)])
(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 (#$ . 9033)])
(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 (#$ . 9443)])
(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 (#$ . 9787)])
(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 (#$ . 10202)])
(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 (#$ . 10550)])
(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 (#$ . 10966)])
(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 (#$ . 11314)])
(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 (#$ . 11745)])
(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 (#$ . 12102)])
(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 (#$ . 12518)])
(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 (#$ . 12866)])
(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 (#$ . 13352)])
(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 (#$ . 13742)])
(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 (#$ . 14173)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put flymake--diag-overlay side-effect-free t defalias copy-flymake--diag copy-sequence] 4)
#@146 compiler-macro for inlining `flymake--diag-make'.
(fn CL-WHOLE &cl-quote &key BUFFER BEG END TYPE TEXT BACKEND DATA OVERLAY-PROPERTIES OVERLAY)
(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@ \211\203g \211@\312>\203O \211AA\262\202< \313 >A@\203^ \314\262\202< \315\316@\"\210\202< \210\317\320\321\314\314&\207" [plist-member :buffer :beg :end :type :text :backend :data :overlay-properties :overlay (:buffer :beg :end :type :text :backend :data :overlay-properties :overlay :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:buffer :beg :end :type :text :backend :data :overlay-properties :overlay)" cl--defsubst-expand (buffer beg end type text backend data overlay-properties overlay) (cl-block flymake--diag-make (record 'flymake--diag buffer beg end type text backend data overlay-properties overlay))] 26 (#$ . 14583)])
(put 'flymake--diag-make 'compiler-macro 'flymake--diag-make--cmacro)
#@126 Constructor for objects of type `flymake--diag'.
(fn &key BUFFER BEG END TYPE TEXT BACKEND DATA OVERLAY-PROPERTIES OVERLAY)
(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@ \211\203g \211@\312>\203O \211AA\262\202< \313 >A@\203^ \314\262\202< \315\316@\"\210\202< \210\317\320\n\n\n\n\n\n\n\n\n&\n\207" [plist-member :buffer :beg :end :type :text :backend :data :overlay-properties :overlay (:buffer :beg :end :type :text :backend :data :overlay-properties :overlay :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:buffer :beg :end :type :text :backend :data :overlay-properties :overlay)" record flymake--diag] 21 (#$ . 15664)])
(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) (buffer) (beg) (end) (type) (text) (backend) (data) (overlay-properties) (overlay)) cl-struct-flymake--diag-tags] 11)
#@514 Make a Flymake diagnostic for BUFFER's region from BEG to END.
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.
OVERLAY-PROPERTIES is an alist of properties attached to the
created diagnostic, overriding the default properties and any
properties of `flymake-overlay-control' of the diagnostic's
type.
(fn BUFFER BEG END TYPE TEXT &optional DATA OVERLAY-PROPERTIES)
(defalias 'flymake-make-diagnostic #[1797 "\300\301\302 \302&\n\207" [record flymake--diag nil] 18 (#$ . 16782)])
#@222 Get Flymake diagnostics in region determined by BEG and END.
If neither BEG or END is supplied, use the whole 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 (#$ . 17429)])
#@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 (#$ . 17854)]))
#@50 Get Flymake diagnostic DIAG's buffer.
(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 (#$ . 18137)])
(put 'flymake-diagnostic-buffer 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 18461)])
(put 'flymake-diagnostic-text 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 18779)])
(put 'flymake-diagnostic-type 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 19097)])
(put 'flymake-diagnostic-backend 'byte-optimizer 'byte-compile-inline-expand)
#@51 Get Flymake diagnostic DIAG's backend.
(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 (#$ . 19424)])
(put 'flymake-diagnostic-data 'byte-optimizer 'byte-compile-inline-expand)
#@58 Get Flymake diagnostic DIAG's start position.
(fn DIAG)
(defalias 'flymake-diagnostic-beg #[257 "\301\302!>\204 \303\304\305D\"\210\306H!\207" [cl-struct-flymake--diag-tags overlay-start type-of signal wrong-type-argument flymake--diag 9] 6 (#$ . 19745)])
#@56 Get Flymake diagnostic DIAG's end position.
(fn DIAG)
(defalias 'flymake-diagnostic-end #[257 "\301\302!>\204 \303\304\305D\"\210\306H!\207" [cl-struct-flymake--diag-tags overlay-end type-of signal wrong-type-argument flymake--diag 9] 6 (#$ . 20013)])
#@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\316\317\320!\321\"\322\323%\203m \204m \324\325\"\202{ \326\206t e\206z d\"\"\203\215 \327\305\206\211 \330$\202\216 \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-byte-code 257 "\301\302\"\205 \300?\206 \300!\207" vconcat vector [overlay-get flymake-diagnostic] 4 "\n\n(fn OV)" overlays-at t overlays-in cl-sort identity] 13 (#$ . 20278)])
(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)
#@184 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.
(fn BUFFER LINE &optional COL)
(defalias 'flymake-diag-region #[770 "\3001z rq\210\301]\302d\303\"^\212eb\210\211Sy\210\304\305\203h \211\306V\262\203h Su\210`\30717 \310\311!0\2029 \210\312\211\203G \211U\204G \211\206P TbdW\205P `\211\203Z B\202c \211\262!B\266\203\202r !B\266\202\266\202)\262)0\207\313\314\315\316%\210\312\207" [(debug error) 1 line-number-at-pos absolute #[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 nil flymake--log-1 :warning flymake "Invalid region line=%s col=%s"] 12 (#$ . 22197)])
#@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 reocrded. 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 (#$ . 23082))
(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)
#@2
(defvar flymake-diagnostic-types-alist nil (#$ . 27092))
(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 (#$ . 27985)])
#@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 (#$ . 28493)])
#@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 (#$ . 28696)])
#@59 Highlight buffer with info in DIGNOSTIC.
(fn DIAGNOSTIC)
(defalias 'flymake--highlight-line #[257 "\302!>\204 \303\304\305D\"\210\211\306H\206 \307\310\302!>\204& \303\304\305D\"\210\311H\302!>\2049 \303\304\305D\"\210\312H\"\313\314\315\316\"#\210\317\320\302!>\204X \303\304\305D\"\210\321H!\320\315\322\"!\323 \"#\324\211:\203\207 @\262\211A\262\242\262\313#\210A\262\202i \266\325\211\326\327$\210\211\330\331\315\332\323\333\323
\"\"#!$\210\211\334\335$\210\211\336\337\307!$\210\211\340\324\341\342\336\"\\B$\266\313\343\344#\210\313\345#\210\207" [cl-struct-flymake--diag-tags flymake-diagnostic-types-alist type-of signal wrong-type-argument flymake--diag 4 :error make-overlay 2 3 overlay-put category flymake--lookup-type-property flymake-category append reverse 8 flymake-overlay-control alist-get nil #[1028 "\300\301!\"?\205 \302\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\303\304\305!\306\"\307$\216\310@\311\"\210\312\313\314!\315#*\207" [internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord mapconcat flymake--diag-text flymake-diagnostics "\n"] 10 "\n\n(fn WINDOW OV POS)"] severity warning-numeric-level priority 40 overlay-get evaporate t flymake-diagnostic] 17 (#$ . 28994)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias flymake-display-warning message-box nil make-obsolete "26.1"] 4)
#@776 Buffer-local hash table of a Flymake backend's state.
The keys to this hash table are functions as found in
`flymake-diagnostic-functions'. The values are structures
of the type `flymake--backend-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.
(defvar flymake--backend-state nil (#$ . 30690))
(make-variable-buffer-local 'flymake--backend-state)
#@81 compiler-macro for inlining `flymake--backend-state-p'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--backend-state-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--backend-state-p (and (memq (type-of cl-x) cl-struct-flymake--backend-state-tags) t)) nil] 9 (#$ . 31573)])
(put 'flymake--backend-state-p 'compiler-macro 'flymake--backend-state-p--cmacro)
#@13
(fn CL-X)
(defalias 'flymake--backend-state-p #[257 "\301!>\205 \302\207" [cl-struct-flymake--backend-state-tags type-of t] 3 (#$ . 31980)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put flymake--backend-state-p side-effect-free error-free put flymake--backend-state cl-deftype-satisfies] 5)
#@87 compiler-macro for inlining `flymake--backend-state-running'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--backend-state-running--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--backend-state-running (progn (or (flymake--backend-state-p cl-x) (signal 'wrong-type-argument (list 'flymake--backend-state cl-x))) (aref cl-x 1))) nil] 9 (#$ . 32303)])
(put 'flymake--backend-state-running 'compiler-macro 'flymake--backend-state-running--cmacro)
#@75 Access slot "running" of `flymake--backend-state' struct CL-X.
(fn CL-X)
(defalias 'flymake--backend-state-running #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--backend-state-tags type-of signal wrong-type-argument flymake--backend-state 1] 5 (#$ . 32797)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--backend-state-running side-effect-free t] 4)
#@90 compiler-macro for inlining `flymake--backend-state-reported-p'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--backend-state-reported-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--backend-state-reported-p (progn (or (flymake--backend-state-p cl-x) (signal 'wrong-type-argument (list 'flymake--backend-state cl-x))) (aref cl-x 2))) nil] 9 (#$ . 33199)])
(put 'flymake--backend-state-reported-p 'compiler-macro 'flymake--backend-state-reported-p--cmacro)
#@78 Access slot "reported-p" of `flymake--backend-state' struct CL-X.
(fn CL-X)
(defalias 'flymake--backend-state-reported-p #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--backend-state-tags type-of signal wrong-type-argument flymake--backend-state 2] 5 (#$ . 33708)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--backend-state-reported-p side-effect-free t] 4)
#@88 compiler-macro for inlining `flymake--backend-state-disabled'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--backend-state-disabled--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--backend-state-disabled (progn (or (flymake--backend-state-p cl-x) (signal 'wrong-type-argument (list 'flymake--backend-state cl-x))) (aref cl-x 3))) nil] 9 (#$ . 34119)])
(put 'flymake--backend-state-disabled 'compiler-macro 'flymake--backend-state-disabled--cmacro)
#@76 Access slot "disabled" of `flymake--backend-state' struct CL-X.
(fn CL-X)
(defalias 'flymake--backend-state-disabled #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--backend-state-tags type-of signal wrong-type-argument flymake--backend-state 3] 5 (#$ . 34618)])
(byte-code "\300\301\302\303#\300\207" [function-put flymake--backend-state-disabled side-effect-free t] 4)
#@85 compiler-macro for inlining `flymake--backend-state-diags'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'flymake--backend-state-diags--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block flymake--backend-state-diags (progn (or (flymake--backend-state-p cl-x) (signal 'wrong-type-argument (list 'flymake--backend-state cl-x))) (aref cl-x 4))) nil] 9 (#$ . 35023)])
(put 'flymake--backend-state-diags 'compiler-macro 'flymake--backend-state-diags--cmacro)
#@73 Access slot "diags" of `flymake--backend-state' struct CL-X.
(fn CL-X)
(defalias 'flymake--backend-state-diags #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-flymake--backend-state-tags type-of signal wrong-type-argument flymake--backend-state 4] 5 (#$ . 35507)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put flymake--backend-state-diags side-effect-free t defalias copy-flymake--backend-state copy-sequence] 4)
#@124 compiler-macro for inlining `flymake--make-backend-state'.
(fn CL-WHOLE &cl-quote &key RUNNING REPORTED-P DISABLED DIAGS)
(defalias 'flymake--make-backend-state--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D \211@\305>\203, \211AA\262\202 \306>A@\203; \307\262\202 \310\311@\"\210\202 \210\312\313\314\307 \307 & \207" [plist-member :running :reported-p :disabled :diags (:running :reported-p :disabled :diags :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:running :reported-p :disabled :diags)" cl--defsubst-expand (running reported-p disabled diags) (cl-block flymake--make-backend-state (record 'flymake--backend-state running reported-p disabled diags))] 16 (#$ . 35965)])
(put 'flymake--make-backend-state 'compiler-macro 'flymake--make-backend-state--cmacro)
#@104 Constructor for objects of type `flymake--backend-state'.
(fn &key RUNNING REPORTED-P DISABLED DIAGS)
(defalias 'flymake--make-backend-state #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D \211@\305>\203, \211AA\262\202 \306>A@\203; \307\262\202 \310\311@\"\210\202 \210\312\313%\207" [plist-member :running :reported-p :disabled :diags (:running :reported-p :disabled :diags :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:running :reported-p :disabled :diags)" record flymake--backend-state] 11 (#$ . 36819)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put flymake--make-backend-state side-effect-free t cl-struct-define flymake--backend-state nil cl-structure-object record ((cl-tag-slot) (running) (reported-p) (disabled) (diags)) cl-struct-flymake--backend-state-tags] 11)
#@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--backend-state) puthash ((flymake--make-backend-state) flymake--backend-state)] 12 (#$ . 37715)]))
(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 (#$ . 38223)])
#@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 (#$ . 38372)])
#@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 "\304\305\"A@\304\306\"A@\304\307\"A@\310\"\311! >\204& \312\313\300D\"\210\211\314H?\311! >\2049 \312\313\300D\"\210\211\314\315I\266\316\211\204N \317\320\f\"\202\311! >\204^ \312\313\300D\"\210\321H\203l \317\322\f\"\202\311! >\204| \312\313\300D\"\210\323H\262\204\215 \317\324\f\"\202\n=\204\242 \204\242 \317\325\f #\202\326=\203\262 \327 \"\202<\204\312 \327 \330\331\f\"\"\210\317\332\n\"\202\333\334\n\"\262\214~\210\203R\311! >\204\350 \312\313\300D\"\210\335H\316\211\211:\2036@\262\311!\n>\204\312\313\336D\"\210\337H\262\340!\203\"\341\342!\343! @\fA$\203)\344!\210\202/\211C\244\262A\262\202\356 \311! >\204G\312\313\300\nD\"\210\211\335I\266\202\243\203\243\311! >\204f\312\313\300D\"\210\335H\211\203\213\211@\344\311!\n>\204\312\313\336D\"\210\337H!\210A\266\202\202i\210\311! >\204\234\312\313\300D\"\210\211\335\316I\266\345\346\347\350\351\352!\353\"\354\355%\"\210\311! >\204\304\312\313\300D\"\210\211\335\356\311 ! >\204\332\312\313\300 D\"\210\335H\"I\266 \203\366\357\360\361\362G\363\364 !!&\210\365\366 !\205\367\366 !\205\370\371 \372 \"?\205\373 )\266\202\266\202\207" [flymake--backend-state cl-struct-flymake--backend-state-tags cl-struct-flymake--diag-tags flymake-check-start-time plist-member :explanation :force :region gethash type-of signal wrong-type-argument 2 t nil flymake-error "Unexpected report from unknown backend %s" 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" cl-remove-if-not #[257 "\301!>\204 \302\303\304D\"\210\211\305Hp=\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 1] 5 "\n\n(fn DIAG)"] 4 flymake--diag 9 overlay-buffer flymake--intersects-p overlay-start overlay-end delete-overlay mapc make-byte-code 257 "\302!\303! >\204 \304\305\306D\"\210\211\307\300I\266\303! >\204( \304\305\306D\"\210\211\310I\262\207" vconcat vector [cl-struct-flymake--diag-tags flymake--highlight-line type-of signal wrong-type-argument flymake--diag 6 9] 6 "\n\n(fn DIAG)" append flymake--log-1 :debug flymake "backend %s reported %d diagnostics in %.2f second(s)" float-time time-since get-buffer flymake--diagnostics-buffer-name get-buffer-window cl-set-difference flymake-running-backends flymake-reporting-backends flymake-show-diagnostics-buffer] 20 (#$ . 38610)])
#@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\302\303\304#\305\"\306\307%\207" [make-byte-code 128 "\303\302!\205 r\302q\210\304\305\300\301$)\207" vconcat vector [buffer-live-p apply flymake--handle-report] 6 "\n\n(fn &rest ARGS)"] 11 (#$ . 41705)])
#@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\307\310\311\"\312\"\313\314%\"\210\203, \315\316\317\320\242\321##\210\211\242\207" [flymake--backend-state user-error "Flymake is not initialized" nil maphash make-byte-code 514 "\300!\205\f \301\301\242B\240\207" vconcat vector [] 5 "\n\n(fn BACKEND STATE)" message "%s%s" mapconcat #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn S)"] ", "] 11 (#$ . 42225)])
#@53 Compute running Flymake backends in current buffer.
(defalias 'flymake-running-backends #[0 "\300\301\302\303!\205 \304\"\207" [flymake--collect flymake--backend-state-running called-interactively-p interactive "Running backends: "] 4 (#$ . 42802) nil])
#@54 Compute disabled Flymake backends in current buffer.
(defalias 'flymake-disabled-backends #[0 "\300\301\302\303!\205 \304\"\207" [flymake--collect flymake--backend-state-disabled called-interactively-p interactive "Disabled backends: "] 4 (#$ . 43063) nil])
#@55 Compute reporting Flymake backends in current buffer.
(defalias 'flymake-reporting-backends #[0 "\300\301\302\303!\205 \304\"\207" [flymake--collect flymake--backend-state-reported-p called-interactively-p interactive "Reporting backends: "] 4 (#$ . 43328) 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\300\311\211\211\211%#\312! >\204* \313\314\300D\"\210\211\211\315\311I\266\312! >\204@ \313\314\300D\"\210\211\211\316I\266\312! >\204V \313\314\300D\"\210\211\211\317\320I\262\207" [flymake--backend-state cl-struct-flymake--backend-state-tags flymake--log-1 :warning flymake "Disabling backend %s because %s" gethash puthash record nil type-of signal wrong-type-argument 1 3 2 t] 11 (#$ . 43599)])
#@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\300\313\211\211\211%#\314! >\204, \315\316\300D\"\210\211\211\317I\266\314! >\204B \315\316\300D\"\210\211\211\320\313I\266\314! >\204X \315\316\300D\"\210\211\211\321\313I\266\3221o \323\324\"#0\202u \325\"\262\207" [flymake--backend-state cl-struct-flymake--backend-state-tags flymake--log-1 :debug flymake "Running backend %s" cl-gensym "backend-token" gethash puthash record nil type-of signal wrong-type-argument 1 3 2 (error) apply flymake-make-report-fn flymake--disable-backend] 12 (#$ . 44211)])
#@62 Recent changes collected by `flymake-after-change-function'.
(defvar flymake--recent-changes nil (#$ . 44997))
(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\311\312\313\n\n\n\n$\314\"\315$\240\210\211\307\310\316\312\313\n\n#\317\"\315$\240\210\320>\203L \203L \321\322\242\323\306$\202\227 \324>\203b \325p!\204b \321\326\242\323\327$\202\227 \205\227 \330 \205\201 \331 \332\333\334\335\336 \"\"\337\333\340\335\341 \"\"\257\306\342\343\307\344\345\312\313\f\"\346\"\347\350%\"\262\266\202\207" [this-command flymake-mode flymake-check-start-time flymake--recent-changes t (post-command on-display) nil make-byte-code 0 "\304\305\303\242\306#\210\307\302!\205 r\302q\210\310\311\312\301\"\300\")\207" vconcat vector [remove-hook post-command-hook nil buffer-live-p flymake-start remove post-command] 4 "\303\304\302\242\305#\210\306\307\310\301\"\300\"\207" [remove-hook window-configuration-change-hook local flymake-start remove on-display] 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\2048 \211\304\n\"\206 \305\306\302\307\211\211\211%\n#\310! >\204& \311\312\302D\"\210\211\313H\266\202\2038 \314\315\316\317$\210\202= \320\301\"\210\307\207" [flymake--backend-state cl-struct-flymake--backend-state-tags gethash puthash record nil type-of signal wrong-type-argument 3 flymake--log-1 :debug flymake "Backend %s is disabled, not starting" flymake--run-backend] 10 "\n\n(fn BACKEND)"] 16 (#$ . 45169) (list nil current-prefix-arg)])
#@27 Keymap for `flymake-mode'
(defvar flymake-mode-map (byte-code "\300 \211\207" [make-sparse-keymap] 2) (#$ . 47391))
#@93 Non-nil if Flymake mode is enabled.
Use the command `flymake-mode' to change this variable.
(defvar flymake-mode nil (#$ . 47513))
(make-variable-buffer-local 'flymake-mode)
#@1566 Toggle Flymake mode on or off.
If called interactively, enable Flymake mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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 "\305 \306=\203
?\202 \307!\310V\211\203B \311\312\313\314\315$\210\311\316\317\314\315$\210\311\320\321\314\315$\210\322\323\324 \"\210\325 \314 \203d \326\315!\210\202d \327\312\313\315#\210\327\316\317\315#\210\327\320\321\315#\210\322\323\324 \"\210\f\203d \330\f!\210\314\331\332\203n \333\202o \334\"\210\335\336!\203\223 \305 \203\203 \211\305 \232\203\223 \337\340\341\203\216 \342\202\217 \343#\266\210\344 \210\207" [flymake-mode flymake--backend-state flymake--recent-changes flymake-start-on-flymake-mode flymake-timer current-message toggle prefix-numeric-value 0 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 mapc delete-overlay flymake--overlays make-hash-table flymake-start remove-hook cancel-timer run-hooks flymake-mode-hook flymake-mode-on-hook flymake-mode-off-hook called-interactively-p any " in current buffer" message "Flymake mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 47695) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar flymake-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\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.)" add-minor-mode flymake-mode flymake--mode-line-format nil] 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 (#$ . 50809)])
#@23 Turn Flymake mode on.
(defalias 'flymake-mode-on #[0 "\300\301!\207" [flymake-mode 1] 2 (#$ . 51421)])
#@24 Turn Flymake mode off.
(defalias 'flymake-mode-off #[0 "\300\301!\207" [flymake-mode 0] 2 (#$ . 51530)])
(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 (#$ . 51770)])
(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 "\205 \301!\210\302\211\207" [flymake-timer cancel-timer nil] 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])
#@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\307\310 !\311\"\312\313%\314\211\315V\262\203\" \316\202# \317\320\321&\322\304\305\323\307\310!\324\"\325\313%\"\203U \211\203I \326!\241\210\211\202V \205V \326!\241\202V \211S8\211\203v \321!b\210\205\217 \327\330\331\332\"\333 `#\"\202\217 \205\217 \334\335\203\215 \336\337\340\341\f\342#\"\202\216 \343\"\207" [flymake-wrap-around 1 flymake--overlays :filter make-byte-code 257 "\302\303\"\211\205& \300?\206& \304\305\306! >\204 \307\310\311D\"\210\312H!\300\313\305$\207" vconcat vector [cl-struct-flymake--diag-tags overlay-get flymake-diagnostic cl-find flymake--severity type-of signal wrong-type-argument flymake--diag 4 :key] 8 "\n\n(fn OV)" :compare 0 < > :key overlay-start cl-member-if "\300\211\301V\262\203 \302!`V\207\302!`W\207" [0 overlay-start] 4 last message "%s" overlay-get help-echo selected-window user-error "No more Flymake diagnostics%s" format " of %s severity" mapconcat symbol-name ", " ""] 16 (#$ . 52591) (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 (#$ . 54195) (byte-code "\301\205 \302\303E\207" [current-prefix-arg 1 (:error :warning) t] 3)])
#@9 Flymake
(defvar flymake-menu nil (#$ . 54876))
(easy-menu-do-define 'flymake-menu flymake-mode-map "Flymake" '("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-diagnostics-buffer t] "--" ["Go to log buffer" flymake-switch-to-log-buffer t] ["Turn off Flymake" flymake-mode t]))
(defvar flymake--mode-line-format '(:eval (flymake--mode-line-format)))
(put 'flymake--mode-line-format 'risky-local-variable t)
#@40 Produce a pretty minor mode indicator.
(defalias 'flymake--mode-line-format #[0 "\305C\306\307\310\311\312\313!\314\"\315\316%\"\210\211\242\237\266\202\317 \320 \321 \322 \205' ?\323\"\306\307\310\324\312\313!\325\"\326\327%\"\210\330\331\332\333\334\335\336
G\"\335\337
G\"\335\340
G\"\341R\342\343 \344\345 #\210\344\346\347#\210\211\262\257\350\204s \351\202\214 \203\203 \352\353\335\354G\"E\202\214 \203\213 \355\202\214 \356\211@A\211@A\211@A\211\205\270 \357\330\360\334\342\343 \344\361\362#\210\211\262\257DC\266\203\266\207\206\303 ??\205\305C\306\307\310\311\312\313!\314\"\315\316%\"\210\211\242\237\266\202\363\305:\203\372 @\262\364\365\366$\262A\262\202\342 \305\266\202\367\370\365\366$\305\211\211\211:\203\316@\262\371\"\262\372\373\374#\262\204:\n\375=\204\307\n\2036\366!\376\n!Y\2027\375\203\307\211\330\335\377G\"\360\332\333\342\343 \f\344\313\201@ \"\307\201A \201B \312\313!\201C \"\201D \201E \201F &#\210\344\313\201@ \f\"\307\201A \201B \312\313!\201G \"\201D \201E \201F &#\210\266\202\334\335\201H \201I \335\377G\"\360#\201I \335\201J \"\360##\335\201K \f#P\257\nC\244\262A\262\202\201L \350\305\211\211:\203\375\262\211A\262\242\262B\262\203\366\201M B\262A\262\202\326\211\237\266\204\201N \"B\266\207\"B\207" [flymake--backend-state flymake-menu flymake-suppress-zero-counters mouse-wheel-down-event mouse-wheel-up-event nil maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K --CL-VAR--)" flymake-running-backends flymake-disabled-backends flymake-reporting-backends make-hash-table cl-set-difference "\302\303\304\305\306\307\300!\310\"\311\312%\313! >\204 \314\315\316D\"\210\317H\"\207" [cl-struct-flymake--backend-state-tags mapc make-byte-code 257 "\302! >\204 \303\304\305D\"\210\211\306H\300\307\310\"B#\207" vconcat vector [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 4 puthash gethash] 9 "\n\n(fn DIAG)" type-of signal wrong-type-argument flymake--backend-state 4] 9 "\n\n(fn B STATE)" :propertize " Flymake" mouse-face mode-line-highlight help-echo format "%s known backends\n" "%s running\n" "%s disabled\n" "mouse-1: Display minor mode menu\nmouse-2: Show help for minor mode" keymap make-sparse-keymap define-key [mode-line down-mouse-1] [mode-line mouse-2] #[0 "\300\301!\207" [describe-function flymake-mode] 2 nil nil] append ("?" mode-line "No known backends") "Wait" compilation-mode-line-run "Waiting for %s running backend(s)" ("!" compilation-mode-line-run "All backends disabled") (nil nil nil) ":" face [mode-line mouse-1] flymake-switch-to-log-buffer (:error :warning) cl-adjoin :key flymake--severity cl-sort > gethash flymake--lookup-type-property mode-line-face compilation-error t warning-numeric-level "%d" mode-line 257 "\301\302!\211@\262!r\303\304\305\306\307!\310\"\311$\216\312@\313\"\210\314\315\300C\316#*\207" [internal--before-with-selected-window event-start make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord flymake-goto-prev-error 1 t] 8 "\n\n(fn EVENT)" "e" [internal--before-with-selected-window event-start make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord flymake-goto-next-error 1 t] "%s diagnostics of type %s\n" propertize "%s" "%s/%s: previous/next of this type" (:propertize "[") (:propertize " ") ((:propertize "]"))] 37 (#$ . 55415)])
(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\211\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\"r\307!>\204% \310\311\312D\"\210\211\313Hq\210\314\315p\"!r\316\317\320\321\322!\323\"\324$\216\325@\326\"\210\307!>\204R \310\311\312D\"\210\324Hb\210\327\330!\331!\332#\210*\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 internal--before-with-selected-window display-buffer make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord pulse-momentary-highlight-region flymake-diagnostic-beg flymake-diagnostic-end highlight] 11 (#$ . 59284) (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 (#$ . 60123) "d"])
(defalias 'flymake--diagnostics-buffer-entries #[0 "\302!\205\265 rq\210\303\304 \305\306\307$\310\211\211\211\211:\203\260 @\262\212\311! >\2040 \312\313\314D\"\210\315Hb\210\316 `\317 Z)B\262\211A\262\242\262\311! >\204W \312\313\314D\"\210\320H\262\321\322\323\324\325\326\327!#\257\330\331\332\"\331\332\"\333\331\332\324 \334 #\"\335\324 \336\337##\331\332\311\f! >\204\234 \312\313\314D\"\210 \340H\"\341B$DB\262A\262\202 \211\237\266\206)\207" [flymake--diagnostics-buffer-source cl-struct-flymake--diag-tags bufferp cl-sort flymake-diagnostics < :key flymake-diagnostic-beg nil type-of signal wrong-type-argument flymake--diag 2 line-number-at-pos line-beginning-position 4 :diagnostic :line :severity flymake--lookup-type-property severity warning-numeric-level :error vector format "%s" propertize flymake-type-name face mode-line-face flymake-error 5 (mouse-face highlight help-echo "mouse-2: visit this diagnostic" face nil action flymake-goto-diagnostic mouse-action flymake-goto-diagnostic)] 17])
(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\333\334\335\336BBB\337\340\341\342E\343BBB\")\344*\345 \210)\346\347!\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 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)"] (("Message" 0 t)) flymake--diagnostics-buffer-entries tabulated-list-init-header run-mode-hooks flymake-diagnostics-buffer-mode-hook local-abbrev-table tabulated-list-format tabulated-list-entries] 7 (#$ . 62892) nil])
(defalias 'flymake--diagnostics-buffer-name #[0 "\300\301p\"\207" [format "*Flymake diagnostics for %s*"] 3])
#@56 Show a list of Flymake diagnostics for current buffer.
(defalias 'flymake-show-diagnostics-buffer #[0 "\301 p\302!\206 r\303!q\210\304 \210p)r\211q\210\305 \210\306p!)\207" [flymake--diagnostics-buffer-source flymake--diagnostics-buffer-name get-buffer get-buffer-create flymake-diagnostics-buffer-mode revert-buffer display-buffer] 5 (#$ . 64577) nil])
(byte-code "\300\301!\210\302\303!\207" [provide flymake require flymake-proc] 2)
Mini Shell