Changeset 733

Timestamp:

Mar 27, 2004, 2:49:29 AM (21 years ago)

Author:

Gary Byers

Message:

Keep active region stuff in gap-cache.

File:

• trunk/ccl/hemlock/src/struct.lisp (modified) (2 diffs)

trunk/ccl/hemlock/src/struct.lisp

@@ -676 +676 @@
   (line-cache-length 200)
   (open-line nil)
-  (open-chars (make-string 200)))
+  (open-chars (make-string 200))
+  (active-region-p nil)
+  (active-region-buffer nil)
+  (paren-match-mark (internal-make-mark nil 0 :temporay))
+)
 
 (define-symbol-macro *line-cache-length* (buffer-gap-context-line-cache-length *buffer-gap-context*))
@@ -683 +687 @@
 (define-symbol-macro *left-open-pos* (buffer-gap-context-left-open-pos *buffer-gap-context*))
 (define-symbol-macro *right-open-pos* (buffer-gap-context-right-open-pos *buffer-gap-context*))
+(define-symbol-macro hemlock::*active-region-p* (buffer-gap-context-active-region-p *buffer-gap-context*))
+(define-symbol-macro hemlock::*active-region-buffer* (buffer-gap-context-active-region-buffer *buffer-gap-context*))