Commit 407e9297 authored by wlott's avatar wlott
Browse files

Restored the behavior of scribe-file to cd to the directory of the .mss

file before running scribe.  This was accidentally removed in an attempt to
clean up some compiler warnings.
parent 6442404a
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/unixcoms.lisp,v 1.8 1993/11/17 15:58:50 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/unixcoms.lisp,v 1.9 1994/01/25 15:35:14 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -158,16 +158,20 @@ ...@@ -158,16 +158,20 @@
(out-buffer (or (getstring "Scribe Warnings" *buffer-names*) (out-buffer (or (getstring "Scribe Warnings" *buffer-names*)
(make-buffer "Scribe Warnings"))) (make-buffer "Scribe Warnings")))
(out-point (buffer-end (buffer-point out-buffer))) (out-point (buffer-end (buffer-point out-buffer)))
(stream (make-hemlock-output-stream out-point :line))) (stream (make-hemlock-output-stream out-point :line))
(orig-cwd (default-directory)))
(buffer-end out-point) (buffer-end out-point)
(insert-character out-point #\newline) (insert-character out-point #\newline)
(insert-character out-point #\newline) (insert-character out-point #\newline)
(ext:run-program (namestring (value scribe-utility)) (unwind-protect
(list* (namestring pathname) (progn
(value scribe-utility-switches)) (setf (default-directory) (directory-namestring pathname))
:output stream :error stream (ext:run-program (namestring (value scribe-utility))
:wait nil))) (list* (namestring pathname)
(value scribe-utility-switches))
:output stream :error stream
:wait nil))
(setf (default-directory) orig-cwd))))
;;;; UNIX Filter Region ;;;; UNIX Filter Region
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment