# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1024558204 0
# Node ID e8271a03c1ebcf9e1e94de4370f61b3d1fb7f4e1
# Parent  09f444dd0dfe8d22547f2a75f38fc4482aa5d95b
(comint-get-old-input-default): Strip text properties for fields too.

(comint-output-filter): Run output-filter functions before setting up
the prompt.

diff -r 09f444dd0dfe -r e8271a03c1eb lisp/comint.el
--- a/lisp/comint.el	Thu Jun 20 01:02:57 2002 +0000
+++ b/lisp/comint.el	Thu Jun 20 07:30:04 2002 +0000
@@ -1660,6 +1660,9 @@
 	    ;; 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,9 +1687,7 @@
 		  (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)))))))
+	    (goto-char saved-point)))))))
 
 (defun comint-preinput-scroll-to-bottom ()
   "Go to the end of buffer in all windows showing it.
@@ -1794,7 +1795,7 @@
 `comint-prompt-regexp' removed."
   (let ((bof (field-beginning)))
     (if (eq (get-char-property bof 'field) 'input)
-	(field-string bof)
+	(field-string-no-properties bof)
       (comint-bol)
       (buffer-substring-no-properties (point) (line-end-position)))))