[ELPA-diffs] /srv/bzr/emacs/elpa r182: * packages/ioccur/ioccur.el (ioccur-read-search-input): Fix kill and yank.

[thierry volpiatto]

------------------------------------------------------------
revno: 182
committer: thierry volpiatto <address@hidden
branch nick: elpa
timestamp: Wed 2012-03-14 18:41:33 +0100
message:
  * packages/ioccur/ioccur.el (ioccur-read-search-input): Fix kill and yank.
modified:
  packages/ioccur/ioccur.el

=== modified file 'packages/ioccur/ioccur.el'
--- a/packages/ioccur/ioccur.el 2012-03-14 12:44:14 +0000
+++ b/packages/ioccur/ioccur.el 2012-03-14 17:41:33 +0000
@@ -684,12 +684,12 @@
                            (setq cur-hist-elm (ioccur-iter-next it))
                            (setq tmp-list nil)
                            (loop for char across cur-hist-elm
-                              do (push char tmp-list))
+                                 do (push char tmp-list))
                            (setq ioccur-pattern cur-hist-elm)))
                        ;; First call use car of history ring.
                        (setq tmp-list nil)
                        (loop for char across cur-hist-elm
-                          do (push char tmp-list))
+                             do (push char tmp-list))
                        (setq ioccur-pattern cur-hist-elm)
                        (setq start-hist t)))
                  (message "No history available.") (sit-for 2) t))
@@ -698,7 +698,7 @@
            (insert-initial-input ()
              (unless (string= initial-input "")
                (loop for char across initial-input
-                  do (push char tmp-list))))
+                     do (push char (nthcdr index tmp-list)))))
            ;; Maybe start timer.
            ;;
            (start-timer ()
@@ -715,7 +715,7 @@
              (with-current-buffer ioccur-current-buffer
                (goto-char start-point)
                (setq yank-point start-point))
-             (kill-new (substring str (- (1- (length tmp-list)) index)))
+             (kill-new (substring str (- (length tmp-list) index)))
              (setq tmp-list (nthcdr index tmp-list)))
            ;; Add cursor in minibuffer
            ;;