diff options
| author | Miles Bader <miles@gnu.org> | 2002-06-17 08:10:37 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2002-06-17 08:10:37 +0000 |
| commit | 35068823aee067ff7a6244f2b01b254dba687b01 (patch) | |
| tree | c43ea40a7a37dc03703cb54d3db96129301da7b5 /lisp/comint.el | |
| parent | e0156c8db531a321f1af80a8d0f26fdaa8ebc2b5 (diff) | |
| download | emacs-35068823aee067ff7a6244f2b01b254dba687b01.tar.gz | |
(comint-insert-clicked-input): Insert clicked-on previous input without
properties. Patch from John Paul Wallington <jpw@shootybangbang.com>.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 7 |
1 files changed, 3 insertions, 4 deletions
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)))))) |