Add some missing functions for font lock

Author: m00nlight

clojure-mode-extra-font-locking.el

@@ -58,23 +58,24 @@
     "complement" "concat" "conj"
     "conj!" "cons" "constantly" "construct-proxy" "contains?"
     "count" "counted?" "create-ns" "create-struct" "cycle"
-    "dec" "decimal?" "delay" "delay?" "deliver" "deref"
+    "dec" "decimal?" "delay" "delay?" "deliver" "denominator" "deref"
     "derive" "descendants" "destructure" "disj" "disj!"
     "dissoc" "dissoc!" "distinct" "distinct?"
     "doc"
     "double" "double-array" "doubles" "drop"
-    "drop-last" "drop-while" "empty" "empty?" "ensure"
-    "enumeration-seq" "eval" "even?" "every?"
-    "extend" "extend-protocol" "extend-type" "extends?" "extenders" "ex-info" "ex-data"
+    "drop-last" "drop-while" "empty" "empty?" "ensure" 
+    "enumeration-seq" "error-handler" "error-mode" "eval" "even?" "every?"
+    "every-pred" "extend" "extend-protocol" "extend-type" "extends?"
+    "extenders" "ex-info" "ex-data"
     "false?" "ffirst" "file-seq" "filter" "filterv" "find" "find-doc"
-    "find-ns" "find-var" "first" "flatten" "float" "float-array"
+    "find-ns" "find-keyword" "find-var" "first" "flatten" "float" "float-array"
     "float?" "floats" "flush" "fn?"
     "fnext" "force" "format" "frequencies" "future"
     "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-set" "identical?" "identity"
-    "ifn?" "inc"
+    "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?"
     "interleave" "intern" "interpose" "into" "into-array"
     "ints" "io!" "isa?" "iterate" "iterator-seq"
@@ -91,42 +92,50 @@
     "nnext" "not" "not-any?" "not-empty" "not-every?"
     "not=" "ns-aliases" "ns-imports" "ns-interns"
     "ns-map" "ns-name" "ns-publics" "ns-refers" "ns-resolve"
-    "ns-unalias" "ns-unmap" "nth" "nthnext" "num"
-    "number?" "odd?" "parents" "partial"
-    "partition" "partition-all" "partition-by" "pcalls" "peek" "persistent!" "pmap"
-    "pop" "pop!" "pop-thread-bindings" "pos?" "pr"
+    "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"
     "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" "range"
+    "proxy-call-with-super" "proxy-mappings" "proxy-name" "proxy-super"
+    "push-thread-bindings" "pvalues" "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" "reify" "reduce" "reduce-kv" "ref" "ref-history-count"
+    "read-line" "read-string" "realized?" "record?" "reduce" "reduce-kv"
+    "reduced" "reduced?" "reductions" "reify" "ref" "ref-history-count"
     "ref-max-history" "ref-min-history" "ref-set" "refer-clojure"
-    "release-pending-sends" "rem" "remove" "remove-method" "remove-ns"
+    "release-pending-sends" "rem" "remove" "remove-all-methods"
+    "remove-method" "remove-ns" "remove-watch"
     "repeat" "repeatedly" "replace" "replicate"
-    "require" "reset!" "reset-meta!" "resolve" "rest"
+    "require" "restart-agent" "reset!" "reset-meta!" "resolve" "rest"
     "resultset-seq" "reverse" "reversible?" "rseq" "rsubseq"
     "satisfies?" "second" "select-keys" "send" "send-off" "send-via" "seq"
     "seq?" "seque" "sequence" "sequential?" "set"
     "set-agent-send-executor!" "set-agent-send-off-executor!"
-    "set-validator!" "set?" "short" "short-array" "shorts"
-    "shutdown-agents" "slurp" "some" "some->" "some->>" "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"
+    "set-error-handler!" "set-error-mode!" "set-validator!" "set?" "short"
+    "short-array" "shorts" "shuffle"
+    "shutdown-agents" "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"
     "symbol?" "sync" "syntax-symbol-anchor" "take" "take-last"
-    "take-nth" "take-while" "test" "the-ns" "time"
+    "take-nth" "take-while" "test" "the-ns" "thread-bound?" "time"
     "to-array" "to-array-2d" "trampoline" "transient" "tree-seq"
