[Emacs-diffs] master 66c388c: Prevent accidental edits in the ansi-term buffer from breaking resizing

[Stefan Monnier]

branch: master
commit 66c388c21aa83d3ddb5a1827f81dd432514242ac
Author: John Shahid <address@hidden>
Commit: Stefan Monnier <address@hidden>

    Prevent accidental edits in the ansi-term buffer from breaking resizing
    
    * lisp/term.el (term-unwrap-line, term-emulate-terminal): Prevent the
      `term-line-wrap` property of newlines from spreading accidentally
      when inserting text next to it.
---
 lisp/term.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/term.el b/lisp/term.el
index 586a887..283e568 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -2935,7 +2935,8 @@ See `term-prompt-regexp'."
                       (delete-region (point) (line-end-position))
                       (term-down 1 t)
                       (term-move-columns (- (term-current-column)))
-                      (put-text-property (1- (point)) (point) 'term-line-wrap 
t)
+                      (add-text-properties (1- (point)) (point)
+                                           '(term-line-wrap t rear-nonsticky 
t))
                       (setq decoded-substring
                             (substring decoded-substring (- term-width 
old-column)))
                       (setq old-column 0)))
@@ -3754,7 +3755,8 @@ all pending output has been dealt with."))
   (when (not (bolp))
     (let ((old-point (point)))
       (insert-before-markers ?\n)
-      (put-text-property old-point (point) 'term-line-wrap t))))
+      (add-text-properties old-point (point)
+                           '(term-line-wrap t rear-nonsticky t)))))
 
 (defun term-erase-in-line (kind)
   (when (= kind 1) ;; erase left of point