blob: d6ea1341cdb883b3a4ac7d5cd5e58e4b0260eaa8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
;; interface-setup.el Interface wrapper for Isabelle Proof General
;;
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; Author: Markus Wenzel <wenzelm@in.tum.de>
;;
;; interface-setup.el,v 7.0 2002/08/29 09:14:03 da Exp
;;
;;
;; X-Symbol
;;
(let ((xsymbol (getenv "PROOFGENERAL_XSYMBOL")))
;; avoid confusing warning message
(if (not (boundp 'x-symbol-image-converter))
(customize-set-variable 'x-symbol-image-converter nil))
;; tell Proof General about -x option
(if (and xsymbol (not (equal xsymbol "")))
(customize-set-variable 'isar-x-symbol-enable (equal xsymbol "true"))))
;;
;; Unicode
;;
(let ((unicode (getenv "PROOFGENERAL_UNICODE")))
(if (and unicode (not (equal unicode "")))
(customize-set-variable 'proof-shell-unicode (equal unicode "true"))))
;;
;; Proof General
;;
(if (not (featurep 'proof-site))
(load (concat (getenv "PROOFGENERAL_HOME") "/generic/proof-site.el")))
|