FIXED: only consider backslash as an escape inside strings

diff --git a/sweeprolog.el b/sweeprolog.el
index 060c8ea747583d1b3c2e906e79447bd878fb7086..a4dd6dd05d3a745fb9ba48b3559808bcaa3e4718 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -80,6 +80,7 @@ Prolog token as returned from `sweeprolog-last-token-boundaries'.")
     (modify-syntax-entry ?~ "." table)
     (modify-syntax-entry ?_ "_" table)
     (modify-syntax-entry ?| "." table)
+    (modify-syntax-entry ?\\ "\\" table)
     (modify-syntax-entry ?\' "\"" table)
     (modify-syntax-entry ?` "\"" table)
     (modify-syntax-entry ?% "<" table)
@@ -1993,10 +1994,13 @@ modified."
   (let ((case-fold-search nil))
     (funcall
      (syntax-propertize-rules
+      ((rx (group-n 1 "\\") anychar)
+       (1 (unless (save-excursion (nth 8 (syntax-ppss (match-beginning 0))))
+            (string-to-syntax "."))))
       ((rx bow (group-n 1 "0'" anychar))
        (1 (unless (save-excursion (nth 8 (syntax-ppss (match-beginning 0))))
             (string-to-syntax "w"))))
-      ((rx bow (group-n 1 "!") eow)
+      ((rx bow (group-n 1 "!"))
        (1 (unless (save-excursion (nth 8 (syntax-ppss (match-beginning 0))))
             (string-to-syntax "w")))))
      start end)))