@@ -841,15 +841,20 @@ any number of matches of `clojure--sym-forbidden-rest-chars'."))
841
841
(,(concat
842
842
" (\\ (?:clojure.core/\\ )?"
843
843
(regexp-opt
844
- '(" letfn" " case" " cond" " cond->" " cond->>" " condp"
845
- " for" " when" " when-not" " when-let" " when-first" " when-some"
846
- " if-let" " if-not" " if-some"
847
- " .." " ->" " ->>" " as->" " doto" " and" " or"
848
- " dosync" " doseq" " dotimes" " dorun" " doall"
849
- " ns" " in-ns"
850
- " with-open" " with-local-vars" " binding"
851
- " with-redefs" " with-redefs-fn"
852
- " declare" ) t )
844
+ '(" ->" " ->>" " .." " amap" " and" " areduce" " as->" " assert" " binding"
845
+ " bound-fn" " case" " comment" " cond" " cond->" " cond->>" " condp"
846
+ " declare" " definline" " definterface" " defmethod" " defmulti" " defn-"
847
+ " defonce" " defprotocol" " defrecord" " defstruct" " deftype" " delay"
848
+ " doall" " dorun" " doseq" " dosync" " dotimes" " doto" " extend-protocol"
849
+ " extend-type" " fn" " for" " future" " gen-class" " gen-interface"
850
+ " if-let" " if-not" " if-some" " import" " in-ns" " io!" " lazy-cat"
851
+ " lazy-seq" " let" " letfn" " locking" " loop" " memfn" " ns" " or" " proxy"
852
+ " proxy-super" " pvalues" " refer-clojure" " reify" " some->" " some->>"
853
+ " sync" " time" " vswap!" " when" " when-first" " when-let" " when-not"
854
+ " when-some" " while" " with-bindings" " with-in-str"
855
+ " with-loading-context" " with-local-vars" " with-open" " with-out-str"
856
+ " with-precision" " with-redefs" " with-redefs-fn" )
857
+ t )
853
858
" \\ >" )
854
859
1 font-lock-keyword-face )
855
860
; ; Macros similar to let, when, and while
0 commit comments