Index: /trunk/ccl/hemlock/src/struct.lisp
===================================================================
--- /trunk/ccl/hemlock/src/struct.lisp	(revision 782)
+++ /trunk/ccl/hemlock/src/struct.lisp	(revision 783)
@@ -90,4 +90,6 @@
   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,5 +107,5 @@
   (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,7 +679,4 @@
   (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,4 +686,3 @@
 (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*))
+