[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	core.lisp 
Log Message:
Always force the filepath of a buffer to be a pathname. This fixes
some rare error cases reported by Cyrus Harmon.


--- /project/climacs/cvsroot/climacs/core.lisp	2008/01/20 19:51:48	1.24
+++ /project/climacs/cvsroot/climacs/core.lisp	2008/01/27 08:13:54	1.25
@@ -353,7 +353,7 @@
                        (name buffer) (filepath-filename filepath))
                  (setf (current-view (current-window)) view)
                  (evaluate-attribute-line view)
-                 (setf (filepath buffer) filepath
+                 (setf (filepath buffer) (pathname filepath)
                        (read-only-p buffer) readonlyp)
                  (beginning-of-buffer (point view))
                  buffer)))))))
@@ -375,7 +375,7 @@
 	(user-homedir-pathname)))))
 
 (defmethod frame-set-visited-filename ((application-frame climacs) filepath buffer)
-  (setf (filepath buffer) filepath
+  (setf (filepath buffer) (pathname filepath)
 	(file-saved-p buffer) nil
 	(file-write-time buffer) nil
 	(name buffer) (filepath-filename filepath)