[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] /srv/bzr/emacs/elpa r182: * packages/ioccur/ioccur.el (iocc
From: |
thierry volpiatto |
Subject: |
[ELPA-diffs] /srv/bzr/emacs/elpa r182: * packages/ioccur/ioccur.el (ioccur-read-search-input): Fix kill and yank. |
Date: |
Wed, 14 Mar 2012 18:41:33 +0100 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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
;;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] /srv/bzr/emacs/elpa r182: * packages/ioccur/ioccur.el (ioccur-read-search-input): Fix kill and yank.,
thierry volpiatto <=