# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1149213855 0
# Node ID f912b6f4d3586f7bb13500919f15d693d2cdff9c
# Parent  8b67793e19f340025263421de0e28c5c1e880b1e
(comint-send-input): Do not add help-echo and mouse-face to input if
`comint-use-prompt-regexp' is non-nil.

diff -r 8b67793e19f3 -r f912b6f4d358 lisp/comint.el
--- a/lisp/comint.el	Thu Jun 01 21:04:58 2006 +0000
+++ b/lisp/comint.el	Fri Jun 02 02:04:15 2006 +0000
@@ -1047,12 +1047,12 @@
 (defun comint-previous-input (arg)
   "Cycle backwards through input history, saving input."
   (interactive "*p")
-  (if (and comint-input-ring-index 
+  (if (and comint-input-ring-index
 	   (or		       ;; leaving the "end" of the ring
 	    (and (< arg 0)		; going down
 		 (eq comint-input-ring-index 0))
 	    (and (> arg 0)		; going up
-		 (eq comint-input-ring-index 
+		 (eq comint-input-ring-index
 		     (1- (ring-length comint-input-ring)))))
 	   comint-stored-incomplete-input)
       (comint-restore-input)
@@ -1510,23 +1510,23 @@
 				(concat input "\n")))
 
 	  (let ((beg (marker-position pmark))
-	      (end (if no-newline (point) (1- (point))))
-	      (inhibit-modification-hooks t))
+		(end (if no-newline (point) (1- (point))))
+		(inhibit-modification-hooks t))
 	    (when (> end beg)
-	      ;; Set text-properties for the input field
-	      (add-text-properties
-	       beg end
-	       '(front-sticky t
-		 font-lock-face comint-highlight-input
-		 mouse-face highlight
-		 help-echo "mouse-2: insert after prompt as new input"))
+	      (add-text-properties beg end
+				   '(front-sticky t
+				     font-lock-face comint-highlight-input))
 	      (unless comint-use-prompt-regexp
 		;; Give old user input a field property of `input', to
 		;; distinguish it from both process output and unsent
 		;; input.  The terminating newline is put into a special
 		;; `boundary' field to make cursor movement between input
 		;; and output fields smoother.
-		(put-text-property beg end 'field 'input)))
+		(add-text-properties
+		 beg end
+		 '(mouse-face highlight
+		   help-echo "mouse-2: insert after prompt as new input"
+		   field input))))
 	    (unless (or no-newline comint-use-prompt-regexp)
 	      ;; Cover the terminating newline
 	      (add-text-properties end (1+ end)