[Emacs-diffs] trunk r115627: comint.el (comint-output-filter): Fix rear-nonsticky property placement.

[Chong Yidong]

------------------------------------------------------------
revno: 115627
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16010
author: Vitalie Spinu <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Fri 2013-12-20 14:25:19 +0800
message:
  comint.el (comint-output-filter): Fix rear-nonsticky property placement.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/comint.el                 comint.el-20091113204419-o5vbwnq5f7feedwu-149

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-20 06:11:00 +0000
+++ b/lisp/ChangeLog    2013-12-20 06:25:19 +0000
@@ -1,3 +1,8 @@
+2013-12-20  Vitalie Spinu  <address@hidden>
+
+       * comint.el (comint-output-filter): Fix rear-nonsticky property
+       placement (Bug#16010).
+
 2013-12-20  Chong Yidong  <address@hidden>
 
        * faces.el (read-color): Minor fix for completion function.

=== modified file 'lisp/comint.el'
--- a/lisp/comint.el    2013-12-18 03:02:39 +0000
+++ b/lisp/comint.el    2013-12-20 06:25:19 +0000
@@ -2062,23 +2062,22 @@
            (let ((prompt-start (save-excursion (forward-line 0) (point)))
                  (inhibit-read-only t))
              (when comint-prompt-read-only
-                (with-silent-modifications
-                  (or (= (point-min) prompt-start)
-                      (get-text-property (1- prompt-start) 'read-only)
-                      (put-text-property
-                       (1- prompt-start) prompt-start 'read-only 'fence))
-                  (add-text-properties
-                   prompt-start (point)
-                   '(read-only t rear-nonsticky t front-sticky (read-only)))))
+               (with-silent-modifications
+                 (or (= (point-min) prompt-start)
+                     (get-text-property (1- prompt-start) 'read-only)
+                     (put-text-property (1- prompt-start)
+                                        prompt-start 'read-only 'fence))
+                 (add-text-properties prompt-start (point)
+                                      '(read-only t front-sticky 
(read-only)))))
              (when comint-last-prompt
                (remove-text-properties (car comint-last-prompt)
                                        (cdr comint-last-prompt)
                                        '(font-lock-face)))
              (setq comint-last-prompt
                    (cons (copy-marker prompt-start) (point-marker)))
-             (add-text-properties (car comint-last-prompt)
-                                  (cdr comint-last-prompt)
-                                  '(font-lock-face comint-highlight-prompt)))
+             (add-text-properties prompt-start (point)
+                                  '(rear-nonsticky t
+                                    font-lock-face comint-highlight-prompt)))
            (goto-char saved-point)))))))
 
 (defun comint-preinput-scroll-to-bottom ()