Changeset 712

Timestamp:

Mar 24, 2004, 12:46:36 AM (21 years ago)

Author:

Gary Byers

Message:

Use circumflex in mark printer. %SET-NEXT-CHARACTER changes (still bugs
here.)

File:

• trunk/ccl/hemlock/src/htext2.lisp (modified) (3 diffs)

trunk/ccl/hemlock/src/htext2.lisp

@@ -154 +154 @@
     (modifying-buffer buffer
       (modifying-line line mark)
-      (cond ((= *right-open-pos* *line-cache-length*)
+      (cond ((= (mark-charpos mark)
+                (- *line-cache-length* (- *right-open-pos* *left-open-pos*)))
              ;; The mark is at the end of the line.
              (unless next
@@ -191 +192 @@
             (t
              (setf (char (the simple-string *open-chars*) *right-open-pos*)
-                   character)))))
+                   character)
+             (hi::buffer-note-modification buffer mark 1)))))
   character)
 
@@ -451 +453 @@
   (write-string "#<Hemlock Mark \"" stream)
   (%print-before-mark structure stream)
-  (write-string "/\\" stream)
+  (write-string "^" stream)
   (%print-after-mark structure stream)
   (write-string "\">" stream))