Mercurial > emacs
comparison lisp/textmodes/texnfo-upd.el @ 11929:46487d19cdb3
(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 | d7a5151c87b4 |
children | e04324240c6b |
comparison
equal
deleted
inserted
replaced
11928:ed1176437be9 | 11929:46487d19cdb3 |
---|---|
1345 (defun texinfo-delete-existing-pointers () | 1345 (defun texinfo-delete-existing-pointers () |
1346 "Delete `Next', `Previous', and `Up' pointers. | 1346 "Delete `Next', `Previous', and `Up' pointers. |
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) |
1357 "Move point to section associated with next, previous, or up pointer. | 1356 "Move point to section associated with next, previous, or up pointer. |
1358 Return type of pointer (either 'normal or 'no-pointer). | 1357 Return type of pointer (either 'normal or 'no-pointer). |