diff --git a/CHANGELOG.md b/CHANGELOG.md index fbeb7d19..08c4d7fe 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -20,6 +20,7 @@ * New interactive command `clojure-cycle-when`. * New interactive command `clojure-cycle-not`. * New defcustom `clojure-comment-regexp` for font-locking `#_` or `#_` AND `(comment)` sexps. +* [#459](https://github.com/clojure-emacs/clojure-mode/issues/459): Add font lock for new vars in clojure-1.9 ## 5.6.1 (2016-12-21) diff --git a/clojure-mode-extra-font-locking.el b/clojure-mode-extra-font-locking.el index b8af6acb..80c8d2b9 100644 --- a/clojure-mode-extra-font-locking.el +++ b/clojure-mode-extra-font-locking.el @@ -40,16 +40,16 @@ "accessor" "aclone" "agent" "agent-errors" "aget" "alength" "alias" "all-ns" "alter" "alter-meta!" "alter-var-root" "amap" - "ancestors" "apply" "areduce" "array-map" "as->" + "ancestors" "any?" "apply" "areduce" "array-map" "as->" "aset" "aset-boolean" "aset-byte" "aset-char" "aset-double" "aset-float" "aset-int" "aset-long" "aset-short" "assert" "assoc" "assoc!" "assoc-in" "associative?" "atom" "await" "await-for" "await1" "bases" "bean" "bigdec" "bigint" "bit-and" "bit-and-not" "bit-clear" "bit-flip" "bit-not" "bit-or" "bit-set" - "bit-shift-left" "bit-shift-right" "bit-test" "bit-xor" "boolean" - "boolean-array" "booleans" "bound-fn" "bound-fn*" "bound?" "butlast" - "byte" "byte-array" "bytes" "cast" "char" + "bit-shift-left" "bit-shift-right" "bit-test" "bit-xor" "boolean" "boolean?" + "boolean-array" "booleans" "bounded-count" "bound-fn" "bound-fn*" + "bound?" "butlast" "byte" "byte-array" "bytes" "bytes?" "cast" "char" "char-array" "char-escape-string" "char-name-string" "char?" "chars" "chunk" "chunk-append" "chunk-buffer" "chunk-cons" "chunk-first" "chunk-next" "chunk-rest" "chunked-seq?" "class" "class?" @@ -62,7 +62,7 @@ "derive" "descendants" "destructure" "disj" "disj!" "dissoc" "dissoc!" "distinct" "distinct?" "doc" - "double" "double-array" "doubles" "drop" + "double" "double?" "double-array" "doubles" "drop" "drop-last" "drop-while" "empty" "empty?" "ensure" "enumeration-seq" "error-handler" "error-mode" "eval" "even?" "every?" "every-pred" "extend" "extend-protocol" "extend-type" "extends?" @@ -74,9 +74,9 @@ "future-call" "future-cancel" "future-cancelled?" "future-done?" "future?" "gen-interface" "gensym" "get" "get-in" "get-method" "get-proxy-class" "get-thread-bindings" "get-validator" - "group-by" "hash" "hash-map" "hash-ordered-coll" "hash-set" - "hash-unordered-coll" "identical?" "identity" "ifn?" "inc" - "init-proxy" "instance?" "int" "int-array" "integer?" + "group-by" "halt-when?" "hash" "hash-map" "hash-ordered-coll" "hash-set" + "hash-unordered-coll" "ident?" "identical?" "identity" "indexed?" "ifn?" "inc" + "init-proxy" "instance?" "inst-ms" "inst?" "int" "int?" "int-array" "integer?" "interleave" "intern" "interpose" "into" "into-array" "ints" "io!" "isa?" "iterate" "iterator-seq" "juxt" "keep" "keep-indexed" "key" "keys" "keyword" "keyword?" @@ -88,6 +88,7 @@ "map-indexed" "mapcat" "max" "max-key" "memfn" "memoize" "merge" "merge-with" "meta" "method-sig" "methods" "min" "min-key" "mix-collection-hash" "mod" "name" "namespace" + "nat-int?" "neg-int?" "neg?" "newline" "next" "nfirst" "nil?" "nnext" "not" "not-any?" "not-empty" "not-every?" "not=" "ns-aliases" "ns-imports" "ns-interns" @@ -95,13 +96,14 @@ "ns-unalias" "ns-unmap" "nth" "nthnext" "nthrest" "num" "number?" "numerator" "object-array" "odd?" "parents" "partial" "partition" "partition-all" "partition-by" "pcalls" "peek" "persistent!" - "pmap" "pop" "pop!" "pop-thread-bindings" "pos?" "pr" + "pmap" "pop" "pop!" "pop-thread-bindings" "pos?" "pos-int?" "pr" "pr-str" "prefer-method" "prefers" "primitives-classnames" "print" "print-ctor" "print-doc" "print-dup" "print-method" "print-namespace-doc" "print-simple" "print-special-doc" "print-str" "printf" "println" "println-str" "prn" "prn-str" "promise" "proxy" "proxy-call-with-super" "proxy-mappings" "proxy-name" "proxy-super" - "push-thread-bindings" "pvalues" "quot" "rand" "rand-int" "rand-nth" "range" + "push-thread-bindings" "pvalues" "qualified-ident?" "qualified-keyword?" + "qualified-symbol?" "quot" "rand" "rand-int" "rand-nth" "range" "ratio?" "rational?" "rationalize" "re-find" "re-groups" "re-matcher" "re-matches" "re-pattern" "re-seq" "read" "read-line" "read-string" "realized?" "record?" "reduce" "reduce-kv" @@ -110,19 +112,20 @@ "release-pending-sends" "rem" "remove" "remove-all-methods" "remove-method" "remove-ns" "remove-watch" "repeat" "repeatedly" "replace" "replicate" - "require" "restart-agent" "reset!" "reset-meta!" "resolve" "rest" + "require" "restart-agent" "reset!" "reset-meta!" "reset-vals!" "resolve" "rest" "resultset-seq" "reverse" "reversible?" "rseq" "rsubseq" "satisfies?" "second" "select-keys" "send" "send-off" "send-via" "seq" - "seq?" "seque" "sequence" "sequential?" "set" + "seq?" "seqable?" "seque" "sequence" "sequential?" "set" "set-agent-send-executor!" "set-agent-send-off-executor!" "set-error-handler!" "set-error-mode!" "set-validator!" "set?" "short" "short-array" "shorts" "shuffle" - "shutdown-agents" "slurp" "some" "some->" "some->>" "some-fn" "some?" + "shutdown-agents" "simple-indent?" "simple-keyword?" "simple-symbol?" + "slurp" "some" "some->" "some->>" "some-fn" "some?" "sort" "sort-by" "sorted-map" "sorted-map-by" "sorted-set" "sorted-set-by" "sorted?" "special-form-anchor" "special-symbol?" "specify" "specify!" "spit" "split-at" "split-with" "str" "stream?" "string?" "struct" "struct-map" "subs" - "subseq" "subvec" "supers" "swap!" "symbol" + "subseq" "subvec" "supers" "swap!" "swap-vals!" "symbol" "symbol?" "sync" "syntax-symbol-anchor" "take" "take-last" "take-nth" "take-while" "test" "the-ns" "thread-bound?" "time" "to-array" "to-array-2d" "trampoline" "transient" "tree-seq" @@ -134,7 +137,8 @@ "unchecked-remainder" "unchecked-remainder-int" "unchecked-short" "unchecked-subtract-int" "unchecked-subtract" "underive" "unsigned-bit-shift-right" "unquote" "unquote-splicing" - "update" "update-in" "update-proxy" "use" "val" "vals" "var-get" "var-set" + "update" "update-in" "update-proxy" "uri?" "use" "uuid?" "val" "vals" + "var-get" "var-set" "var?" "vary-meta" "vec" "vector" "vector?" "vector-of" "while" "with-bindings" "with-bindings*" "with-in-str" "with-loading-context" "with-meta" "with-out-str" "with-precision"