Index: /branches/ide-1.0/ccl/hemlock/src/htext1.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/htext1.lisp	(revision 6600)
+++ /branches/ide-1.0/ccl/hemlock/src/htext1.lisp	(revision 6601)
@@ -212,9 +212,5 @@
           (invoke-hook hemlock::buffer-modified-hook ,b t))
         (setf (buffer-modified ,b) t))
-      (unwind-protect
-           (progn
-             (if ,bp (buffer-document-begin-editing ,b))
-             (hemlock-ext:without-interrupts ,@forms))
-        (if ,bp (buffer-document-end-editing ,b))))))
+      (hemlock-ext:without-interrupts ,@forms))))
 
 (defmacro always-change-line (mark new-line)
@@ -287,28 +283,28 @@
   (let ((mark (gensym)) (marks (gensym)) (prev (gensym)))
     (if new
-	`(do ((,mark (line-marks ,old))
-	      (,marks (line-marks ,new))
-	      (,prev ()))
-	     ((null ,mark)
-	      (setf (line-marks ,new) ,marks))
-	   (let ((,charpos (mark-charpos (car ,mark))))
-	     (cond
-	       ((or (> ,charpos ,bound)
-		    (and (= ,charpos ,bound) 
-			 (eq (mark-%kind (car ,mark)) :left-inserting)))
-		(setf (mark-line (car ,mark)) ,new)
-		(setf (mark-charpos (car ,mark)) (progn ,@body))
-		(if ,prev
-		    (setf (cdr ,prev) (cdr ,mark))
-		    (setf (line-marks ,old) (cdr ,mark)))
-		(rotatef (cdr ,mark) ,marks ,mark))
-	       (t
-		(setq ,prev ,mark  ,mark (cdr ,mark))))))
-	`(dolist (,mark (line-marks ,old))
-	   (let ((,charpos (mark-charpos ,mark)))
-	     (when (or (> ,charpos ,bound)
-		       (and (= ,charpos ,bound)
-			    (eq (mark-%kind ,mark) :left-inserting)))
-	       (setf (mark-charpos ,mark) (progn ,@body))))))))
+      `(do ((,mark (line-marks ,old))
+            (,marks (line-marks ,new))
+            (,prev ()))
+        ((null ,mark)
+         (setf (line-marks ,new) ,marks))
+        (let ((,charpos (mark-charpos (car ,mark))))
+          (cond
+            ((or (> ,charpos ,bound)
+                 (and (= ,charpos ,bound) 
+                      (eq (mark-%kind (car ,mark)) :left-inserting)))
+             (setf (mark-line (car ,mark)) ,new)
+             (setf (mark-charpos (car ,mark)) (progn ,@body))
+             (if ,prev
+               (setf (cdr ,prev) (cdr ,mark))
+               (setf (line-marks ,old) (cdr ,mark)))
+             (rotatef (cdr ,mark) ,marks ,mark))
+            (t
+             (setq ,prev ,mark  ,mark (cdr ,mark))))))
+      `(dolist (,mark (line-marks ,old))
+        (let ((,charpos (mark-charpos ,mark)))
+          (when (or (> ,charpos ,bound)
+                    (and (= ,charpos ,bound)
+                         (eq (mark-%kind ,mark) :left-inserting)))
+            (setf (mark-charpos ,mark) (progn ,@body))))))))
 
 
@@ -348,6 +344,6 @@
   "Returns the number of characters on the line."
   (if (linep line)
-      (line-length* line)
-      (error "~S is not a line!" line)))
+    (line-length* line)
+    (error "~S is not a line!" line)))
 
 (defun line-buffer (line)