Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/sml-mode/sml-proc.el
ViewVC logotype

Diff of /sml/trunk/sml-mode/sml-proc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 541, Fri Feb 18 20:35:43 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))))

Legend:
Removed from v.541  
changed lines
  Added in v.566

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0