Changeset 783

Timestamp:

Apr 13, 2004, 12:24:23 PM (21 years ago)

Author:

Gary Byers

Message:

region now per-buffer.

File:

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

trunk/ccl/hemlock/src/struct.lisp

@@ -90 +90 @@
   bindings                    ; buffer's command table
   point                       ; current position in buffer
+  %mark                       ; a saved buffer position
+  region-active               ; modified-tick when region last activated
   (%writable t)               ; t => can alter buffer's region
   (modified-tick -2)          ; The last time the buffer was modified.
@@ -105 +107 @@
   (external-format :unix)     ; Line-termination, for the time being
   process                     ; Maybe a listener
-  (gap-context )                        ; The value of *buffer-gap-context*
+  (gap-context )              ; The value of *buffer-gap-context*
                               ; in the thread that can modify the buffer.
   )
@@ -677 +679 @@
   (open-line nil)
   (open-chars (make-string 200))
-  (active-region-p nil)
-  (active-region-buffer nil)
-  (paren-match-mark (internal-make-mark nil 0 :temporay))
 )
 
@@ -687 +686 @@
 (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*))
+