[climacs-cvs] CVS update: climacs/gui.lisp
Robert Strandh
rstrandh at common-lisp.net
Wed Jan 19 05:28:38 UTC 2005
Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv32062
Modified Files:
gui.lisp
Log Message:
find-file does not create the file if it does not exist.
(thanks to Lawrence Mitchell)
Date: Tue Jan 18 21:28:38 2005
Author: rstrandh
Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.83 climacs/gui.lisp:1.84
--- climacs/gui.lisp:1.83 Tue Jan 18 21:21:16 2005
+++ climacs/gui.lisp Tue Jan 18 21:28:38 2005
@@ -546,8 +546,10 @@
(push buffer (buffers *application-frame*))
(setf (buffer (current-window)) buffer)
(setf (syntax buffer) (make-instance 'basic-syntax))
- (with-open-file (stream filename :direction :input :if-does-not-exist :create)
- (input-from-stream stream buffer 0))
+ ;; Don't want to create the file if it doesn't exist.
+ (when (probe-file filename)
+ (with-open-file (stream filename :direction :input)
+ (input-from-stream stream buffer 0)))
(setf (filename buffer) filename
(name buffer) (pathname-filename filename)
(needs-saving buffer) nil)
More information about the Climacs-cvs
mailing list