[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	io.lisp 
Log Message:
Don't permit undoing the initial file load.


--- /project/climacs/cvsroot/climacs/io.lisp	2008/01/13 22:23:00	1.9
+++ /project/climacs/cvsroot/climacs/io.lisp	2008/01/24 09:29:28	1.10
@@ -62,4 +62,5 @@
 (defmethod frame-make-buffer-from-stream ((application-frame climacs) stream)
   (let* ((buffer (make-new-buffer)))
     (input-from-stream stream buffer 0)
+    (clear-undo-history buffer)
     buffer))