Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(texinfo-sequentially-find-pointer): Don't modify

Browse source 
the kill ring.
This commit is contained in:
Karl Heuer 1995-05-26 04:00:52 +00:00
parent 689cee2acc
commit 2db10f13d9
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/textmodes/texnfo-upd.el
View file

@ -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)