Files
emacsd/elpa/flymake-easy-20140818.755/flymake-easy.elc

50 lines
4.8 KiB
Plaintext
Raw Normal View History

2019-10-27 19:05:34 +01:00
;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\210A\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)