[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	core.lisp 
Log Message:
Set the name of a buffer to the name of the file.

In general, "buffer names" are pretty informally handled
everywhere. At least they're no longer all called *scratch*, though.


--- /project/climacs/cvsroot/climacs/core.lisp	2007/12/13 19:09:39	1.19
+++ /project/climacs/cvsroot/climacs/core.lisp	2007/12/13 19:28:16	1.20
@@ -341,7 +341,8 @@
                        (current-view) view
                        (syntax view) (make-syntax-for-view view (syntax-class-name-for-filepath filepath))
                        (file-write-time buffer) (file-write-date filepath)
-                       (needs-saving buffer) nil)
+                       (needs-saving buffer) nil
+                       (name buffer) (filepath-filename filepath))
                  (evaluate-attribute-line view)
                  (setf (filepath buffer) filepath
                        (read-only-p buffer) readonlyp)