# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801460852 0
# Node ID 46487d19cdb36fcb03809eed78b1edc23422cc5d
# Parent  ed1176437be9abe76207e5e7964be27b05375ca2
(texinfo-sequentially-find-pointer): Don't modify
the kill ring.

diff -r ed1176437be9 -r 46487d19cdb3 lisp/textmodes/texnfo-upd.el
--- a/lisp/textmodes/texnfo-upd.el	Fri May 26 03:57:42 1995 +0000
+++ b/lisp/textmodes/texnfo-upd.el	Fri May 26 04:00:52 1995 +0000
@@ -1347,10 +1347,9 @@
 Starts from the current position of the cursor, and searches forward
 on the line for a comma and if one is found, deletes the rest of the
 line, including the comma.  Leaves point at beginning of line."
-  (if (search-forward "," (save-excursion (end-of-line) (point)) t)
-      (progn
-        (goto-char (1- (point)))
-        (kill-line nil)))
+  (let ((eol-point (save-excursion (end-of-line) (point))))
+    (if (search-forward "," eol-point t)
+        (delete-region (1- (point)) eol-point)))
   (beginning-of-line))
 
 (defun texinfo-find-pointer (beginning end level direction)