[Emacs-diffs] Changes to emacs/lisp/comint.el

[Juanma Barranquero]

Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.274 emacs/lisp/comint.el:1.275
*** emacs/lisp/comint.el:1.274  Thu Jun 13 05:28:35 2002
--- emacs/lisp/comint.el        Fri Jun 14 05:41:20 2002
***************
*** 1535,1543 ****
  ;; prompt overlay.
  (defun comint-snapshot-last-prompt ()
    (when comint-last-prompt-overlay
!     (add-text-properties (overlay-start comint-last-prompt-overlay)
!                        (overlay-end comint-last-prompt-overlay)
!                        (overlay-properties comint-last-prompt-overlay))))
  
  (defun comint-carriage-motion (string)
    "Handle carriage control characters in comint output.
--- 1535,1544 ----
  ;; prompt overlay.
  (defun comint-snapshot-last-prompt ()
    (when comint-last-prompt-overlay
!     (let ((inhibit-read-only t))
!       (add-text-properties (overlay-start comint-last-prompt-overlay)
!                            (overlay-end comint-last-prompt-overlay)
!                            (overlay-properties comint-last-prompt-overlay)))))
  
  (defun comint-carriage-motion (string)
    "Handle carriage control characters in comint output.
***************
*** 1661,1670 ****
            (set-marker (process-mark process) (point))
  
            (unless comint-use-prompt-regexp-instead-of-fields
!             (add-text-properties comint-last-output-start (point)
!                                  '(rear-nonsticky t
!                                    field output
!                                    inhibit-line-move-field-capture t)))
  
            ;; Highlight the prompt, where we define `prompt' to mean
            ;; the most recent output that doesn't end with a newline.
--- 1662,1672 ----
            (set-marker (process-mark process) (point))
  
            (unless comint-use-prompt-regexp-instead-of-fields
!               (let ((inhibit-read-only t))
!                 (add-text-properties comint-last-output-start (point)
!                                      '(rear-nonsticky t
!                                        field output
!                                        inhibit-line-move-field-capture t))))
  
            ;; Highlight the prompt, where we define `prompt' to mean
            ;; the most recent output that doesn't end with a newline.