branch: elpa/flycheck
commit 85a8cb133fcb0e67e79a287a5cb1521e6bd1c0d0
Author: Justin Barclay <[email protected]>
Commit: Bozhidar Batsov <[email protected]>
Switch new functions to use Emacs private function prefix
---
flycheck.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/flycheck.el b/flycheck.el
index 9dc8374058..51ff3876d7 100644
--- a/flycheck.el
+++ b/flycheck.el
@@ -8235,7 +8235,7 @@ See URL `https://stylelint.io/'."
(config-file "--config" flycheck-stylelintrc)
"--stdin-filename" (eval (or (buffer-file-name) "style.css")))
:standard-input t
- :verify (lambda (_) (flycheck-stylelint-verify 'css-stylelint))
+ :verify (lambda (_) (flycheck--stylelint-verify 'css-stylelint))
:error-parser flycheck-parse-stylelint
:predicate flycheck-buffer-nonempty-p
:modes (css-mode css-ts-mode)
@@ -9937,7 +9937,7 @@ See URL `https://stylelint.io/'."
(option-flag "--quiet" flycheck-stylelint-quiet)
(config-file "--config" flycheck-stylelintrc))
:standard-input t
- :verify (lambda (_) (flycheck-stylelint-verify 'less-stylelint))
+ :verify (lambda (_) (flycheck--stylelint-verify 'less-stylelint))
:error-parser flycheck-parse-stylelint
:predicate flycheck-buffer-nonempty-p
:modes (less-css-mode))
@@ -12022,15 +12022,15 @@ See URL `https://github.com/brigade/scss-lint'."
'(bold error)
'success)))))))
-(defun flycheck-stylelint-config-exists-p (checker)
+(defun flycheck--stylelint-config-exists-p (checker)
"Whether there is a valid stylelint config for the current buffer."
(eql 0 (flycheck-call-checker-process
checker nil nil nil
"--print-config" (or buffer-file-name "index.js"))))
-(defun flycheck-stylelint-verify (checker)
+(defun flycheck--stylelint-verify (checker)
"Verify stylelint setup for CHECKER."
- (let ((have-config (flycheck-stylelint-config-exists-p checker)))
+ (let ((have-config (flycheck--stylelint-config-exists-p checker)))
(list
(flycheck-verification-result-new
:label "configuration available"
@@ -12038,10 +12038,10 @@ See URL `https://github.com/brigade/scss-lint'."
:face (if have-config 'success '(bold error)))
(flycheck-verification-result-new
:label "stylecheck version"
- :message (number-to-string (flycheck-stylelint-get-major-version
checker))
+ :message (number-to-string (flycheck--stylelint-get-major-version
checker))
:face 'success))))
-(defun flycheck-stylelint-get-major-version (checker)
+(defun flycheck--stylelint-get-major-version (checker)
"Return major version of stylelint."
(let ((cb (current-buffer)))
(with-temp-buffer
@@ -12060,7 +12060,7 @@ See URL `https://stylelint.io/'."
(option-flag "--quiet" flycheck-stylelint-quiet)
(config-file "--config" flycheck-stylelintrc))
:standard-input t
- :verify (lambda (_) (flycheck-stylelint-verify 'scss-stylelint))
+ :verify (lambda (_) (flycheck--stylelint-verify 'scss-stylelint))
:error-parser flycheck-parse-stylelint
:predicate flycheck-buffer-nonempty-p
:modes (scss-mode))
