diff options
author | Makarius Wenzel <makarius@sketis.net> | 2000-07-08 14:28:21 +0000 |
---|---|---|
committer | Makarius Wenzel <makarius@sketis.net> | 2000-07-08 14:28:21 +0000 |
commit | 761d9aac830e435e59dcb97ae31a43fdcb5ac10f (patch) | |
tree | 9912cdba0f41ef2ad2947e7003f963947c6d7a05 /isa | |
parent | 2a2eb0ba56f2c897bf0ed9a2a32b97fcb0deee04 (diff) |
do not change isabelle-prog-name here;
be less aggressive in changing x-symbol-enable;
Diffstat (limited to 'isa')
-rw-r--r-- | isa/interface-setup.el | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/isa/interface-setup.el b/isa/interface-setup.el index 7f170480..d6646fd4 100644 --- a/isa/interface-setup.el +++ b/isa/interface-setup.el @@ -1,13 +1,11 @@ ;; ;; $Id$ -;; - -(customize-set-variable - 'isabelle-prog-name - (concat (getenv "ISABELLE") " " (getenv "PROOFGENERAL_LOGIC"))) +;; -(customize-set-variable - (if (equal (getenv "PROOFGENERAL_ASSISTANTS") "isa") - 'isa-x-symbol-enable - 'isar-x-symbol-enable) - (equal (getenv "PROOFGENERAL_XSYMBOL") "true")) +(let ((xsymbol (getenv "PROOFGENERAL_XSYMBOL"))) + (if (and xsymbol (not (equal xsymbol ""))) + (customize-set-variable + (if (equal (getenv "PROOFGENERAL_ASSISTANTS") "isa") + 'isa-x-symbol-enable + 'isar-x-symbol-enable) + (equal xsymbol "true")))) |