Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv13967
Modified Files: packages.lisp gui.lisp Log Message: Implemented support for scrolling typeout panes in M-C-v, M-C-V.
--- /project/climacs/cvsroot/climacs/packages.lisp 2007/12/08 08:55:06 1.127 +++ /project/climacs/cvsroot/climacs/packages.lisp 2008/01/06 10:26:12 1.128 @@ -38,7 +38,7 @@ #:climacs-buffer #:external-format #:climacs-pane #:climacs-info-pane - #:typeout-pane + #:typeout-pane #:typeout-pane-p #:kill-ring
;; View-stuff --- /project/climacs/cvsroot/climacs/gui.lisp 2008/01/01 21:18:48 1.248 +++ /project/climacs/cvsroot/climacs/gui.lisp 2008/01/06 10:26:12 1.249 @@ -137,6 +137,10 @@ :initform nil :initarg :active)))
+(defun typeout-pane-p (pane) + "Return true if `pane' is a typeout pane." + (typep pane 'typeout-pane)) + (defmethod buffer ((pane typeout-pane)))
(defmethod point-of ((pane typeout-pane)))