Skip to content

Commit 14d4221

Browse files
Bostbbatsov
Bost
authored and
bbatsov
committed
Fix regression to CIDER's dynamic syntax highlighting #474 
1 parent 6ed4a6c commit 14d4221

File tree

2 files changed

+93
-88
lines changed

2 files changed

+93
-88
lines changed

‎clojure-mode.el‎

Lines changed: 9 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -875,13 +875,18 @@ any number of matches of `clojure--sym-forbidden-rest-chars'."))
875875
(1 'default)
876876
(2 font-lock-type-face))
877877

878-
;; clojure symbols not matched by the previous regexps
878+
;; clojure symbols not matched by the previous regexps; influences CIDER's
879+
;; dynamic syntax highlighting (CDSH). See https://git.io/vxEEA:
879880
(,(concat "\\(" clojure--sym-regexp "?\\)\\(/\\)\\(" clojure--sym-regexp "\\)")
880881
(1 font-lock-type-face)
881-
(2 'default)
882-
(3 'default))
882+
;; 2nd and 3th matching groups can be font-locked to `nil' or `default'.
883+
;; CDSH seems to kick in only for functions and variables referenced w/o
884+
;; writing their namespaces.
885+
(2 nil)
886+
(3 nil))
883887
(,(concat "\\(" clojure--sym-regexp "\\)")
884-
(1 'default))
888+
;; this matching group must be font-locked to `nil' otherwise CDSH breaks.
889+
(1 nil))
885890

886891
;; #_ and (comment ...) macros.
887892
(clojure--search-comment-macro 1 font-lock-comment-face t)

‎test/clojure-mode-font-lock-test.el‎

Lines changed: 84 additions & 84 deletions
Original file line numberDiff line numberDiff line change
@@ -123,10 +123,10 @@ POS."
123123
:tags '(fontification syntax-table)
124124
(should (equal (clojure-test-face-at
125125
1 2 "#_")
126-
'default))
126+
nil))
127127
(should (equal (clojure-test-face-at
128128
1 2 "#_ \n;; some crap\n (lala 0101\n lao\n\n 0 0i)")
129-
'default))
129+
nil))
130130
(should (equal (clojure-test-face-at
131131
5 41 "#_ \n;; some crap\n (lala 0101\n lao\n\n 0 0i)")
132132
'font-lock-comment-face)))
@@ -153,197 +153,197 @@ POS."
153153

154154
(ert-deftest clojure-mode-syntax-table/oneword ()
155155
:tags '(fontification syntax-table)
156-
(should (eq (clojure-test-face-at 2 8 " oneword") 'default))
157-
(should (eq (clojure-test-face-at 2 8 "@oneword") 'default))
158-
(should (eq (clojure-test-face-at 2 8 "#oneword") 'default))
159-
(should (eq (clojure-test-face-at 2 8 ".oneword") 'default))
156+
(should (eq (clojure-test-face-at 2 8 " oneword") nil))
157+
(should (eq (clojure-test-face-at 2 8 "@oneword") nil))
158+
(should (eq (clojure-test-face-at 2 8 "#oneword") nil))
159+
(should (eq (clojure-test-face-at 2 8 ".oneword") nil))
160160
(should (eq (clojure-test-face-at 3 9 "#^oneword")
161161
'font-lock-type-face)) ;; type-hint
162-
(should (eq (clojure-test-face-at 2 8 "(oneword)") 'default))
162+
(should (eq (clojure-test-face-at 2 8 "(oneword)") nil))
163163

164164
(should (eq (clojure-test-face-at 2 8 "(oneword/oneword)")
165165
'font-lock-type-face))
166-
(should (eq (clojure-test-face-at 9 10 "(oneword/oneword)") 'default))
167-
(should (eq (clojure-test-face-at 11 16 "(oneword/oneword)") 'default))
166+
(should (eq (clojure-test-face-at 9 10 "(oneword/oneword)") nil))
167+
(should (eq (clojure-test-face-at 11 16 "(oneword/oneword)") nil))
168168

169169
(should (eq (clojure-test-face-at 2 8 "(oneword/seg.mnt)")
170170
'font-lock-type-face))
171-
(should (eq (clojure-test-face-at 9 10 "(oneword/seg.mnt)") 'default))
172-
(should (eq (clojure-test-face-at 11 16 "(oneword/seg.mnt)") 'default))
171+
(should (eq (clojure-test-face-at 9 10 "(oneword/seg.mnt)") nil))
172+
(should (eq (clojure-test-face-at 11 16 "(oneword/seg.mnt)") nil))
173173

174174
(should (eq (clojure-test-face-at 2 8 "(oneword/mxdCase)")
175175
'font-lock-type-face))
176-
(should (eq (clojure-test-face-at 9 10 "(oneword/mxdCase)") 'default))
177-
(should (eq (clojure-test-face-at 11 16 "(oneword/mxdCase)") 'default))
176+
(should (eq (clojure-test-face-at 9 10 "(oneword/mxdCase)") nil))
177+
(should (eq (clojure-test-face-at 11 16 "(oneword/mxdCase)") nil))
178178

179179
(should (eq (clojure-test-face-at 2 8 "(oneword/CmlCase)")
180180
'font-lock-type-face))
181-
(should (eq (clojure-test-face-at 9 10 "(oneword/CmlCase)") 'default))
182-
(should (eq (clojure-test-face-at 11 16 "(oneword/CmlCase)") 'default))
181+
(should (eq (clojure-test-face-at 9 10 "(oneword/CmlCase)") nil))
182+
(should (eq (clojure-test-face-at 11 16 "(oneword/CmlCase)") nil))
183183

184184
(should (eq (clojure-test-face-at 2 8 "(oneword/ve/yCom|pLex.stu-ff)")
185185
'font-lock-type-face))
186186
(should (eq (clojure-test-face-at 9 10 "(oneword/ve/yCom|pLex.stu-ff)")
187-
'default))
187+
nil))
188188
(should (eq (clojure-test-face-at 11 28 "(oneword/ve/yCom|pLex.stu-ff)")
189-
'default))
189+
nil))
190190

191191
(should (eq (clojure-test-face-at 2 8 "(oneword/.ve/yCom|pLex.stu-ff)")
192192
'font-lock-type-face))
193193
(should (eq (clojure-test-face-at 9 10 "(oneword/.ve/yCom|pLex.stu-ff)")
194-
'default))
194+
nil))
195195
(should (eq (clojure-test-face-at 12 29 "(oneword/.ve/yCom|pLex.stu-ff)")
196-
'default)))
196+
nil)))
197197

198198
(ert-deftest clojure-mode-syntax-table/segment ()
199199
:tags '(fontification syntax-table)
200-
(should (eq (clojure-test-face-at 2 8 " seg.mnt") 'default))
201-
(should (eq (clojure-test-face-at 2 8 "@seg.mnt") 'default))
202-
(should (eq (clojure-test-face-at 2 8 "#seg.mnt") 'default))
203-
(should (eq (clojure-test-face-at 2 8 ".seg.mnt") 'default))
200+
(should (eq (clojure-test-face-at 2 8 " seg.mnt") nil))
201+
(should (eq (clojure-test-face-at 2 8 "@seg.mnt") nil))
202+
(should (eq (clojure-test-face-at 2 8 "#seg.mnt") nil))
203+
(should (eq (clojure-test-face-at 2 8 ".seg.mnt") nil))
204204
(should (eq (clojure-test-face-at 3 9 "#^seg.mnt")
205205
'font-lock-type-face)) ;; type-hint
206-
(should (eq (clojure-test-face-at 2 8 "(seg.mnt)") 'default))
206+
(should (eq (clojure-test-face-at 2 8 "(seg.mnt)") nil))
207207
(should (eq (clojure-test-face-at 2 8 "(seg.mnt/oneword)")
208208
'font-lock-type-face))
209-
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/oneword)") 'default))
210-
(should (eq (clojure-test-face-at 11 16 "(seg.mnt/oneword)") 'default))
209+
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/oneword)") nil))
210+
(should (eq (clojure-test-face-at 11 16 "(seg.mnt/oneword)") nil))
211211

212212
(should (eq (clojure-test-face-at 2 8 "(seg.mnt/seg.mnt)")
213213
'font-lock-type-face))
214-
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/seg.mnt)") 'default))
215-
(should (eq (clojure-test-face-at 11 16 "(seg.mnt/seg.mnt)") 'default))
214+
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/seg.mnt)") nil))
215+
(should (eq (clojure-test-face-at 11 16 "(seg.mnt/seg.mnt)") nil))
216216

217217
(should (eq (clojure-test-face-at 2 8 "(seg.mnt/mxdCase)")
218218
'font-lock-type-face))
219-
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/mxdCase)") 'default))
220-
(should (eq (clojure-test-face-at 11 16 "(seg.mnt/mxdCase)") 'default))
219+
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/mxdCase)") nil))
220+
(should (eq (clojure-test-face-at 11 16 "(seg.mnt/mxdCase)") nil))
221221

222222
(should (eq (clojure-test-face-at 2 8 "(seg.mnt/CmlCase)")
223223
'font-lock-type-face))
224-
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/CmlCase)") 'default))
225-
(should (eq (clojure-test-face-at 11 16 "(seg.mnt/CmlCase)") 'default))
224+
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/CmlCase)") nil))
225+
(should (eq (clojure-test-face-at 11 16 "(seg.mnt/CmlCase)") nil))
226226

227227
(should (eq (clojure-test-face-at 2 8 "(seg.mnt/ve/yCom|pLex.stu-ff)")
228228
'font-lock-type-face))
229229
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/ve/yCom|pLex.stu-ff)")
230-
'default))
230+
nil))
231231
(should (eq (clojure-test-face-at 11 28 "(seg.mnt/ve/yCom|pLex.stu-ff)")
232-
'default))
232+
nil))
233233

234234
(should (eq (clojure-test-face-at 2 8 "(seg.mnt/.ve/yCom|pLex.stu-ff)")
235235
'font-lock-type-face))
236236
(should (eq (clojure-test-face-at 9 10 "(seg.mnt/.ve/yCom|pLex.stu-ff)")
237-
'default))
237+
nil))
238238
(should (eq (clojure-test-face-at 12 29 "(seg.mnt/.ve/yCom|pLex.stu-ff)")
239-
'default)))
239+
nil)))
240240

241241
(ert-deftest clojure-mode-syntax-table/camelcase ()
242242
:tags '(fontification syntax-table)
243-
(should (eq (clojure-test-face-at 2 8 " CmlCase") 'default))
244-
(should (eq (clojure-test-face-at 2 8 "@CmlCase") 'default))
245-
(should (eq (clojure-test-face-at 2 8 "#CmlCase") 'default))
246-
(should (eq (clojure-test-face-at 2 8 ".CmlCase") 'default))
243+
(should (eq (clojure-test-face-at 2 8 " CmlCase") nil))
244+
(should (eq (clojure-test-face-at 2 8 "@CmlCase") nil))
245+
(should (eq (clojure-test-face-at 2 8 "#CmlCase") nil))
246+
(should (eq (clojure-test-face-at 2 8 ".CmlCase") nil))
247247
(should (eq (clojure-test-face-at 3 9 "#^CmlCase")
248248
'font-lock-type-face)) ;; type-hint
249-
(should (eq (clojure-test-face-at 2 8 "(CmlCase)") 'default))
249+
(should (eq (clojure-test-face-at 2 8 "(CmlCase)") nil))
250250

251251
(should (eq (clojure-test-face-at 2 8 "(CmlCase/oneword)")
252252
'font-lock-type-face))
253-
(should (eq (clojure-test-face-at 9 10 "(CmlCase/oneword)") 'default))
254-
(should (eq (clojure-test-face-at 11 16 "(CmlCase/oneword)") 'default))
253+
(should (eq (clojure-test-face-at 9 10 "(CmlCase/oneword)") nil))
254+
(should (eq (clojure-test-face-at 11 16 "(CmlCase/oneword)") nil))
255255

256256
(should (eq (clojure-test-face-at 2 8 "(CmlCase/seg.mnt)")
257257
'font-lock-type-face))
258-
(should (eq (clojure-test-face-at 9 10 "(CmlCase/seg.mnt)") 'default))
259-
(should (eq (clojure-test-face-at 11 16 "(CmlCase/seg.mnt)") 'default))
258+
(should (eq (clojure-test-face-at 9 10 "(CmlCase/seg.mnt)") nil))
259+
(should (eq (clojure-test-face-at 11 16 "(CmlCase/seg.mnt)") nil))
260260

261261
(should (eq (clojure-test-face-at 2 8 "(CmlCase/mxdCase)")
262262
'font-lock-type-face))
263-
(should (eq (clojure-test-face-at 9 10 "(CmlCase/mxdCase)") 'default))
264-
(should (eq (clojure-test-face-at 11 16 "(CmlCase/mxdCase)") 'default))
263+
(should (eq (clojure-test-face-at 9 10 "(CmlCase/mxdCase)") nil))
264+
(should (eq (clojure-test-face-at 11 16 "(CmlCase/mxdCase)") nil))
265265

266266
(should (eq (clojure-test-face-at 2 8 "(CmlCase/CmlCase)")
267267
'font-lock-type-face))
268-
(should (eq (clojure-test-face-at 9 10 "(CmlCase/CmlCase)") 'default))
269-
(should (eq (clojure-test-face-at 11 16 "(CmlCase/CmlCase)") 'default))
268+
(should (eq (clojure-test-face-at 9 10 "(CmlCase/CmlCase)") nil))
269+
(should (eq (clojure-test-face-at 11 16 "(CmlCase/CmlCase)") nil))
270270

271271
(should (eq (clojure-test-face-at 2 8 "(CmlCase/ve/yCom|pLex.stu-ff)")
272272
'font-lock-type-face))
273273
(should (eq (clojure-test-face-at 9 10 "(CmlCase/ve/yCom|pLex.stu-ff)")
274-
'default))
274+
nil))
275275
(should (eq (clojure-test-face-at 11 28 "(CmlCase/ve/yCom|pLex.stu-ff)")
276-
'default))
276+
nil))
277277

278278
(should (eq (clojure-test-face-at 2 8 "(CmlCase/.ve/yCom|pLex.stu-ff)")
279279
'font-lock-type-face))
280280
(should (eq (clojure-test-face-at 9 10 "(CmlCase/.ve/yCom|pLex.stu-ff)")
281-
'default))
281+
nil))
282282
(should (eq (clojure-test-face-at 12 29 "(CmlCase/.ve/yCom|pLex.stu-ff)")
283-
'default)))
283+
nil)))
284284

285285
(ert-deftest clojure-mode-syntax-table/mixedcase ()
286286
:tags '(fontification syntax-table)
287-
(should (eq (clojure-test-face-at 2 8 " mxdCase") 'default))
288-
(should (eq (clojure-test-face-at 2 8 "@mxdCase") 'default))
289-
(should (eq (clojure-test-face-at 2 8 "#mxdCase") 'default))
290-
(should (eq (clojure-test-face-at 2 8 ".mxdCase") 'default))
287+
(should (eq (clojure-test-face-at 2 8 " mxdCase") nil))
288+
(should (eq (clojure-test-face-at 2 8 "@mxdCase") nil))
289+
(should (eq (clojure-test-face-at 2 8 "#mxdCase") nil))
290+
(should (eq (clojure-test-face-at 2 8 ".mxdCase") nil))
291291
(should (eq (clojure-test-face-at 3 9 "#^mxdCase")
292292
'font-lock-type-face)) ;; type-hint
293-
(should (eq (clojure-test-face-at 2 8 "(mxdCase)") 'default))
293+
(should (eq (clojure-test-face-at 2 8 "(mxdCase)") nil))
294294

295295
(should (eq (clojure-test-face-at 2 8 "(mxdCase/oneword)")
296296
'font-lock-type-face))
297-
(should (eq (clojure-test-face-at 9 10 "(mxdCase/oneword)") 'default))
298-
(should (eq (clojure-test-face-at 11 16 "(mxdCase/oneword)") 'default))
297+
(should (eq (clojure-test-face-at 9 10 "(mxdCase/oneword)") nil))
298+
(should (eq (clojure-test-face-at 11 16 "(mxdCase/oneword)") nil))
299299

300300
(should (eq (clojure-test-face-at 2 8 "(mxdCase/seg.mnt)")
301301
'font-lock-type-face))
302-
(should (eq (clojure-test-face-at 9 10 "(mxdCase/seg.mnt)") 'default))
303-
(should (eq (clojure-test-face-at 11 16 "(mxdCase/seg.mnt)") 'default))
302+
(should (eq (clojure-test-face-at 9 10 "(mxdCase/seg.mnt)") nil))
303+
(should (eq (clojure-test-face-at 11 16 "(mxdCase/seg.mnt)") nil))
304304

305305
(should (eq (clojure-test-face-at 2 8 "(mxdCase/mxdCase)")
306306
'font-lock-type-face))
307-
(should (eq (clojure-test-face-at 9 10 "(mxdCase/mxdCase)") 'default))
308-
(should (eq (clojure-test-face-at 11 16 "(mxdCase/mxdCase)") 'default))
307+
(should (eq (clojure-test-face-at 9 10 "(mxdCase/mxdCase)") nil))
308+
(should (eq (clojure-test-face-at 11 16 "(mxdCase/mxdCase)") nil))
309309

310310
(should (eq (clojure-test-face-at 2 8 "(mxdCase/CmlCase)")
311311
'font-lock-type-face))
312-
(should (eq (clojure-test-face-at 9 10 "(mxdCase/CmlCase)") 'default))
313-
(should (eq (clojure-test-face-at 11 16 "(mxdCase/CmlCase)") 'default))
312+
(should (eq (clojure-test-face-at 9 10 "(mxdCase/CmlCase)") nil))
313+
(should (eq (clojure-test-face-at 11 16 "(mxdCase/CmlCase)") nil))
314314

315315
(should (eq (clojure-test-face-at 2 8 "(mxdCase/ve/yCom|pLex.stu-ff)")
316316
'font-lock-type-face))
317317
(should (eq (clojure-test-face-at 9 10 "(mxdCase/ve/yCom|pLex.stu-ff)")
318-
'default))
318+
nil))
319319
(should (eq (clojure-test-face-at 11 28 "(mxdCase/ve/yCom|pLex.stu-ff)")
320-
'default))
320+
nil))
321321

322322
(should (eq (clojure-test-face-at 2 8 "(mxdCase/.ve/yCom|pLex.stu-ff)")
323323
'font-lock-type-face))
324324
(should (eq (clojure-test-face-at 9 10 "(mxdCase/.ve/yCom|pLex.stu-ff)")
325-
'default))
325+
nil))
326326
(should (eq (clojure-test-face-at 12 29 "(mxdCase/.ve/yCom|pLex.stu-ff)")
327-
'default)))
327+
nil)))
328328

329329
(ert-deftest clojure-mode-syntax-table/verycomplex ()
330330
:tags '(fontification syntax-table)
331331
(should (eq (clojure-test-face-at 3 4 " ve/yCom|pLex.stu-ff")
332332
'font-lock-type-face))
333-
(should (eq (clojure-test-face-at 5 21 " ve/yCom|pLex.stu-ff") 'default))
333+
(should (eq (clojure-test-face-at 5 21 " ve/yCom|pLex.stu-ff") nil))
334334

335-
(should (eq (clojure-test-face-at 2 2 " @ve/yCom|pLex.stu-ff") 'nil))
335+
(should (eq (clojure-test-face-at 2 2 " @ve/yCom|pLex.stu-ff") nil))
336336
(should (eq (clojure-test-face-at 3 4 " @ve/yCom|pLex.stu-ff")
337337
'font-lock-type-face))
338-
(should (eq (clojure-test-face-at 5 21 " @ve/yCom|pLex.stu-ff") 'default))
338+
(should (eq (clojure-test-face-at 5 21 " @ve/yCom|pLex.stu-ff") nil))
339339

340340
(should (eq (clojure-test-face-at 2 4 " #ve/yCom|pLex.stu-ff")
341341
'font-lock-type-face))
342-
(should (eq (clojure-test-face-at 5 21 " #ve/yCom|pLex.stu-ff") 'default))
342+
(should (eq (clojure-test-face-at 5 21 " #ve/yCom|pLex.stu-ff") nil))
343343

344344
(should (eq (clojure-test-face-at 2 4 " .ve/yCom|pLex.stu-ff")
345345
'font-lock-type-face))
346-
(should (eq (clojure-test-face-at 5 21 " .ve/yCom|pLex.stu-ff") 'default))
346+
(should (eq (clojure-test-face-at 5 21 " .ve/yCom|pLex.stu-ff") nil))
347347

348348
;; type-hint
349349
(should (eq (clojure-test-face-at 1 2 "#^ve/yCom|pLex.stu-ff") 'default))
@@ -353,41 +353,41 @@ POS."
353353

354354
(should (eq (clojure-test-face-at 3 4 " (ve/yCom|pLex.stu-ff)")
355355
'font-lock-type-face))
356-
(should (eq (clojure-test-face-at 5 21 " (ve/yCom|pLex.stu-ff)") 'default))
356+
(should (eq (clojure-test-face-at 5 21 " (ve/yCom|pLex.stu-ff)") nil))
357357

358358
(should (eq (clojure-test-face-at 3 4 " (ve/yCom|pLex.stu-ff/oneword)")
359359
'font-lock-type-face))
360360
(should (eq (clojure-test-face-at 5 29 " (ve/yCom|pLex.stu-ff/oneword)")
361-
'default))
361+
nil))
362362

363363
(should (eq (clojure-test-face-at 3 4 " (ve/yCom|pLex.stu-ff/seg.mnt)")
364364
'font-lock-type-face))
365365
(should (eq (clojure-test-face-at 5 29 " (ve/yCom|pLex.stu-ff/seg.mnt)")
366-
'default))
366+
nil))
367367

368368
(should (eq (clojure-test-face-at 3 4 " (ve/yCom|pLex.stu-ff/mxdCase)")
369369
'font-lock-type-face))
370370
(should (eq (clojure-test-face-at 5 29 " (ve/yCom|pLex.stu-ff/mxdCase)")
371-
'default))
371+
nil))
372372

373373
(should (eq (clojure-test-face-at 3 4 " (ve/yCom|pLex.stu-ff/CmlCase)")
374374
'font-lock-type-face))
375375
(should (eq (clojure-test-face-at 5 29 " (ve/yCom|pLex.stu-ff/CmlCase)")
376-
'default))
376+
nil))
377377

378378
(should (eq (clojure-test-face-at
379379
3 4 " (ve/yCom|pLex.stu-ff/ve/yCom|pLex.stu-ff)")
380380
'font-lock-type-face))
381381
(should (eq (clojure-test-face-at
382382
5 41 " (ve/yCom|pLex.stu-ff/ve/yCom|pLex.stu-ff)")
383-
'default))
383+
nil))
384384

385385
(should (eq (clojure-test-face-at
386386
3 4 " (ve/yCom|pLex.stu-ff/.ve/yCom|pLex.stu-ff)")
387387
'font-lock-type-face))
388388
(should (eq (clojure-test-face-at
389389
5 42 " (ve/yCom|pLex.stu-ff/.ve/yCom|pLex.stu-ff)")
390-
'default)))
390+
nil)))
391391

392392
(ert-deftest clojure-mode-syntax-table/kw-oneword ()
393393
:tags '(fontification syntax-table)
@@ -701,12 +701,12 @@ POS."
701701
:tags '(fontification syntax-table)
702702
(clojure-test-with-temp-buffer "(_c4/defconstrainedfn bar [] nil)"
703703
(should (eq (clojure-test-face-at 2 4) 'font-lock-type-face))
704-
(should (eq (clojure-test-face-at 5 5) 'default))
704+
(should (eq (clojure-test-face-at 5 5) nil))
705705
(should (eq (clojure-test-face-at 6 18) 'font-lock-keyword-face))
706706
(should (eq (clojure-test-face-at 23 25) 'font-lock-function-name-face)))
707707
(clojure-test-with-temp-buffer "(clo/defbar foo nil)"
708708
(should (eq (clojure-test-face-at 2 4) 'font-lock-type-face))
709-
(should (eq (clojure-test-face-at 5 5) 'default))
709+
(should (eq (clojure-test-face-at 5 5) nil))
710710
(should (eq (clojure-test-face-at 6 11) 'font-lock-keyword-face))
711711
(should (eq (clojure-test-face-at 13 15) 'font-lock-function-name-face))))
712712

0 commit comments

Comments
 (0)