# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1221784650 0
# Node ID e3190eb9e11b968426644f299c74dda1244f9248
# Parent  05d5848d935c18a82701667cbfdc54c22d8cb0c2
(comint-output-filter): Make output field properties front-sticky

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

diff -r 05d5848d935c -r e3190eb9e11b lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 19 00:35:42 2008 +0000
+++ b/lisp/ChangeLog	Fri Sep 19 00:37:30 2008 +0000
@@ -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 -r 05d5848d935c -r e3190eb9e11b lisp/comint.el
--- a/lisp/comint.el	Fri Sep 19 00:35:42 2008 +0000
+++ b/lisp/comint.el	Fri Sep 19 00:37:30 2008 +0000
@@ -1774,7 +1774,9 @@
               (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))))