Merge pull request #1740 from goose121/master

Use "!" class for literate comments instead of "<" (fixes #1594)
haskell · Apr 7, 2021 · 426e28b · 426e28b
2 parents 1baa12a + 4ea8774
commit 426e28b
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 5 deletions.
diff --git a/haskell-font-lock.el b/haskell-font-lock.el
@@ -586,10 +586,10 @@ on an uppercase identifier."
               (goto-char (1+ (point)))))))
       ;; must return nil here so that it is not fontified again as string
       nil))
-   ;; Detect literate comment lines starting with syntax class '<'
+   ;; Detect literate comment lines starting with syntax class '!'
    ((save-excursion
       (goto-char (nth 8 state))
-      (equal (string-to-syntax "<") (syntax-after (point))))
+      (equal (string-to-syntax "!") (syntax-after (point))))
     'haskell-literate-comment-face)
    ;; Detect pragmas. A pragma is enclosed in special comment
    ;; delimiters {-# .. #-}.

diff --git a/haskell-lexeme.el b/haskell-lexeme.el
@@ -475,7 +475,7 @@ See `haskell-lexeme-classify-by-first-char' for details."
        (point (point-marker)))
     (or
      (and
-      (equal (string-to-syntax "<")
+      (equal (string-to-syntax "!")
              (get-char-property (point) 'syntax-table))
       (progn
         (set-match-data (list point (set-marker (make-marker) (line-end-position))))

diff --git a/haskell-mode.el b/haskell-mode.el
@@ -505,14 +505,18 @@ be set to the preferred literate style."
                    (or
                     (and
                      (not (equal (string-to-syntax "<") (syntax-after (point))))
+                     (not (equal (string-to-syntax "!") (syntax-after (point))))
                      (not (looking-at-p "^>")))
                     (looking-at-p "^\\\\begin{code}[\t ]*$")))))))
         (while (< (point) end)
           (unless (looking-at-p "^[\t ]*$")
             (if previous-line-latex-code
                 (if (looking-at-p "^\\\\end{code}[\t ]*$")
                     (progn
-                      (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax "<"))
+                      (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax "!"))
+                      (save-excursion
+                       (end-of-line)
+                       (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax "!")))
                       (setq previous-line-latex-code nil))
                   ;; continue latex-code
                   )
@@ -521,7 +525,10 @@ be set to the preferred literate style."
                   (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax "-"))
                 ;; this is a literate comment
                 (progn
-                  (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax "<"))
+                  (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax "!"))
+                  (save-excursion
+                   (end-of-line)
+                   (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax "!")))
                   (when (looking-at-p "^\\\\begin{code}[\t ]*$")
                     (setq previous-line-latex-code t))))))
           (forward-line 1))))