(comint-output-filter): Make output field properties front-sticky

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1420

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a0bfe340fe4316fcde985d45d1bdfd853517a63b..b696ad971a0f647f5a8a1aa138ca0af8e660d495 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-19  Miles Bader  <Miles Bader <miles@gnu.org>>
+
+       * comint.el (comint-output-filter): Make field properties for
+       output text front-sticky.
+
 2008-09-18  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-bzr.el (vc-bzr-show-log-entry):

diff --git a/lisp/comint.el b/lisp/comint.el
index 917565dd1575fd7c27788588c9c065c193d68591..6231a20b65a9e339557a7c28f43b440f0afe47f0 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1774,7 +1774,9 @@ Make backspaces delete the previous character."
               (let ((inhibit-read-only t)
                    (inhibit-modification-hooks t))
                 (add-text-properties comint-last-output-start (point)
-                                     '(rear-nonsticky t
+                                     '(front-sticky
+                                      (field inhibit-line-move-field-capture)
+                                      rear-nonsticky t
                                       field output
                                       inhibit-line-move-field-capture t))))