From d515da4d2ab78511b0331c45daa5fadaba363a1a Mon Sep 17 00:00:00 2001 From: Czipperz Date: Thu, 3 Nov 2016 16:48:04 -0700 Subject: [PATCH] Recognize documentation comments as comments --- haskell-decl-scan.el | 5 +++-- tests/haskell-decl-scan-tests.el | 3 ++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/haskell-decl-scan.el b/haskell-decl-scan.el index 312c33d51..51fffad43 100644 --- a/haskell-decl-scan.el +++ b/haskell-decl-scan.el @@ -372,8 +372,9 @@ there." (setf fontfaces (list fontfaces))) (delq nil (mapcar #'(lambda (f) - (or (eq f 'font-lock-comment-face) - (eq f 'font-lock-comment-delimiter-face))) + (member f '(font-lock-comment-face + font-lock-doc-face + font-lock-comment-delimiter-face))) fontfaces)))) t nil)) diff --git a/tests/haskell-decl-scan-tests.el b/tests/haskell-decl-scan-tests.el index 64fa6ca64..8c32d1a08 100644 --- a/tests/haskell-decl-scan-tests.el +++ b/tests/haskell-decl-scan-tests.el @@ -35,7 +35,8 @@ "All lines in this buffer should count as comments" (with-temp-buffer (haskell-mode) - (insert-lines "" "--hi" " -- hi\t " "" "{-hi-}" " \t{-hi-} ") + (insert-lines "" "--hi" " -- hi\t " "" "{-hi-}" " \t{-hi-} " + "-- | hi" "{-| hi -}") (font-lock-fontify-buffer) (goto-char (point-min))