Mercurial > emacs

changeset 11929:46487d19cdb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(texinfo-sequentially-find-pointer): Don't modify the kill ring.
author Karl Heuer <kwzh@gnu.org>
date Fri, 26 May 1995 04:00:52 +0000
parents ed1176437be9
children d86841220451
files lisp/textmodes/texnfo-upd.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)