diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2009-08-17 14:17:36 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2009-08-17 14:17:36 +0000 |
| commit | 6ddf4726b6033ef0d61b3e235d6f26d8564f2492 (patch) | |
| tree | 63949869cde2a6e81332874c90294e28eec96b2e /isar/isar-syntax.el | |
| parent | 0dadac1886007267fdbcbc5a4a5df4fdd8645862 (diff) | |
isar-syntactic-context: tweak (still not perfect, loses between "--" and string start)
Diffstat (limited to 'isar/isar-syntax.el')
| -rw-r--r-- | isar/isar-syntax.el | 6 |
1 files 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))) |