# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1149522175 0
# Node ID 4d648a3d282d17069af794c844f8da02957c232c
# Parent  33251672fc287ccb1e9f2e7f9cc4f874b14a5c61
(vc-process-filter): Inhibit undo
info collection around call to insert.
(vc-setup-buffer): Likewise for call to erase-buffer.
(vc-do-command): Likewise for call to process-file.

diff -r 33251672fc28 -r 4d648a3d282d lisp/vc.el
--- a/lisp/vc.el	Mon Jun 05 11:56:03 2006 +0000
+++ b/lisp/vc.el	Mon Jun 05 15:42:55 2006 +0000
@@ -894,10 +894,12 @@
 
 (defun vc-process-filter (p s)
   "An alternative output filter for async process P.
-The only difference with the default filter is to insert S after markers."
+One difference with the default filter is that this inserts S after markers.
+Another is that undo information is not kept."
   (with-current-buffer (process-buffer p)
     (save-excursion
-      (let ((inhibit-read-only t))
+      (let ((buffer-undo-list t)
+            (inhibit-read-only t))
 	(goto-char (process-mark p))
 	(insert s)
 	(set-marker (process-mark p) (point))))))
@@ -914,7 +916,8 @@
     (set (make-local-variable 'vc-parent-buffer-name)
 	 (concat " from " (buffer-name camefrom)))
     (setq default-directory olddir)
-    (let ((inhibit-read-only t))
+    (let ((buffer-undo-list t)
+          (inhibit-read-only t))
       (erase-buffer))))
 
 (defun vc-exec-after (code)
@@ -1003,7 +1006,8 @@
 	      (vc-exec-after
 	       `(unless (active-minibuffer-window)
                   (message "Running %s in the background... done" ',command))))
-	  (setq status (apply 'process-file command nil t nil squeezed))
+	  (let ((buffer-undo-list t))
+            (setq status (apply 'process-file command nil t nil squeezed)))
 	  (when (and (not (eq t okstatus))
                      (or (not (integerp status))
                          (and okstatus (< okstatus status))))