;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\201CDD\201D\312\340\327\361&\210\320\201E\322\323\201FDD\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, 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 (#$ . 5227)) (make-variable-buffer-local 'flymake-timer) #@41 Time at which syntax check was started. (defvar flymake-check-start-time nil (#$ . 5349)) (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 (#$ . 5500)]) #@33 Go to the *Flymake log* buffer. (defalias 'flymake-switch-to-log-buffer #[0 "\300\301!\207" [switch-to-buffer "*Flymake log*"] 2 (#$ . 5905) 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 (#$ . 6059)])) #@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 (#$ . 6652)]) #@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 (#$ . 6901)]) (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 (#$ . 7253)]) (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 (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 1)) nil] 9 (#$ . 7539)]) (put 'flymake--diag-buffer 'compiler-macro 'flymake--diag-buffer--cmacro) #@101 Access slot "buffer" of `(flymake--diag (:constructor flymake--diag-make))' 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 (#$ . 7957)]) (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 (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 2)) nil] 9 (#$ . 8346)]) (put 'flymake--diag-beg 'compiler-macro 'flymake--diag-beg--cmacro) #@98 Access slot "beg" of `(flymake--diag (:constructor flymake--diag-make))' 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 (#$ . 8748)]) (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 (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 3)) nil] 9 (#$ . 9128)]) (put 'flymake--diag-end 'compiler-macro 'flymake--diag-end--cmacro) #@98 Access slot "end" of `(flymake--diag (:constructor flymake--diag-make))' 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 (#$ . 9530)]) (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 (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 4)) nil] 9 (#$ . 9910)]) (put 'flymake--diag-type 'compiler-macro 'flymake--diag-type--cmacro) #@99 Access slot "type" of `(flymake--diag (:constructor flymake--diag-make))' 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 (#$ . 10317)]) (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 (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 5)) nil] 9 (#$ . 10701)]) (put 'flymake--diag-text 'compiler-macro 'flymake--diag-text--cmacro) #@99 Access slot "text" of `(flymake--diag (:constructor flymake--diag-make))' 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 (#$ . 11109)]) (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 (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 6)) nil] 9 (#$ . 11493)]) (put 'flymake--diag-backend 'compiler-macro 'flymake--diag-backend--cmacro) #@102 Access slot "backend" of `(flymake--diag (:constructor flymake--diag-make))' 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 (#$ . 11917)]) (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 (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 7)) nil] 9 (#$ . 12310)]) (put 'flymake--diag-data 'compiler-macro 'flymake--diag-data--cmacro) #@99 Access slot "data" of `(flymake--diag (:constructor flymake--diag-make))' 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 (#$ . 12718)]) (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 (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 8)) nil] 9 (#$ . 13102)]) (put 'flymake--diag-overlay-properties 'compiler-macro 'flymake--diag-overlay-properties--cmacro) #@113 Access slot "overlay-properties" of `(flymake--diag (:constructor flymake--diag-make))' 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 (#$ . 13581)]) (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 (or (flymake--diag-p cl-x) (signal 'wrong-type-argument (list 'flymake--diag cl-x))) (aref cl-x 9)) nil] 9 (#$ . 14007)]) (put 'flymake--diag-overlay 'compiler-macro 'flymake--diag-overlay--cmacro) #@102 Access slot "overlay" of `(flymake--diag (:constructor flymake--diag-make))' 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 (#$ . 14431)]) (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 (#$ . 14877)]) (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 (#$ . 15958)]) (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 (#$ . 17076)]) #@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 (#$ . 17723)]) #@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 (#$ . 18148)])) #@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 (#$ . 18431)]) (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 (#$ . 18755)]) (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 (#$ . 19073)]) (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 (#$ . 19391)]) (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 (#$ . 19718)]) (put 'flymake-diagnostic-data 'byte-optimizer 'byte-compile-inline-expand) #@129 Get Flymake diagnostic DIAG's start position. This position only be queried after DIAG has been reported to Flymake. (fn DIAG) (defalias 'flymake-diagnostic-beg #[257 "\301!>\204\302\303\304D\"\210\211\305H\211\204\306\307\"\210\310!\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 9 error "DIAG %s not reported to Flymake yet" overlay-start] 5 (#$ . 20040)]) #@127 Get Flymake diagnostic DIAG's end position. This position only be queried after DIAG has been reported to Flymake. (fn DIAG) (defalias 'flymake-diagnostic-end #[257 "\301!>\204\302\303\304D\"\210\211\305H\211\204\306\307\"\210\310!\207" [cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--diag 9 error "DIAG %s not reported to Flymake yet" overlay-end] 5 (#$ . 20453)]) #@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\206te\206zd\"\"\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 (#$ . 20862)]) (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\235rq\210\301]\302d\303\"^\212\304 \305\306\307\310\311!\312\"\313$\216eb\210Sy\210\314\315\203\210\211\306V\262\203\210Su\210`\3161E\317\320!0\202I\210\202L\206Y\3211W\317\322!0\202Y\210\323\211\203g\211U\204g\211\206pTbdW\205p`\211\203zB\202\203 \211\262!B\266\203\202\222 !B\266\202\266\202)\262)\262)0\207\324\325\326\327%\210\323\207" [(debug error) 1 line-number-at-pos absolute match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [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)"] (error) end-of-thing sexp (error) symbol nil flymake--log-1 :warning flymake "Invalid region line=%s col=%s"] 13 (#$ . 22781)]) #@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 (#$ . 23904)) (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 (#$ . 27914)) (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 (#$ . 28807)]) #@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 (#$ . 29315)]) #@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 (#$ . 29518)]) #@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 (#$ . 29816)]) (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 (#$ . 31512)) (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 (#$ . 32395)]) (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 (#$ . 32802)]) (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 (or (flymake--backend-state-p cl-x) (signal 'wrong-type-argument (list 'flymake--backend-state cl-x))) (aref cl-x 1)) nil] 9 (#$ . 33125)]) (put 'flymake--backend-state-running 'compiler-macro 'flymake--backend-state-running--cmacro) #@120 Access slot "running" of `(flymake--backend-state (:constructor flymake--make-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 (#$ . 33612)]) (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 (or (flymake--backend-state-p cl-x) (signal 'wrong-type-argument (list 'flymake--backend-state cl-x))) (aref cl-x 2)) nil] 9 (#$ . 34059)]) (put 'flymake--backend-state-reported-p 'compiler-macro 'flymake--backend-state-reported-p--cmacro) #@123 Access slot "reported-p" of `(flymake--backend-state (:constructor flymake--make-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 (#$ . 34561)]) (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 (or (flymake--backend-state-p cl-x) (signal 'wrong-type-argument (list 'flymake--backend-state cl-x))) (aref cl-x 3)) nil] 9 (#$ . 35017)]) (put 'flymake--backend-state-disabled 'compiler-macro 'flymake--backend-state-disabled--cmacro) #@121 Access slot "disabled" of `(flymake--backend-state (:constructor flymake--make-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 (#$ . 35509)]) (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 (or (flymake--backend-state-p cl-x) (signal 'wrong-type-argument (list 'flymake--backend-state cl-x))) (aref cl-x 4)) nil] 9 (#$ . 35959)]) (put 'flymake--backend-state-diags 'compiler-macro 'flymake--backend-state-diags--cmacro) #@118 Access slot "diags" of `(flymake--backend-state (:constructor flymake--make-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 (#$ . 36436)]) (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 (#$ . 36939)]) (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 (#$ . 37793)]) (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 (#$ . 38689)])) (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 (#$ . 39197)]) #@92 Return t if regions START0..END0 and START1..END1 intersect. (fn START0 END0 START1 END1) (defalias 'flymake--intersects-p #[1028 "Y\203\fW\206-V\203X\206-Y\203$W\206-\211V\205-\211X\207" [] 6 (#$ . 39346)]) #@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 (#$ . 39584)]) #@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!\205r\302q\210\304\305\300\301$)\207" vconcat vector [buffer-live-p apply flymake--handle-report] 6 "\n\n(fn &rest ARGS)"] 11 (#$ . 42679)]) #@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 (#$ . 43199)]) #@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 (#$ . 43776) 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 (#$ . 44037) 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 (#$ . 44302) 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 (#$ . 44573)]) #@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 (#$ . 45185)]) #@62 Recent changes collected by `flymake-after-change-function'. (defvar flymake--recent-changes nil (#$ . 45971)) (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!\205r\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 (#$ . 46143) (list nil current-prefix-arg)]) #@27 Keymap for `flymake-mode' (defvar flymake-mode-map (byte-code "\300 \211\207" [make-sparse-keymap] 2) (#$ . 48365)) #@93 Non-nil if Flymake mode is enabled. Use the command `flymake-mode' to change this variable. (defvar flymake-mode nil (#$ . 48487)) (make-variable-buffer-local 'flymake-mode) #@1326 Toggle Flymake mode on or off. 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\203I\311\312\313\314\315$\210\311\316\317\314\315$\210\311\320\321\314\315$\210\311\322\323\315\211$\210\324\325\326 \"\210\327 \314 \203q\330\315!\210\202q\331\312\313\315#\210\331\316\317\315#\210\331\320\321\315#\210\331\322\323\315#\210\324\325\326 \"\210\f\203q\332\f!\210\314\333\334\203{\335\202|\336\"\210\337\340!\203\240\305 \203\220\211\305 \232\203\240\341\342\343\203\233\344\202\234\345#\266\210\346 \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 eldoc-documentation-functions flymake-eldoc-function 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 (#$ . 48669) (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 (#$ . 51641)]) #@23 Turn Flymake mode on. (defalias 'flymake-mode-on #[0 "\300\301!\207" [flymake-mode 1] 2 (#$ . 52253)]) #@24 Turn Flymake mode off. (defalias 'flymake-mode-off #[0 "\300\301!\207" [flymake-mode 0] 2 (#$ . 52362)]) (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 (#$ . 52602)]) (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]) #@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 (#$ . 53423)]) #@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 (#$ . 53701) (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 (#$ . 55305) (byte-code "\301\205\302\303E\207" [current-prefix-arg 1 (:error :warning) t] 3)]) #@9 Flymake (defvar flymake-menu nil (#$ . 55986)) (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" ("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]) 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] "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] "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)) (#$ . 57225)) #@62 Mode-line construct to report on exceptional Flymake status. (defvar flymake-mode-line-exception '(:eval (flymake--mode-line-exception)) (#$ . 57371)) #@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)) (#$ . 57529)) (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\314#\210\211\262\257\207" [flymake-menu :propertize "Flymake" mouse-face mode-line-highlight help-echo (lambda (&rest whatever) (concat (format "%s known backends\n" (hash-table-count flymake--backend-state)) (format "%s running\n" (length (flymake-running-backends))) (format "%s disabled\n" (length (flymake-disabled-backends))) "mouse-1: Display minor mode menu\n" "mouse-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]] 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@A\211@A\211@A\211\205f\317\320\321\322\323\324 \325\326\327#\210\211\262\257D\266\203\207" [flymake--backend-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] 25 (#$ . 59068)]) (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 "\304C\305\306\307#\310\311\312\313\314\315 \"\316\"\317\320%\"\210\242\211\304V\262\204@ \321=\203.\322\202\212 \203<\323!\324 !Y\202=\321\205\212\203H\325\202I\326\327\330\331\242\"\332\333\334\335\336 \337\315\340\n\"\311\341\342\314\315!\343\"\344\345\346&#\210\337\315\340 \"\311\341\342\314\315!\347\"\344\345\346&#\210\211\262\257D\207" [flymake--backend-state flymake-suppress-zero-counters mouse-wheel-down-event mouse-wheel-up-event 0 flymake--lookup-type-property mode-line-face compilation-error maphash make-byte-code 514 "\304!\n>\204\305\306\307D\"\210\211\310H\211\205@\211@\311\300!\311\304! >\204+\305\306\312D\"\210\310H!U\2039\301\211\242T\240\210A\266\202\202\207" vconcat vector [cl-struct-flymake--backend-state-tags cl-struct-flymake--diag-tags type-of signal wrong-type-argument flymake--backend-state 4 flymake--severity flymake--diag] 10 "\n\n(fn B STATE)" t nil flymake--severity warning-numeric-level "" (:propertize " ") :propertize format "%d" face mouse-face mode-line-highlight keymap make-sparse-keymap define-key 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]] 23 (#$ . 59997)]) (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 (#$ . 62143) (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 "\301\302\303\304\")\203\305!\202!!\207" [button pop-to-buffer flymake-show-diagnostic button-get type button-start] 6 (#$ . 62982) "d"]) (defalias 'flymake--diagnostics-buffer-entries #[0 "\302!\205\265rq\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 (#$ . 65755) 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!\206r\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 (#$ . 67440) nil]) (byte-code "\300\301!\210\302\303!\207" [provide flymake require flymake-proc] 2)