From: Miles Bader <miles@gnu.org>
Date: Mon, 17 Jun 2002 08:10:37 +0000 (+0000)
Subject: (comint-insert-clicked-input): Insert clicked-on previous input without
X-Git-Tag: ttn-vms-21-2-B4~14592
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35068823aee067ff7a6244f2b01b254dba687b01;p=emacs.git

(comint-insert-clicked-input): Insert clicked-on previous input without
properties.  Patch from John Paul Wallington <jpw@shootybangbang.com>.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 236fc1ff021..e402b87d793 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-17  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* comint.el (comint-insert-clicked-input): Insert clicked-on
+	previous input without properties.
+
 2002-06-16  Andrew Choi  <akochoi@shaw.ca>
 
 	* term/mac-win.el (scalable-fonts-allowed): Set to t.
diff --git a/lisp/comint.el b/lisp/comint.el
index f864da96496..7aeba47baec 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -779,10 +779,9 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
 	   (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))))))