aboutsummaryrefslogtreecommitdiffhomepage
path: root/isa
diff options
context:
space:
mode:
authorGravatar David Aspinall <da@inf.ed.ac.uk>2002-06-30 18:38:57 +0000
committerGravatar David Aspinall <da@inf.ed.ac.uk>2002-06-30 18:38:57 +0000
commitfe8717bff0f8373be3911bfd984478c8e34c23e5 (patch)
tree945d4a2436009fb2ce2cd3eac937d867fc130866 /isa
parent8606f8bfd3f85aaea52a9a6374adb2e33b6a2a0a (diff)
Fix GNU Emacs/X-Symbol compatibility for sml-sym-face added by Lucas Dixon.
Diffstat (limited to 'isa')
-rw-r--r--isa/isa-syntax.el22
1 files changed, 12 insertions, 10 deletions
diff --git a/isa/isa-syntax.el b/isa/isa-syntax.el
index 234c6dfc..00a2bd4b 100644
--- a/isa/isa-syntax.el
+++ b/isa/isa-syntax.el
@@ -273,23 +273,25 @@
"*Face for Isabelle term / type hiliting"
:group 'proof-faces)
-(defconst isabelle-class-name-face 'isabelle-class-name-face)
-(defconst isabelle-tfree-name-face 'isabelle-tfree-name-face)
-(defconst isabelle-tvar-name-face 'isabelle-tvar-name-face)
-(defconst isabelle-free-name-face 'isabelle-free-name-face)
-(defconst isabelle-bound-name-face 'isabelle-bound-name-face)
-(defconst isabelle-var-name-face 'isabelle-var-name-face)
-
;; special face for key symbols, make them bold
-(defface isa-font-lock-sml-symbol-face
+(defface isabelle-sml-symbol-face
'((((class color) (background dark)) (:bold t))
(((class color) (background light)) (:bold t))
(((class grayscale) (background light)) (:bold t))
(((class grayscale) (background dark)) (:bold t))
(t (:bold t)))
- "SML symbol/character highlightling face"
+ "*SML symbol/character highlightling face"
:group 'proof-faces)
+;; GNU Emacs compatibility for above faces.
+(defconst isabelle-class-name-face 'isabelle-class-name-face)
+(defconst isabelle-tfree-name-face 'isabelle-tfree-name-face)
+(defconst isabelle-tvar-name-face 'isabelle-tvar-name-face)
+(defconst isabelle-free-name-face 'isabelle-free-name-face)
+(defconst isabelle-bound-name-face 'isabelle-bound-name-face)
+(defconst isabelle-var-name-face 'isabelle-var-name-face)
+(defconst isabelle-sml-symbol-face 'isabelle-sml-symbol-face)
+
;; regexp for finding function/variable/struct/sig/functor names
(defconst isa-sml-function-var-names-regexp
(concat "\\(" (proof-ids-to-regexp isa-sml-names-keywords) "\\)[\ \t]*\\(" isa-id "\\)"))
@@ -303,7 +305,7 @@
(defvar isa-font-lock-keywords-1
(list
(cons (proof-ids-to-regexp isa-keywords) 'font-lock-keyword-face)
- (cons (regexp-opt isa-keyword-symbols) 'isa-font-lock-sml-symbol-face)
+ (cons (regexp-opt isa-keyword-symbols) 'isabelle-sml-symbol-face)
(list isa-sml-function-var-names-regexp 2 'font-lock-function-name-face 'append' t)
(list isa-sml-type-names-regexp 2 'font-lock-function-name-face 'append' t)
(cons (proof-ids-to-regexp isa-tacticals) 'proof-tacticals-name-face)