# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1024301422 0
# Node ID 875b299f29c64b944e031ee78acd0c6173b35333
# Parent  a78008e81b3d3d80ec7c032a68b6af53d0fb59c2
(comint-insert-clicked-input): Insert clicked-on previous input without
properties.  Patch from John Paul Wallington <jpw@shootybangbang.com>.

diff -r a78008e81b3d -r 875b299f29c6 lisp/comint.el
--- a/lisp/comint.el	Mon Jun 17 06:08:23 2002 +0000
+++ b/lisp/comint.el	Mon Jun 17 08:10:22 2002 +0000
@@ -779,10 +779,9 @@
 	   (process-mark (get-buffer-process (current-buffer))))
        (point))
       ;; Insert the clicked-upon input
-      (insert-buffer-substring
-       (current-buffer)
-       (previous-single-char-property-change (1+ pos) 'field)
-       (next-single-char-property-change pos 'field)))))
+      (insert (buffer-substring-no-properties
+	       (previous-single-char-property-change (1+ pos) 'field)
+	       (next-single-char-property-change pos 'field))))))