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

[Miles Bader]

Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.278 emacs/lisp/comint.el:1.279
*** emacs/lisp/comint.el:1.278  Tue Jun 18 10:36:07 2002
--- emacs/lisp/comint.el        Thu Jun 20 03:30:04 2002
***************
*** 1660,1665 ****
--- 1660,1668 ----
            ;; Advance process-mark
            (set-marker (process-mark process) (point))
  
+           (run-hook-with-args 'comint-output-filter-functions string)
+           (goto-char (process-mark process)) ; in case a filter moved it
+ 
            (unless comint-use-prompt-regexp-instead-of-fields
                (let ((inhibit-read-only t))
                  (add-text-properties comint-last-output-start (point)
***************
*** 1684,1692 ****
                  (overlay-put comint-last-prompt-overlay
                               'font-lock-face 'comint-highlight-prompt))))
  
!           (goto-char saved-point)
! 
!           (run-hook-with-args 'comint-output-filter-functions string)))))))
  
  (defun comint-preinput-scroll-to-bottom ()
    "Go to the end of buffer in all windows showing it.
--- 1687,1693 ----
                  (overlay-put comint-last-prompt-overlay
                               'font-lock-face 'comint-highlight-prompt))))
  
!           (goto-char saved-point)))))))
  
  (defun comint-preinput-scroll-to-bottom ()
    "Go to the end of buffer in all windows showing it.
***************
*** 1794,1800 ****
  `comint-prompt-regexp' removed."
    (let ((bof (field-beginning)))
      (if (eq (get-char-property bof 'field) 'input)
!       (field-string bof)
        (comint-bol)
        (buffer-substring-no-properties (point) (line-end-position)))))
  
--- 1795,1801 ----
  `comint-prompt-regexp' removed."
    (let ((bof (field-beginning)))
      (if (eq (get-char-property bof 'field) 'input)
!       (field-string-no-properties bof)
        (comint-bol)
        (buffer-substring-no-properties (point) (line-end-position)))))