Fontify character literals as strings.

Since we're using a syntax property function, we can attempt to be
smarter about parser state. I'd like to extend this to sigil
expressions, also (which I suspect might be a possible way to fix
#23).

Author: antifuchs

elixir-smie.el

@@ -36,25 +36,27 @@
   (save-excursion
     (goto-char start)
     ;; The ? character on its own is supposed to escape whatever comes
-    ;; after it (including any escaped chars. Examples: ?\# and ?#.
+    ;; after it (including any escaped chars. Examples: ?\# and ?".
     (while (search-forward "?" end t)
-      (unless (or (= (char-syntax (char-before (- (point) 1))) ?w)
-                  (= (char-syntax (char-before (- (point) 1))) ?_))
-        (put-text-property (1- (point))
-                           (point)
-                           'syntax-table
-                           '(?|))
-        (when (= (char-after) ?\\)
+      (let ((start (1- (point))))
+        (unless (or (= (char-syntax (char-before (- (point) 1))) ?w)
+                    (= (char-syntax (char-before (- (point) 1))) ?_))
+          (put-text-property (1- (point))
+                             (point)
+                             'syntax-table
+                             '(?|))
+          (when (= (char-after) ?\\)
+            (forward-char)
+            (put-text-property (1- (point))
+                               (point)
+                               'syntax-table
+                               '(?\s)))
           (forward-char)
           (put-text-property (1- (point))
                              (point)
                              'syntax-table
-                             '(?\s)))
-        (forward-char)
-        (put-text-property (1- (point))
-                           (point)
-                           'syntax-table
-                           '(?|))))))
+                             '(?|))
+          (put-text-property start (point) 'font-lock-face 'font-lock-string-face))))))
 
 (defmacro elixir-smie-debug (message &rest format-args)
   `(progn