File tree 2 files changed +7
-4
lines changed
2 files changed +7
-4
lines changed Original file line number Diff line number Diff line change @@ -77,6 +77,7 @@ TESTS are lists of the form (content (start end expected-face)*). For each test
77
77
check that each `expected-face` is found in `content` between `start` and `end`.
78
78
79
79
DESCRIPTION is the description of the spec."
80
+ (declare (indent 1 ))
80
81
`(it , description
81
82
(dolist (test (quote , tests ))
82
83
(apply #'expect-faces-at test))))
@@ -797,8 +798,8 @@ DESCRIPTION is the description of the spec."
797
798
(" (def foo \" usage\" \" hello\" )"
798
799
(18 24 font-lock-string-face ))
799
800
800
- (" (def foo \" usage\" \n \" hello\" )"
801
- (21 27 font-lock-string-face ))
801
+ (" (def foo \" usage\" \n \" hello\" )"
802
+ (21 27 font-lock-string-face ))
802
803
803
804
(" (def foo \n \" usage\" \" hello\" )"
804
805
(13 19 font-lock-doc-face ))
@@ -864,8 +865,8 @@ DESCRIPTION is the description of the spec."
864
865
865
866
(when-fontifying-it " should handle keyword-meta"
866
867
(" ^:meta-data"
867
- (1 1 nil )
868
- (2 11 clojure-keyword-face)))
868
+ (1 1 nil )
869
+ (2 11 clojure-keyword-face)))
869
870
870
871
(when-fontifying-it " should handle a keyword with allowed characters"
871
872
(" :aaa#bbb"
Original file line number Diff line number Diff line change 34
34
35
35
(defmacro with-clojure-buffer (text &rest body )
36
36
" Create a temporary buffer, insert TEXT, switch to clojure-mode and evaluate BODY."
37
+ (declare (indent 1 ))
37
38
`(with-temp-buffer
38
39
(erase-buffer )
39
40
(insert , text )
49
50
BODY should contain the refactoring that transforms BEFORE into AFTER.
50
51
51
52
DESCRIPTION is the description of the spec."
53
+ (declare (indent 1 ))
52
54
`(it , description
53
55
(with-clojure-buffer , before
54
56
,@body
You can’t perform that action at this time.
0 commit comments