[climacs-cvs] CVS climacs

[thenriksen]

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)))