Commit c0db965e authored by Troels Henriksen's avatar Troels Henriksen

Fixed Text syntax.

parent 4a2a8120
......@@ -153,7 +153,8 @@
(defpackage :climacs-text-syntax
(:use :clim-lisp :clim :drei-buffer :drei-base
:drei-syntax :flexichain :drei :drei-fundamental-syntax))
:drei-syntax :flexichain :drei :drei-fundamental-syntax
:esa-utils))
(defpackage :climacs-prolog-syntax
(:use :clim-lisp :clim :drei-buffer :drei-base
......
......@@ -74,8 +74,8 @@
(:name "Text")
(:pathname-types "text" "txt" "README"))
(defmethod update-syntax ((syntax text-syntax) prefix-size suffix-size
&optional begin end)
(defmethod update-syntax values-max-min ((syntax text-syntax) prefix-size suffix-size
&optional begin end)
(declare (ignore begin end))
(let* ((buffer (buffer syntax))
(high-mark-offset (- (size buffer) suffix-size))
......@@ -154,7 +154,7 @@
(insert* paragraphs pos1 m))
(incf pos1))
(t nil)))))))
(call-next-method))
(values 0 (size (buffer syntax))))
(defmethod backward-one-paragraph (mark (syntax text-syntax))
(with-slots (paragraphs) syntax
......
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