31 lines
719 B
EmacsLisp
31 lines
719 B
EmacsLisp
|
;;; defuns-flycheck.el
|
||
|
|
;; for ../core-flycheck.el
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun narf*fly-shorter-status (result)
|
||
|
|
(format "[%s]" (replace-regexp-in-string " FlyC:?" "" result)))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun narf*flycheck-buffer ()
|
||
|
|
(if (and (featurep 'flycheck) flycheck-mode)
|
||
|
|
(flycheck-buffer)))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun narf/flycheck-next-error ()
|
||
|
|
(interactive)
|
||
|
|
(call-interactively
|
||
|
|
(if (bound-and-true-p flycheck-mode)
|
||
|
|
'flycheck-next-error
|
||
|
|
'next-error)))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun narf/flycheck-previous-error ()
|
||
|
|
(interactive)
|
||
|
|
(call-interactively
|
||
|
|
(if (bound-and-true-p flycheck-mode)
|
||
|
|
'flycheck-previous-error
|
||
|
|
'previous-error)))
|
||
|
|
|
||
|
|
(provide 'defuns-flycheck)
|
||
|
|
;;; defuns-flycheck.el ends here
|