diff options
| author | Karl Heuer | 1995-05-26 04:00:52 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-26 04:00:52 +0000 |
| commit | 2db10f13d9d2d2f3bf4255e70f24722b98203ed0 (patch) | |
| tree | 858edb25ab555c52dd36114cf3e6a65cccc62159 /lisp/textmodes | |
| parent | 689cee2acc0942f27ef57f6b8c5cf6f4b21cbc55 (diff) | |
| download | emacs-2db10f13d9d2d2f3bf4255e70f24722b98203ed0.tar.gz emacs-2db10f13d9d2d2f3bf4255e70f24722b98203ed0.zip | |
(texinfo-sequentially-find-pointer): Don't modify
the kill ring.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/texnfo-upd.el | 7 |
1 files changed, 3 insertions, 4 deletions
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." | |||
| 1347 | Starts from the current position of the cursor, and searches forward | 1347 | Starts from the current position of the cursor, and searches forward |
| 1348 | on the line for a comma and if one is found, deletes the rest of the | 1348 | on the line for a comma and if one is found, deletes the rest of the |
| 1349 | line, including the comma. Leaves point at beginning of line." | 1349 | line, including the comma. Leaves point at beginning of line." |
| 1350 | (if (search-forward "," (save-excursion (end-of-line) (point)) t) | 1350 | (let ((eol-point (save-excursion (end-of-line) (point)))) |
| 1351 | (progn | 1351 | (if (search-forward "," eol-point t) |
| 1352 | (goto-char (1- (point))) | 1352 | (delete-region (1- (point)) eol-point))) |
| 1353 | (kill-line nil))) | ||
| 1354 | (beginning-of-line)) | 1353 | (beginning-of-line)) |
| 1355 | 1354 | ||
| 1356 | (defun texinfo-find-pointer (beginning end level direction) | 1355 | (defun texinfo-find-pointer (beginning end level direction) |