Use syntax-ppss to detect when in a string or comment

Author: purcell

haskell-collapse.el

@@ -29,7 +29,7 @@
   (let ((break nil))
     (while (and (not break)
                 (search-backward-regexp "[[({]" beg t 1))
-      (unless (eq (get-text-property (point) 'face) 'font-lock-string-face)
+      (unless (elt (syntax-ppss) 3)
         (let ((orig (point)))
           (haskell-collapse-sexp)
           (goto-char orig)

haskell-decl-scan.el

@@ -258,8 +258,7 @@ then point does not move if already at the start of a declaration."
                      ;; here seems to be the only addition to make this
                      ;; module support LaTeX-style literate scripts.
                      (if (and (looking-at start-decl-re)
-                              (not (eq (get-text-property (point) 'face)
-                                       'font-lock-comment-face)))
+                              (not (elt (syntax-ppss) 4)))
                          (match-beginning 1)))))
         (if (and start
                  ;; This complicated boolean determines whether we

haskell-font-lock.el

@@ -236,9 +236,7 @@ Regexp match data 0 points to the chars."
          sym-data)
     (if (or (memq (char-syntax (or (char-before start) ?\ )) syntaxes)
             (memq (char-syntax (or (char-after end) ?\ )) syntaxes)
-            (memq (get-text-property start 'face)
-                  '(font-lock-doc-face font-lock-string-face
-                                       font-lock-comment-face))
+            (or (elt (syntax-ppss) 3) (elt (syntax-ppss) 4))
             (and (consp (setq sym-data (cdr (assoc (match-string 0) alist))))
                  (let ((pred (cadr sym-data)))
                    (setq sym-data (car sym-data))