diff options
author | João Távora <joaotavora@gmail.com> | 2017-10-02 13:28:18 +0100 |
---|---|---|
committer | João Távora <joaotavora@gmail.com> | 2017-10-03 14:20:29 +0100 |
commit | f964aa99733e087bc51bd46fde655eaeaa5ff52d (patch) | |
tree | bc3c49a553c800f00de6510a6064ea964c1c9824 /lisp/progmodes/flymake-proc.el | |
parent | 602d9376dbce2646f601f87c1311443ee3feb021 (diff) | |
download | emacs-f964aa99733e087bc51bd46fde655eaeaa5ff52d.tar.gz emacs-f964aa99733e087bc51bd46fde655eaeaa5ff52d.tar.bz2 emacs-f964aa99733e087bc51bd46fde655eaeaa5ff52d.zip |
Minimal tweak as an attempt to future-proof Flymake API
Discussed with Stefan that this should allow Flymake to request more
from backends in the future, while also allowing backends to report
more accurately.
* lisp/progmodes/elisp-mode.el (elisp-flymake-checkdoc)
(elisp-flymake-byte-compile): Adjust to new API.
* lisp/progmodes/flymake-proc.el ()
(flymake-proc-legacy-flymake): Adjust to new API.
* lisp/progmodes/flymake.el (flymake-diagnostic-functions):
Review API again.
(flymake--handle-report): Allow other keys. Change ACTION to
REPORT-ACTION.
Diffstat (limited to 'lisp/progmodes/flymake-proc.el')
-rw-r--r-- | lisp/progmodes/flymake-proc.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/flymake-proc.el b/lisp/progmodes/flymake-proc.el index b76d18ed313..47ec27f611b 100644 --- a/lisp/progmodes/flymake-proc.el +++ b/lisp/progmodes/flymake-proc.el @@ -715,7 +715,7 @@ May only be called in a dynamic environment where (flymake-log 1 "Failed to delete dir %s, error ignored" dir-name)))) -(defun flymake-proc-legacy-flymake (report-fn &optional interactive) +(defun flymake-proc-legacy-flymake (report-fn &rest args) "Flymake backend based on the original Flymake implementation. This function is suitable for inclusion in `flymake-diagnostic-types-alist'. For backward compatibility, it @@ -729,8 +729,9 @@ can also be executed interactively independently of (apply (flymake-make-report-fn 'flymake-proc-legacy-flymake) diags (append args '(:force t)))) - t)) - (let ((proc flymake-proc--current-process) + :interactive t)) + (let ((interactive (plist-get args :interactive)) + (proc flymake-proc--current-process) (flymake-proc--report-fn report-fn)) (when (processp proc) (process-put proc 'flymake-proc--obsolete t) |