mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

Add interactive flymake-start function

Browse Source 
* lisp/progmodes/flymake.el (flymake-on-timer-event)
(flymake-after-change-function, flymake-mode): Call
flymake-start.
(flymake-start): Rename from flymake--start-syntax-check.
This commit is contained in:
João Távora 2017-09-27 17:47:14 +01:00
parent 483f1e834d
commit 9a629a73e0
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/progmodes/flymake.el
View File

@ -466,7 +466,7 @@ associated `flymake-category' return DEFAULT."
(setq flymake-last-change-time nil)
(flymake-log :debug "starting syntax check after no changes for some time")
(flymake--start-syntax-check)))))
(flymake-start)))))
(define-obsolete-function-alias 'flymake-display-err-menu-for-current-line
'flymake-popup-current-error-menu "24.4")
@ -596,15 +596,22 @@ sources."
err)
(flymake--stop-backend backend))))
(defun flymake--start-syntax-check (&optional deferred)
(defun flymake-start (&optional deferred interactive)
"Start a syntax check.
Start it immediately, or after current command if DEFERRED is
non-nil."
non-nil. With optional INTERACTIVE or interactively, clear any
stale information about running and automatically disabled
backends."
(interactive (list nil t))
(cl-labels
((start
()
(remove-hook 'post-command-hook #'start 'local)
(setq flymake-check-start-time (float-time))
(when interactive
(setq flymake--diagnostics-table (make-hash-table)
flymake--running-backends nil
flymake--disabled-backends nil))
(dolist (backend flymake-diagnostic-functions)
(cond ((memq backend flymake--running-backends)
(flymake-log :debug "Backend %s still running, not restarting"
@ -640,7 +647,7 @@ non-nil."
(setq flymake--diagnostics-table (make-hash-table))
(when flymake-start-syntax-check-on-find-file
(flymake--start-syntax-check)))))
(flymake-start)))))
;; Turning the mode OFF.
(t
@ -670,13 +677,13 @@ non-nil."
(let((new-text (buffer-substring start stop)))
(when (and flymake-start-syntax-check-on-newline (equal new-text "\n"))
(flymake-log :debug "starting syntax check as new-line has been seen")
(flymake--start-syntax-check 'deferred))
(flymake-start 'deferred))
(setq flymake-last-change-time (float-time))))
(defun flymake-after-save-hook ()
(when flymake-mode
(flymake-log :debug "starting syntax check as buffer was saved")
(flymake--start-syntax-check))) ; no more mode 3. cannot start check if mode 3 (to temp copies) is active - (???)
(flymake-start)))
(defun flymake-kill-buffer-hook ()
(when flymake-timer