From aaf47bf358301b0f09e3500ea9eb3f596b7ee7c5 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Wed, 22 Mar 2000 12:53:35 +0000
Subject: Use new format character %s to %e to cope with nasty filenames with
 backslashes.

---
 hol98/hol98.el | 2 +-
 isa/isa.el     | 2 +-
 isar/isar.el   | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/hol98/hol98.el b/hol98/hol98.el
index 41f2f484..efb22a55 100644
--- a/hol98/hol98.el
+++ b/hol98/hol98.el
@@ -31,7 +31,7 @@
  proof-showproof-command         "p()"
  proof-undo-n-times-cmd          "(pg_repeat backup %s; p());"
  proof-auto-multiple-files       t
- proof-shell-cd-cmd              "FileSys.chDir \"%s\""
+ proof-shell-cd-cmd              "FileSys.chDir \"%e\""
  proof-shell-prompt-pattern      "^[->] "
  proof-shell-interrupt-regexp    "Interrupted"
  proof-shell-start-goals-regexp  
diff --git a/isa/isa.el b/isa/isa.el
index 9efcf6bc..54d40621 100644
--- a/isa/isa.el
+++ b/isa/isa.el
@@ -142,7 +142,7 @@ and script mode."
    proof-shell-prompt-pattern		"^2?[ML-=#>]>? \372?"
 
    ;; for issuing command, not used to track cwd in any way.
-   proof-shell-cd-cmd			"Library.cd \"%s\""
+   proof-shell-cd-cmd			"Library.cd \"%e\""
 
    ;; FIXME: the next two are probably only good for NJ/SML
    proof-shell-interrupt-regexp         "Interrupt"
diff --git a/isar/isar.el b/isar/isar.el
index eef823e6..9914c7b8 100644
--- a/isar/isar.el
+++ b/isar/isar.el
@@ -242,7 +242,7 @@
    proof-shell-prompt-pattern		"^\\w*[>#] "
 
    ;; for issuing command, not used to track cwd in any way.
-   proof-shell-cd-cmd			"ML {* Library.cd \"%s\" *}"
+   proof-shell-cd-cmd			"ML {* Library.cd \"%e\" *}"
 
    proof-shell-proof-completed-regexp   nil     ; n.a.
    proof-shell-interrupt-regexp         "\364\\*\\*\\* Interrupt\\|\360Interrupt"
-- 
cgit v1.2.3