SCM Repository
| [smlnj] / sml / trunk / sml-mode / sml-proc.el |
Diff of /sml/trunk/sml-mode/sml-proc.el
Parent Directory
| 
Revision Log
| 
Patch
| revision 565, Sun Mar 5 04:10:18 2000 UTC | revision 566, Mon Mar 6 07:20:58 2000 UTC | |
|---|---|---|
| # | Line 628 | Line 628 |
| 628 | (save-some-buffers (not compilation-ask-about-save) nil) | (save-some-buffers (not compilation-ask-about-save) nil) |
| 629 | (let ((dir default-directory)) | (let ((dir default-directory)) |
| 630 | (when (string-match "^\\s-*cd\\s-+\"\\([^\"]+\\)\"\\s-*;" command) | (when (string-match "^\\s-*cd\\s-+\"\\([^\"]+\\)\"\\s-*;" command) |
| 631 | (setq dir (expand-file-name (match-string 1 command))) | (setq dir (match-string 1 command)) |
| 632 | (setq command (replace-match "" t t command))) | (setq command (replace-match "" t t command))) |
| 633 | (setq dir (expand-file-name dir)) | |
| 634 | (with-current-buffer (sml-proc-buffer) | (with-current-buffer (sml-proc-buffer) |
| 635 | (setq default-directory dir) | (setq default-directory dir) |
| 636 | (sml-send-string (concat (format sml-cd-command dir) "; " command) t t)))) | (sml-send-string (concat (format sml-cd-command dir) "; " command) t t)))) |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
