50 lines
4.8 KiB
Plaintext
50 lines
4.8 KiB
Plaintext
|
;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.
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(require 'flymake)
|
|||
|
|
#@71 Indicates when flymake-easy-load has successfully run in this buffer.
|
|||
|
|
(defvar flymake-easy--active nil (#$ . 427))
|
|||
|
|
#@63 The user-specified function for building the flymake command.
|
|||
|
|
(defvar flymake-easy--command-fn nil (#$ . 548))
|
|||
|
|
#@94 Where to create the temp file when checking, one of 'tempdir, 'inplace or
|
|||
|
|
'temp-with-folder.
|
|||
|
|
(defvar flymake-easy--location nil (#$ . 665))
|
|||
|
|
#@64 The canonical file name extension to use for the current file.
|
|||
|
|
(defvar flymake-easy--extension nil (#$ . 811))
|
|||
|
|
(mapc 'make-variable-buffer-local '(flymake-easy--active flymake-easy--command-fn flymake-easy--location flymake-easy--extension))
|
|||
|
|
#@141 Create a temporary file for storing the contents of FILE-NAME in the system tempdir.
|
|||
|
|
Argument PREFIX temp file prefix, supplied by flymake.
|
|||
|
|
(defalias 'flymake-easy--tempfile-in-temp-dir #[(file-name prefix) "\302\206 \303\304\305 P#\207" [prefix flymake-easy--extension make-temp-file "flymake-easy" nil "."] 5 (#$ . 1060)])
|
|||
|
|
#@81 A catch-all flymake init function for use in `flymake-allowed-file-name-masks'.
|
|||
|
|
(defalias 'flymake-easy--flymake-init #[nil "\304\305=\203 \306\202# \307=\203 \310\202# \311=\203 \312\202# \313\314\"!\n !\211@ A*D\207" [flymake-easy--location tempfile flymake-easy--command-fn command flymake-init-create-temp-buffer-copy tempdir flymake-easy--tempfile-in-temp-dir inplace flymake-create-temp-inplace temp-with-folder flymake-create-temp-with-folder-structure error "unknown location for flymake-easy: %s"] 5 (#$ . 1393)])
|
|||
|
|
#@48 Whether to skip flymake in the current buffer.
|
|||
|
|
(defalias 'flymake-easy-exclude-buffer-p #[nil "\300\301!\205 \302 \205 \301\302 !\207" [fboundp tramp-tramp-file-p buffer-file-name] 2 (#$ . 1931)])
|
|||
|
|
#@694 Enable flymake in the containing buffer using a specific narrow configuration.
|
|||
|
|
Argument COMMAND-FN function called to build the
|
|||
|
|
command line to run (receives filename, returns list).
|
|||
|
|
Argument ERR-LINE-PATTERNS patterns for identifying errors (see `flymake-err-line-patterns').
|
|||
|
|
Argument EXTENSION a canonical extension for this type of source file, e.g. "rb".
|
|||
|
|
Argument LOCATION where to create the temporary copy: one of 'tempdir (default), 'inplace or 'temp-with-folder
|
|||
|
|
Argument WARNING-RE a pattern which identifies error messages as warnings.
|
|||
|
|
Argument INFO-RE a pattern which identifies messages as infos (supported only
|
|||
|
|
by the flymake fork at https://github.com/illusori/emacs-flymake).
|
|||
|
|
(defalias 'flymake-easy-load #[(command-fn &optional err-line-patterns location extension warning-re info-re) "\306!@\307 !\203p \310 ?\205t \206 \311
\312\313\314!\210\315\f\2033 \313\316!\210\317\320 \211 \203W @\313! \206L \321L\210 A\211 \204= *\322\323!\203j \313\323!\210 \206h \324\325\312!\202t \326\327 \")\207" [command-fn executable flymake-easy--command-fn location flymake-easy--location extension "dummy" executable-find flymake-easy-exclude-buffer-p tempdir t make-local-variable flymake-allowed-file-name-masks (("." flymake-easy--flymake-init)) flymake-err-line-patterns (flymake-warning-re flymake-warn-line-regexp) nil "^[wW]arn" boundp flymake-info-line-regexp "^[iI]nfo" flymake-mode message "Not enabling flymake: '%s' program not found" flymake-easy--extension flymake-easy--active err-line-patterns var --dolist-tail-- warning-re info-re] 4 (#$ . 2137)])
|
|||
|
|
#@194 Return every match for `flymake-err-line-patterns' in STR.
|
|||
|
|
|
|||
|
|
This is a judicious override for `flymake-split-output', enabled
|
|||
|
|
by the advice below, which allows for matching multi-line
|
|||
|
|
patterns.
|
|||
|
|
(defalias 'flymake-easy--find-all-matches #[(str) "\306\307\n\306\211 \2039 \f@\211@\307 \310 \f
#\203- \311\307\f\" B\307\225\202
]*\fA\211\204\f *\f\306O
\312\230?\205L
+D\207" [last-match-end-pos matches flymake-err-line-patterns pattern --dolist-tail-- pos nil 0 string-match match-string "" regex str residual] 5 (#$ . 3748)])
|
|||
|
|
(byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\310\304$\210\305\306\304\"\210\311\312!\207" [ad-add-advice flymake-split-output (flymake-easy--split-output (protect) t (advice lambda (output) "Override `flymake-split-output' to support mult-line error messages." (setq ad-return-value (if flymake-easy--active (flymake-easy--find-all-matches output) ad-do-it)))) around nil ad-activate flymake-post-syntax-check (flymake-easy--force-check-was-interrupted nil t (advice lambda nil (when flymake-easy--active (setq flymake-check-was-interrupted t)))) before provide flymake-easy] 5)
|