From 8c85ab027eefb352a39d68433f64bfaa1c446856 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Thu, 21 Sep 2017 14:20:22 +0100 Subject: [PATCH] Echo Flymake error messages when navigating errors interactively Perhaps binding M-n and M-p to flymake-goto-next-error and flymake-goto-prev-error also wouldn't be a bad idea. * lisp/progmodes/flymake.el (flymake-goto-next-error): Use target overlay's help-echo. --- lisp/progmodes/flymake.el | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index e8d5de6023c..f9aa098071b 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -557,15 +557,19 @@ return DEFAULT." (chain (cl-member-if (lambda (ov) (if (cl-plusp n) (> (overlay-start ov) - (point)) - (< (overlay-start ov) - (point)))) - ovs)) - (target (nth (1- n) chain))) - (if target - (goto-char (overlay-start target)) - (when interactive - (user-error "No more flymake errors"))))) + (point)) + (< (overlay-start ov) + (point)))) + ovs)) + (target (nth (1- n) chain))) + (cond (target + (goto-char (overlay-start target)) + (when interactive + (message + (funcall (overlay-get target 'help-echo) + nil nil (point))))) + (interactive + (user-error "No more flymake errors"))))) (defun flymake-goto-prev-error (&optional n interactive) "Go to previous, or Nth previous, flymake error in buffer." -- 2.39.5