From 6ddf4726b6033ef0d61b3e235d6f26d8564f2492 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Mon, 17 Aug 2009 14:17:36 +0000
Subject: isar-syntactic-context: tweak (still not perfect, loses between "--"
 and string start)

---
 isar/isar-syntax.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/isar/isar-syntax.el b/isar/isar-syntax.el
index e13676da..0bc279f3 100644
--- a/isar/isar-syntax.el
+++ b/isar/isar-syntax.el
@@ -253,8 +253,10 @@ matches contents of quotes for quoted identifiers.")
     (or (if (eq sc 'string)
 	    (save-excursion
 	      (save-match-data
-		(and (re-search-backward isar-string-start-regexp nil t)
-		     (re-search-backward "--" nil t)
+		(and (or (looking-at isar-string-start-regexp)
+			 (re-search-backward isar-string-start-regexp nil t))
+		     (skip-chars-backward " \t\n-")
+		     (looking-at "[ \t\n]*--")
 		     'comment))))
       sc)))
 	  
-- 
cgit v1.2.3