Write core initfiles + defuns
This commit is contained in:
parent
c0661f5293
commit
b998f4ab08
52 changed files with 2444 additions and 706 deletions
30
core/lib/defuns-flycheck.el
Normal file
30
core/lib/defuns-flycheck.el
Normal file
|
@ -0,0 +1,30 @@
|
|||
;;; 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
|
Loading…
Add table
Add a link
Reference in a new issue