Commit 84b7d2a2 authored by Troels Henriksen's avatar Troels Henriksen

Implemented support for scrolling typeout panes in M-C-v, M-C-V.

parent d7c9bcd2
......@@ -137,6 +137,10 @@ window"))
: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)))
......
......@@ -38,7 +38,7 @@
#:climacs-buffer #:external-format
#:climacs-pane
#:climacs-info-pane
#:typeout-pane
#:typeout-pane #:typeout-pane-p
#:kill-ring
;; View-stuff
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment