Index: /trunk/ccl/hemlock/src/struct.lisp
===================================================================
--- /trunk/ccl/hemlock/src/struct.lisp	(revision 732)
+++ /trunk/ccl/hemlock/src/struct.lisp	(revision 733)
@@ -676,5 +676,9 @@
   (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,2 +687,4 @@
 (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*))