Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv24084
Modified Files: file-commands.lisp Log Message: Make the buffer of a syntax be the buffer created by MAKE-BUFFER rather than the buffer of (point pane). (In practice, this means the climacs-buffer (delegating) rather than the implementation buffer).
(This is largely to facilitate the ability to print tablature along with the buffer name; there are probably other reasons to allow this.)
--- /project/climacs/cvsroot/climacs/file-commands.lisp 2006/03/03 19:38:57 1.3 +++ /project/climacs/cvsroot/climacs/file-commands.lisp 2006/03/25 20:58:41 1.4 @@ -155,7 +155,7 @@ (setf (buffer (current-window)) buffer) (setf (syntax buffer) (make-instance (syntax-class-name-for-filepath filepath) - :buffer (buffer (point pane)))) + :buffer buffer)) ;; Don't want to create the file if it doesn't exist. (when (probe-file filepath) (with-open-file (stream filepath :direction :input)