diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2010-08-04 17:16:02 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2010-08-04 17:16:02 +0000 |
| commit | 0877b91645ec1a824eba51cf0ad46eb4d76a138f (patch) | |
| tree | 99db62bfae557ba45bcdfec8c3b64c98b97d213d /isar | |
| parent | 01eb09deb900de6d14b8bc4cc26c674c38fc0335 (diff) | |
isabelle-string-face: introduce custom string colour as font lock default is terrible
Diffstat (limited to 'isar')
| -rw-r--r-- | isar/isar-syntax.el | 7 | ||||
| -rw-r--r-- | isar/isar.el | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/isar/isar-syntax.el b/isar/isar-syntax.el index e689fa9d..789f7271 100644 --- a/isar/isar-syntax.el +++ b/isar/isar-syntax.el @@ -283,6 +283,13 @@ matches contents of quotes for quoted identifiers.") ;; ----- Isabelle inner syntax hilite +(defface isabelle-string-face + (proof-face-specs + (:foreground "darkgray") + (:background "lightgray") + (:italic t)) + "*Face used instead of `font-lock-string-face' for Isar.") + (defface isabelle-class-name-face (proof-face-specs (:foreground "red") diff --git a/isar/isar.el b/isar/isar.el index bfabb6d3..dad9f871 100644 --- a/isar/isar.el +++ b/isar/isar.el @@ -606,6 +606,8 @@ Uses variables `string' and `scriptspan' passed by dynamic scoping." (isar-mode-config-set-variables) (isar-init-syntax-table) (setq proof-script-font-lock-keywords isar-font-lock-keywords-1) + (set (make-local-variable 'font-lock-string-face) + 'isabelle-string-face) (set (make-local-variable 'comment-quote-nested) nil) ;; can cope with nested comments (set (make-local-variable 'outline-regexp) isar-outline-regexp) (set (make-local-variable 'outline-heading-end-regexp) |