[elpa] master f88e21c 29/79: Ignore escaped characters.

[Jackson Ray Hamilton]

branch: master
commit f88e21c28038ccbe46c8e87446a78da53b6c515b
Author: Jackson Ray Hamilton <address@hidden>
Commit: Jackson Ray Hamilton <address@hidden>

    Ignore escaped characters.
---
 context-coloring.el |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/context-coloring.el b/context-coloring.el
index 9b53fd1..61f5a31 100644
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -668,7 +668,7 @@ provide visually \"instant\" updates at 60 frames per 
second.")
 (defun context-coloring-elisp-colorize-comments-and-strings-in-region (start 
end)
   (let (syntax-code)
     (goto-char start)
-    (while (> end (progn (skip-syntax-forward "^<\"" end)
+    (while (> end (progn (skip-syntax-forward "^<\"\\" end)
                          (point)))
       (setq syntax-code (context-coloring-get-syntax-code))
       (cond
@@ -676,13 +676,15 @@ provide visually \"instant\" updates at 60 frames per 
second.")
         (context-coloring-elisp-colorize-comment))
        ((= syntax-code context-coloring-STRING-QUOTE-CODE)
         (context-coloring-elisp-colorize-string))
+       ((= syntax-code context-coloring-ESCAPE-CODE)
+        (forward-char 2))
        (t
         (forward-char))))))
 
 (defun context-coloring-elisp-colorize-region (start end)
   (let (syntax-code)
     (goto-char start)
-    (while (> end (progn (skip-syntax-forward "^()w_'<\"" end)
+    (while (> end (progn (skip-syntax-forward "^()w_'<\"\\" end)
                          (point)))
       (setq syntax-code (context-coloring-get-syntax-code))
       (cond
@@ -695,6 +697,8 @@ provide visually \"instant\" updates at 60 frames per 
second.")
         (context-coloring-elisp-colorize-comment))
        ((= syntax-code context-coloring-STRING-QUOTE-CODE)
         (context-coloring-elisp-colorize-string))
+       ((= syntax-code context-coloring-ESCAPE-CODE)
+        (forward-char 2))
        (t
         (forward-char))))))