(flymake-diagnostic-type diag))
filter :key #'flymake--severity)))
collect o into retval
- finally (cl-return
- (cl-sort retval (if (cl-plusp n) #'< #'>)
- :key #'overlay-start))))
+ finally return (cl-sort retval (if (cl-plusp n) #'< #'>)
+ :key #'overlay-start)))
(tail (cl-member-if (lambda (ov)
(if (cl-plusp n)
(> (overlay-start ov)
(user-error "No more Flymake diagnostics%s"
(if filter
(format " of %s severity"
- (mapconcat #'symbol-name filter ", ")) ""))))))
+ (mapconcat #'symbol-name filter ", "))
+ ""))))))
(defun flymake-goto-prev-error (&optional n filter interactive)
"Go to Nth previous Flymake diagnostic that matches FILTER.