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)