From 0877b91645ec1a824eba51cf0ad46eb4d76a138f Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Wed, 4 Aug 2010 17:16:02 +0000 Subject: isabelle-string-face: introduce custom string colour as font lock default is terrible --- isar/isar-syntax.el | 7 +++++++ isar/isar.el | 2 ++ 2 files changed, 9 insertions(+) (limited to 'isar') 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) -- cgit v1.2.3