From f3a719de4c853dcc91c813a24f56951fecb3e78f Mon Sep 17 00:00:00 2001 From: Gracjan Polak Date: Mon, 30 Mar 2015 23:57:03 +0200 Subject: [PATCH] Stop overreacting when seeing three backslashes. --- haskell-font-lock.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/haskell-font-lock.el b/haskell-font-lock.el index b6c6a47e5..b49a43db2 100644 --- a/haskell-font-lock.el +++ b/haskell-font-lock.el @@ -385,8 +385,8 @@ that should be commented under LaTeX-style literate scripts." ;; This still gets fooled with "'"'"'"'"'"', but ... oh well. ("\\Sw\\('\\)\\([^\\'\n]\\|\\\\.[^\\'\n \"}]*\\)\\('\\)" (1 "|") (3 "|")) ;; Deal with instances of `--' which don't form a comment - ("[!#$%&*+./:<=>?@^|~\\-]\\{3,\\}" (0 (cond ((numberp (nth 4 (syntax-ppss))) - ;; There are no such instances inside nestable comments + ("[!#$%&*+./:<=>?@^|~\\-]\\{3,\\}" (0 (cond ((or (nth 3 (syntax-ppss)) (numberp (nth 4 (syntax-ppss)))) + ;; There are no such instances inside nestable comments or strings nil) ((string-match "\\`-*\\'" (match-string 0)) ;; Sequence of hyphens. Do nothing in