diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-13 16:22:16 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-13 16:22:16 +0000 |
| commit | ec4e0abcd2ec5e1523fca615487878e89a9e366e (patch) | |
| tree | d5729bfec5554779621bd93b8c1ae00d0da016d7 /lisp/comint.el | |
| parent | 747d0c440f834ebbbf12c1004f2510a8f76372f0 (diff) | |
| download | emacs-ec4e0abcd2ec5e1523fca615487878e89a9e366e.tar.gz | |
* 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.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 8 |
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 |