Commit 3ea91784 authored by Troels Henriksen's avatar Troels Henriksen

Oops. Fixed stupid bug that caused Climacs to be unable to load UTF-8

files.
parent 28cf9318
......@@ -32,11 +32,10 @@
(let* ((seq (make-string (file-length stream)))
(count (#+mcclim read-sequence #-mcclim cl:read-sequence
seq stream)))
(if (= count (length seq))
(insert-buffer-sequence buffer offset
(if (= count (length seq))
seq
(subseq seq 0 count))))))
(insert-buffer-sequence buffer offset
(if (= count (length seq))
seq
(subseq seq 0 count)))))
(defmethod make-buffer-from-stream (stream (application-frame climacs))
(let* ((buffer (make-new-buffer application-frame)))
......
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