Merge pull request #253 from syohex/highlight-atom

Fix Highlight atom issue(atom contains '!', '?', '@')

Author: tonini

elixir-mode.el

@@ -127,7 +127,7 @@
                     (or
                      (and
                       (any "a-z" "A-Z" "_" "\"" "'")
-                      (zero-or-more (any "a-z" "A-Z" "0-9" "_" "\"" "'")))
+                      (zero-or-more (any "a-z" "A-Z" "0-9" "_" "\"" "'" "!" "@" "?")))
                      (and "\"" (one-or-more (not (any "\""))) "\"")
                      (and "'" (one-or-more (not (any "'"))) "'"))))
       (builtin . ,(rx (or line-start (not (any ".")))

test/elixir-mode-font-test.el

@@ -174,6 +174,9 @@ true
 false
 nil
 true_false_nil
+:insert!
+:insert@
+:insert?
 "
     (should (eq (elixir-test-face-at 3) 'elixir-atom-face))
     (should (eq (elixir-test-face-at 5) 'elixir-atom-face))
@@ -185,7 +188,10 @@ true_false_nil
     (should (eq (elixir-test-face-at 43) 'elixir-atom-face))
     (should (eq (elixir-test-face-at 48) 'elixir-atom-face))
     (should (eq (elixir-test-face-at 54) 'elixir-atom-face))
-    (should-not (eq (elixir-test-face-at 57) 'elixir-atom-face))))
+    (should-not (eq (elixir-test-face-at 57) 'elixir-atom-face))
+    (should (eq (elixir-test-face-at 74) 'elixir-atom-face))
+    (should (eq (elixir-test-face-at 82) 'elixir-atom-face))
+    (should (eq (elixir-test-face-at 97) 'elixir-atom-face))))
 
 (ert-deftest elixir-mode-syntax-table/fontify-map-keys ()
   :tags '(fontification map syntax-table)