fixed misplaced expand-file-name in sml-proc.el

diff --git a/sml-proc.el b/sml-proc.el
index d700562328f12bfe1b23ee5e4c03fb9284c0e2b8..42bb01e160df4d16d441d1deb728bdf93fa0a8c2 100644 (file)
--- a/sml-proc.el
+++ b/sml-proc.el
@@ -628,8 +628,9 @@ non-nil.  With prefix arg, always prompts."
   (save-some-buffers (not compilation-ask-about-save) nil)
   (let ((dir default-directory))
     (when (string-match "^\\s-*cd\\s-+\"\\([^\"]+\\)\"\\s-*;" command)
-      (setq dir (expand-file-name (match-string 1 command)))
+      (setq dir (match-string 1 command))
       (setq command (replace-match "" t t command)))
+    (setq dir (expand-file-name dir))
     (with-current-buffer (sml-proc-buffer)
       (setq default-directory dir)
       (sml-send-string (concat (format sml-cd-command dir) "; " command) t t))))