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

[Miles Bader]

Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.272 emacs/lisp/comint.el:1.273
*** emacs/lisp/comint.el:1.272  Mon Jun 10 04:14:26 2002
--- emacs/lisp/comint.el        Wed Jun 12 05:16:51 2002
***************
*** 1446,1452 ****
  
          (let ((beg (marker-position pmark))
                (end (if no-newline (point) (1- (point)))))
!           (when (not (> beg end))     ; handle a special case
              ;; Set text-properties for the input field
              (add-text-properties
               beg end
--- 1446,1452 ----
  
          (let ((beg (marker-position pmark))
                (end (if no-newline (point) (1- (point)))))
!           (when (> end beg)
              ;; Set text-properties for the input field
              (add-text-properties
               beg end
***************
*** 1461,1467 ****
                ;; `boundary' field to make cursor movement between input
                ;; and output fields smoother.
                (put-text-property beg end 'field 'input)))
!           (unless comint-use-prompt-regexp-instead-of-fields
              ;; Cover the terminating newline
              (add-text-properties end (1+ end)
                                   '(rear-nonsticky t
--- 1461,1467 ----
                ;; `boundary' field to make cursor movement between input
                ;; and output fields smoother.
                (put-text-property beg end 'field 'input)))
!           (unless (or no-newline comint-use-prompt-regexp-instead-of-fields)
              ;; Cover the terminating newline
              (add-text-properties end (1+ end)
                                   '(rear-nonsticky t