diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2000-04-04 13:23:58 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2000-04-04 13:23:58 +0000 |
commit | 84807c20846c98db4f1dfd28f7f7ad66ed87cd1c (patch) | |
tree | f7f5d9edee205db7cd2f1c28f19bf9e6c4cda43d /isa/isa.el | |
parent | 160c6293ac3be9a0ce48731902af78f31674d58b (diff) |
Fix accidently introduced bug with passing full paths to theory loader.
Diffstat (limited to 'isa/isa.el')
-rw-r--r-- | isa/isa.el | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -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 () |