From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 26 May 1995 04:00:52 +0000 (+0000)
Subject: (texinfo-sequentially-find-pointer): Don't modify
X-Git-Tag: emacs-19.34~3929
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2db10f13d9d2d2f3bf4255e70f24722b98203ed0;p=emacs.git

(texinfo-sequentially-find-pointer): Don't modify
the kill ring.
---

diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index d43d1c50466..f84cdd51496 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -1347,10 +1347,9 @@ Point must be at beginning of node line.  Does not move point."
 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)