Commit df3f57ab authored by Troels Henriksen's avatar Troels Henriksen
Browse files

Fixed updating-output bug and added simplistic handling of long lines

(a band-aid, really).
parent 8122dfae
...@@ -368,7 +368,7 @@ is made to alter a buffer which has been set read only.")) ...@@ -368,7 +368,7 @@ is made to alter a buffer which has been set read only."))
(updating-output (pane :unique-id (incf id) (updating-output (pane :unique-id (incf id)
:id-test #'= :id-test #'=
:cache-value contents :cache-value contents
:cache-test #'string=) :cache-test #'equal)
(present-contents contents pane))) (present-contents contents pane)))
(setf saved-index nil)))) (setf saved-index nil))))
(with-slots (bot scan cursor-x cursor-y) pane (with-slots (bot scan cursor-x cursor-y) pane
...@@ -561,11 +561,8 @@ is made to alter a buffer which has been set read only.")) ...@@ -561,11 +561,8 @@ is made to alter a buffer which has been set read only."))
(defgeneric fix-pane-viewport (pane)) (defgeneric fix-pane-viewport (pane))
(defmethod fix-pane-viewport ((pane climacs-pane)) (defmethod fix-pane-viewport ((pane climacs-pane))
(let* ((v (window-viewport pane)) (setf (window-viewport-position pane) (values 0 0))
(x (rectangle-width v)) (change-space-requirements pane :min-width (bounding-rectangle-width (stream-current-output-record pane))))
(y (rectangle-height v)))
(resize-sheet pane x y)
(setf (window-viewport-position pane) (values 0 0))))
(defmethod redisplay-pane-with-syntax ((pane climacs-pane) (syntax basic-syntax) current-p) (defmethod redisplay-pane-with-syntax ((pane climacs-pane) (syntax basic-syntax) current-p)
...@@ -582,9 +579,9 @@ is made to alter a buffer which has been set read only.")) ...@@ -582,9 +579,9 @@ is made to alter a buffer which has been set read only."))
(setf (full-redisplay-p pane) nil)) (setf (full-redisplay-p pane) nil))
(adjust-cache pane)) (adjust-cache pane))
(fill-cache pane) (fill-cache pane)
(fix-pane-viewport pane)
(update-syntax-for-display (buffer pane) (syntax (buffer pane)) (top pane) (bot pane)) (update-syntax-for-display (buffer pane) (syntax (buffer pane)) (top pane) (bot pane))
(redisplay-pane-with-syntax pane (syntax (buffer pane)) current-p)) (redisplay-pane-with-syntax pane (syntax (buffer pane)) current-p)
(fix-pane-viewport pane))
(defgeneric full-redisplay (pane)) (defgeneric full-redisplay (pane))
......
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