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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 236993fd00b5bbf3e96f98b5858510784c1793b3..f71d680084642e41f54b284c28f7df2fe7cd5589 100644 (file)
--- 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 96a3e0e0ac22118b191a91881d4be104f5ccce01..45ac5b4d2864d94edd7cda622fe1748b4a9d468a 100644 (file)
--- 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.