From 2a144282a0b0a7109d7e9cf11f8881e6a0f203ef Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Mon, 17 Aug 2009 13:42:50 +0000 Subject: isar-syntactic-context: modify proof-looking-at-syntactic-context to allow recognition of terminating comment strings. --- isar/isar-syntax.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'isar/isar-syntax.el') diff --git a/isar/isar-syntax.el b/isar/isar-syntax.el index 68740351..912fcb7a 100644 --- a/isar/isar-syntax.el +++ b/isar/isar-syntax.el @@ -248,6 +248,16 @@ matches contents of quotes for quoted identifiers.") (defconst isar-string-start-regexp "\"\\|`\\|{\\*") (defconst isar-string-end-regexp "\"\\|`\\|\\*}") +(defun isar-syntactic-context () + (let ((sc (proof-looking-at-syntactic-context-default))) + (or (if (eq sc 'string) + (save-excursion + (save-match-data + (and (re-search-backward isar-string-start-regexp) + (re-search-backward "--") + 'comment)))) + sc))) + ;; antiquotations -- cgit v1.2.3