-    "true?" "type" "unchecked-add" "unchecked-dec" "unchecked-divide"
-    "unchecked-inc" "unchecked-multiply" "unchecked-negate" "unchecked-remainder" "unchecked-subtract"
-    "underive" "unsigned-bit-shift-right" "unquote" "unquote-splicing" "update-in" "update-proxy"
-    "use" "val" "vals" "var-get" "var-set"
-    "var?" "vary-meta" "vec" "vector" "vector?"
-    "while"
+    "true?" "type" "unchecked-add" "unchecked-add-int" "unchecked-byte"
+    "unchecked-char" "unchecked-dec" "unchecked-dec-int" "unchecked-divide"
+    "unchecked-divide-int" "unchecked-double" "unchecked-float" 
+    "unchecked-inc" "unchecked-inc-int" "unchecked-long" "unchecked-multiply"
+    "unchecked-multiply-int" "unchecked-negate" "unchecked-negate-int"
+    "unchecked-remainder" "unchecked-remainder-int" "unchecked-short"
+    "unchecked-subtract-int" "unchecked-subtract"
+    "underive" "unsigned-bit-shift-right" "unquote" "unquote-splicing"
+    "update-in" "update-proxy" "use" "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"
     "with-redefs" "with-redefs-fn" "xml-seq" "zero?" "zipmap"
@@ -140,19 +149,22 @@
     "difference" "index" "intersection" "join" "map-invert"
     "project" "rename" "rename-keys" "select" "union"
     ;; clojure.stacktrace
-    "e" "print-cause-trace" "print-stack-trace" "print-throwable" "print-trace-element"
+    "e" "print-cause-trace" "print-stack-trace" "print-throwable"
+    "print-trace-element"
     ;; clojure.template
     "do-template" "apply-template"
     ;; clojure.test
     "are" "assert-any" "assert-expr"
     "assert-predicate" "compose-fixtures" "deftest" "deftest-" "file-position"
-    "function?" "get-possibly-unbound-var" "inc-report-counter" "is" "join-fixtures"
-    "report" "run-all-tests" "run-tests" "set-test" "successful?"
-    "test-all-vars" "test-ns" "test-var" "test-vars" "testing" "testing-contexts-str"
-    "testing-vars-str" "try-expr" "use-fixtures" "with-test" "with-test-out"
+    "function?" "get-possibly-unbound-var" "inc-report-counter" "is"
+    "join-fixtures" "report" "run-all-tests" "run-tests" "set-test"
+    "successful?" "test-all-vars" "test-ns" "test-var" "test-vars" "testing"
+    "testing-contexts-str" "testing-vars-str" "try-expr" "use-fixtures"
+    "with-test" "with-test-out"
     ;; clojure.walk
-    "keywordize-keys" "macroexpand-all" "postwalk" "postwalk-demo" "postwalk-replace"
-    "prewalk" "prewalk-demo" "prewalk-replace" "stringify-keys" "walk"
+    "keywordize-keys" "macroexpand-all" "postwalk" "postwalk-demo"
+    "postwalk-replace" "prewalk" "prewalk-demo" "prewalk-replace"
+    "stringify-keys" "walk"
     ;; clojure.xml
     "attrs"
     "content" "content-handler" "element" "emit" "emit-element"
@@ -166,8 +178,8 @@
 
 (defvar clojure-built-in-dynamic-vars
   '(;; clojure.test
-    "*initial-report-counters*" "*load-tests*" "*report-counters*" "*stack-trace-depth*" "*test-out*"
-    "*testing-contexts*" "*testing-vars*"
+    "*initial-report-counters*" "*load-tests*" "*report-counters*"
+    "*stack-trace-depth*" "*test-out*" "*testing-contexts*" "*testing-vars*"
     ;; clojure.xml
     "*current*" "*sb*" "*stack*" "*state*"
     ))

clojure-mode.el

@@ -616,7 +616,6 @@ point) to check."
 (put 'definline 'clojure-doc-string-elt 2)
 (put 'defprotocol 'clojure-doc-string-elt 2)
 
-
 
 (defun clojure-indent-line ()
   "Indent current line as Clojure code."