aboutsummaryrefslogtreecommitdiffhomepage
path: root/isa
diff options
context:
space:
mode:
Diffstat (limited to 'isa')
-rw-r--r--isa/x-symbol-isabelle.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/isa/x-symbol-isabelle.el b/isa/x-symbol-isabelle.el
index eb6facb7..a5fe0126 100644
--- a/isa/x-symbol-isabelle.el
+++ b/isa/x-symbol-isabelle.el
@@ -113,7 +113,9 @@ or subscript tag."
;; the [\350-\357].\350\\|\^A[A-H].\^AA part is there to enable single
;; char sub/super scripts with coloured Isabelle output.
(defcustom x-symbol-isabelle-single-char-regexp
- "[\350-\357].\350\\|\^A[A-H].\^AA\\|[^\\]\\|\\\\\\\\?<[A-Za-z0-9_']+>"
+ (if (eq proof-assistant-symbol 'isar)
+ "\^A[A-H].\^AA\\|[^\\]\\|\\\\<[A-Za-z0-9_']+>"
+ "[\350-\357].\350\\|\^A[A-H].\^AA\\|[^\\]\\|\\\\\\\\?<[A-Za-z0-9_']+>")
"Return regexp matching \<ident> or c for some char c."
:group 'x-symbol-isabelle
:type 'regexp)