Skip to content

GitLab

Commit c0d7f7fc authored by Stefan Monnier's avatar Stefan Monnier
Browse files

Merge remote-tracking branch 'refs/remotes/origin/master'

parents 3599a9a1 2b7dc7fe
Pipeline #28310 failed with stage
in 3 minutes and 48 seconds
Hide whitespace changes
Inline Side-by-side
Showing with 13 additions and 7 deletions
lisp/progmodes/flymake.el
View file @ c0d7f7fc
......@@ -1569,13 +1569,19 @@ correctly.")
,flymake-mode-line-lighter
mouse-face mode-line-highlight
help-echo
,(lambda (&rest _)
(concat
(format "%s known backends\n" (hash-table-count flymake--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"))
,(lambda (w &rest _)
(with-current-buffer (window-buffer w)
;; Mouse can activate tool-tip without window being active.
;; `flymake--state' is buffer local and is null when line
;; lighter appears in *Help* `describe-mode'.
(concat
(unless (null flymake--state)
(concat
(format "%s known backends\n" (hash-table-count flymake--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
,(let ((map (make-sparse-keymap)))
(define-key map [mode-line down-mouse-1]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment