* progmodes/compile.el (compilation-start): Don't disable undo in

comint buffer.  Don't override the comint-filter with our own.
(compilation-filter): Change point's insertion-type.
* comint.el (comint-output-filter): Use copy-marker.

1 files changed, 2 insertions, 6 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index 4abb17ed17a..00528f38ab0 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1740,12 +1740,8 @@ Make backspaces delete the previous character."
 
         ;; Insert STRING
         (let ((inhibit-read-only t)
-              ;; Avoid the overhead of save-excursion, since we just
-              ;; fiddle with the point
-              (saved-point (point-marker)))
-
-          ;; The point should float after any insertion we do
-          (set-marker-insertion-type saved-point t)
+              ;; The point should float after any insertion we do.
+              (saved-point (copy-marker (point) t)))
 
           ;; We temporarly remove any buffer narrowing, in case the
           ;; process mark is outside of the restriction