(ioccur-read-search-input): kill from current position with C-k.

diff --git a/ioccur.el b/ioccur.el
index 0ddc29a955352a1c33e42a0aa5f5051f9a1eacb8..05719ce3cf5e49ad757e2592f3df358ed5522df3 100644 (file)
--- a/ioccur.el
+++ b/ioccur.el
@@ -720,7 +720,8 @@ START-POINT is the point where we start searching in buffer."
              (with-current-buffer ioccur-current-buffer
                (goto-char start-point)
                (setq yank-point start-point))
-             (kill-new str) (setq tmp-list ()))
+             (kill-new (substring str (- (1- (length tmp-list)) index)))
+             (setq tmp-list (nthcdr index tmp-list)))
            ;; Add cursor in minibuffer
            ;;
            (set-cursor (str pos)