[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv28020

Modified Files:
	core.lisp 
Log Message:
Tell newly loaded files that they do not need to be saved.


--- /project/climacs/cvsroot/climacs/core.lisp	2007/12/11 23:19:45	1.17
+++ /project/climacs/cvsroot/climacs/core.lisp	2007/12/12 23:44:42	1.18
@@ -330,7 +330,8 @@
                  (setf (offset (point buffer)) (offset (point view))
                        (current-view) view
                        (syntax view) (make-syntax-for-view view (syntax-class-name-for-filepath filepath))
-                       (file-write-time buffer) (file-write-date filepath))
+                       (file-write-time buffer) (file-write-date filepath)
+                       (needs-saving buffer) nil)
                  (evaluate-attribute-line view)
                  (setf (filepath buffer) filepath
                        (read-only-p buffer) readonlyp)