Use font-lock-comment-delimiter-face for "--" in interactive popups

Fixes #1741
haskell · Apr 15, 2021 · d771202 · d771202
1 parent 426e28b
commit d771202
Showing 1 changed file with 8 additions and 7 deletions.
diff --git a/haskell-interactive-mode.el b/haskell-interactive-mode.el
@@ -645,7 +645,7 @@ wrapped in compiler directive at the top of FILE."
   (haskell-interactive-mode-prompt))
 
 (defun haskell-interactive-popup-error (response)
-  "Popup an error."
+  "Pop up an error."
   (if haskell-interactive-popup-errors
       (let ((buf (get-buffer-create "*HS-Error*")))
         (pop-to-buffer buf nil t)
@@ -659,12 +659,13 @@ wrapped in compiler directive at the top of FILE."
                                 'haskell-interactive-face-compile-error))
             (goto-char (point-min))
             (delete-blank-lines)
-            (insert (propertize "-- Hit `q' to close this window.\n\n"
-                                'font-lock-face 'font-lock-comment-face))
-            (save-excursion
-              (goto-char (point-max))
-              (insert (propertize "\n-- To disable popups, customize `haskell-interactive-popup-errors'.\n\n"
-                                  'font-lock-face 'font-lock-comment-face))))))
+            (let ((start-comment (propertize "-- " 'font-lock-face 'font-lock-comment-delimiter-face)))
+              (insert start-comment (propertize "Hit `q' to close this window.\n\n" 'font-lock-face 'font-lock-comment-face))
+              (save-excursion
+                (goto-char (point-max))
+                (insert "\n" start-comment
+                        (propertize "To disable popups, customize `haskell-interactive-popup-errors'.\n\n"
+                                    'font-lock-face 'font-lock-comment-face)))))))
     (haskell-interactive-mode-insert-error response)))
 
 (defun haskell-interactive-next-error-function (&optional n reset)