[nongnu] elpa/symbol-overlay 291dd270e3 142/152: Merge pull request #71 from mpenet/feat/add-clojure-kw-list

[ELPA Syncer]

branch: elpa/symbol-overlay
commit 291dd270e3d3ce40139d44da3cb7b71e44fe9e9b
Merge: 39f772b531 2e79aaeae3
Author: Steve Purcell <steve@sanityinc.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #71 from mpenet/feat/add-clojure-kw-list
    
    add symbol-overlay-ignore-function-clojure
---
 symbol-overlay.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index 28f7753364..09723c5849 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -166,7 +166,8 @@
     (c++-mode . symbol-overlay-ignore-function-c++)
     (python-mode . symbol-overlay-ignore-function-python)
     (java-mode . symbol-overlay-ignore-function-java)
-    (go-mode . symbol-overlay-ignore-function-go))
+    (go-mode . symbol-overlay-ignore-function-go)
+    (clojure-mode . symbol-overlay-ignore-function-clojure))
   "Functions to determine whether a symbol should be ignored.
 
 This is an association list that maps a MAJOR-MODE symbol to a
@@ -537,6 +538,14 @@ BEG, END and LEN are the beginning, end and length of 
changed text."
      "class"    "finally"   "long"       "strictfp"  "volatile"
      "const*"   "float"     "native"     "super"     "while")))
 
+(defvar clojure-font-lock-extra-keywords)
+(defun symbol-overlay-ignore-function-clojure (symbol)
+  "Determine whether SYMBOL should be ignored (clojure)."
+  (symbol-overlay-match-keyword-list
+   symbol
+   (append clojure-font-lock-extra-keywords
+           '("defn" "def" "let" "deftest" "is"))))
+
 ;;; Commands
 
 ;;;###autoload