branch: master
commit dd88ce5c93068760c76cb7e0fa0424486d37255b
Author: Jackson Ray Hamilton <jack...@jacksonrayhamilton.com>
Commit: Jackson Ray Hamilton <jack...@jacksonrayhamilton.com>
Cleanup.
---
context-coloring.el | 9 ++++-----
test/context-coloring-test.el | 9 ++++++---
2 files changed, 10 insertions(+), 8 deletions(-)
diff --git a/context-coloring.el b/context-coloring.el
index ca15c4b..e09b863 100644
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -484,9 +484,7 @@ elisp tracks, and asynchronously for shell command tracks."
Invoke CALLBACK when complete; see `context-coloring-dispatch'."
(interactive)
- (context-coloring-dispatch
- (lambda ()
- (when callback (funcall callback)))))
+ (context-coloring-dispatch callback))
(defvar-local context-coloring-changed nil
"Indication that the buffer has changed recently, which implies
@@ -515,7 +513,8 @@ used.")
produces (1 0 0), \"19700101\" produces (19700101), etc."
(let (version)
(while (string-match "[0-9]+" string)
- (setq version (append version (list (string-to-number (match-string 0
string)))))
+ (setq version (append version
+ (list (string-to-number (match-string 0 string)))))
(setq string (substring string (match-end 0))))
version))
@@ -988,7 +987,7 @@ Supported modes: `js-mode', `js3-mode'"
(when colorize-initially-p
(context-coloring-colorize))))
(when (null dispatch)
- (message "%s" "Context coloring is not available for this major
mode"))))))
+ (message "Context coloring is not available for this major
mode"))))))
(provide 'context-coloring)
diff --git a/test/context-coloring-test.el b/test/context-coloring-test.el
index deada98..cbd2002 100644
--- a/test/context-coloring-test.el
+++ b/test/context-coloring-test.el
@@ -137,7 +137,8 @@ in the typical format."
(function-name (intern-soft
(format "context-coloring-test-js-%s" name)))
(setup-function-name (intern-soft
- (format "context-coloring-test-js-%s-setup"
name))))
+ (format
+ "context-coloring-test-js-%s-setup" name))))
`(ert-deftest-async ,test-name (done)
(context-coloring-test-js-mode
,fixture
@@ -157,7 +158,8 @@ format."
(function-name (intern-soft
(format "context-coloring-test-js-%s" name)))
(setup-function-name (intern-soft
- (format "context-coloring-test-js-%s-setup"
name))))
+ (format
+ "context-coloring-test-js-%s-setup" name))))
`(ert-deftest ,test-name ()
(context-coloring-test-js2-mode
,fixture
@@ -288,7 +290,8 @@ is FOREGROUND, or the inverse if NEGATE is non-nil."
"but it %s.")
level
(if negate "not " "") foreground
- (if negate "did" (format "was `%s'"
actual-foreground)))))))
+ (if negate
+ "did" (format "was `%s'" actual-foreground)))))))
(defun context-coloring-test-assert-not-face (&rest arguments)
"Assert that LEVEL does not have a face with `:foreground'
