aboutsummaryrefslogtreecommitdiffhomepage
path: root/isa/isa.el
diff options
context:
space:
mode:
authorGravatar David Aspinall <da@inf.ed.ac.uk>2000-04-04 13:23:58 +0000
committerGravatar David Aspinall <da@inf.ed.ac.uk>2000-04-04 13:23:58 +0000
commit84807c20846c98db4f1dfd28f7f7ad66ed87cd1c (patch)
treef7f5d9edee205db7cd2f1c28f19bf9e6c4cda43d /isa/isa.el
parent160c6293ac3be9a0ce48731902af78f31674d58b (diff)
Fix accidently introduced bug with passing full paths to theory loader.
Diffstat (limited to 'isa/isa.el')
-rw-r--r--isa/isa.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/isa/isa.el b/isa/isa.el
index ad13eaf9..45cbce0b 100644
--- a/isa/isa.el
+++ b/isa/isa.el
@@ -281,10 +281,14 @@ and script mode."
(defun isa-update-thy-only (file try wait)
"Tell Isabelle to update current buffer's theory, and all ancestors."
+ ;; First make sure we're in the right directory to take care of
+ ;; relative "files" paths inside theory file. (Isabelle bug??)
+ (proof-cd-sync)
(proof-shell-invisible-command
(proof-format-filename
- (format "ProofGeneral.%supdate_thy_only \"%%s\";" (if try "try_" ""))
- (file-name-sans-extension file))
+ ;; %r parameter means relative (don't expand) path
+ (format "ProofGeneral.%supdate_thy_only \"%%r\";" (if try "try_" ""))
+ (file-name-nondirectory (file-name-sans-extension file)))
wait))
(defun isa-shell-update-thy ()