blob: 0a3f6b80380bd35afb0caea6f612bc5bbfe8185b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
;;
;; $Id$
;;
(customize-set-variable
'isabelle-prog-name
(concat (getenv "ISABELLE") " " (getenv "PROOFGENERAL_LOGIC")))
(if (string-match "^polyml" (getenv "ML_SYSTEM"))
(customize-set-variable
'proof-shell-pre-interrupt-hook
(lambda () (proof-shell-insert "f" nil))))
(let ((xsym (getenv "PROOFGENERAL_XSYMBOL")))
(cond
((equal xsym "true")
(customize-set-variable 'proof-x-symbol-enable t))
((equal xsym "false")
(customize-set-variable 'proof-x-symbol-enable nil))))
|