diff options
author | Makarius Wenzel <makarius@sketis.net> | 2000-02-11 17:46:54 +0000 |
---|---|---|
committer | Makarius Wenzel <makarius@sketis.net> | 2000-02-11 17:46:54 +0000 |
commit | 0839ce46a19e9775d742582814da1259475d4536 (patch) | |
tree | 23bfea11da47f0a40ef3f5af36870c9bfa94cee2 /isar | |
parent | 64f5c3275097b3004937aeb3e287a4c6123c62bb (diff) |
option -x: enable x-symbol package;
Diffstat (limited to 'isar')
-rw-r--r-- | isar/interface | 9 | ||||
-rw-r--r-- | isar/interface-setup.el | 7 |
2 files changed, 15 insertions, 1 deletions
diff --git a/isar/interface b/isar/interface index a62df5ca..38adfa7a 100644 --- a/isar/interface +++ b/isar/interface @@ -19,6 +19,7 @@ function usage() echo " -p NAME Emacs program name (default xemacs)" echo " -u BOOL use .emacs file (default true)" echo " -w BOOL use window system (default true)" + echo " -x BOOL enable x-symbol package" echo echo "Starts Proof General for Isabelle/Isar with proof documents FILES" echo "(default Scratch.thy)." @@ -46,11 +47,12 @@ LOGIC="$ISABELLE_LOGIC" PROGNAME="xemacs" INITFILE="true" WINDOWSYSTEM="true" +XSYMBOL="" function getoptions() { OPTIND=1 - while getopts "l:p:u:w:" OPT + while getopts "l:p:u:w:x:" OPT do case "$OPT" in l) @@ -65,6 +67,9 @@ function getoptions() w) WINDOWSYSTEM="$OPTARG" ;; + x) + XSYMBOL="$OPTARG" + ;; \?) usage ;; @@ -110,4 +115,6 @@ done export PROOFGENERAL_ASSISTANTS=isar export PROOFGENERAL_LOGIC="$LOGIC" +export PROOFGENERAL_XSYMBOL="$XSYMBOL" + exec $PROGNAME $ARGS $FILES diff --git a/isar/interface-setup.el b/isar/interface-setup.el index 736cda57..76f4f09e 100644 --- a/isar/interface-setup.el +++ b/isar/interface-setup.el @@ -10,3 +10,10 @@ (customize-set-variable 'proof-shell-pre-interrupt-hook (lambda () (proof-shell-insert (isar-verbatim "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)))) |