(isearch-yank-line): C-y yanks to next EOL, not end of current line.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 236993fd00b..f71d6800846 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,9 @@
-2004-10-09  Masatake YAMATO  <jet@gyve.org>
+2004-10-08  Alan Mackenzie  <acm@muc.de>
+
+        * isearch.el (isearch-yank-line): C-y yanks to next EOL, not end
+        of current line.
+
+2004-10-08  Masatake YAMATO  <jet@gyve.org>
 
         * server.el (server-process-filter): Wrap `process-send-region' 
         by `condition-case' to guard the case when the pipe to PROC is 
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 96a3e0e0ac2..45ac5b4d286 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1254,8 +1254,8 @@ might return the position of the end of the line."
 (defun isearch-yank-line ()
   "Pull rest of line from buffer into search string."
   (interactive)
-  (isearch-yank-internal 'line-end-position))
-
+  (isearch-yank-internal
+   (lambda () (line-end-position (if (eolp) 2 1)))))
 
 (defun isearch-search-and-update ()
   ;; Do the search and update the display.