Mercurial > emacs
comparison lisp/textmodes/outline.el @ 48930:2cbcb30abe6f
(outline-next-visible-heading):
When going forward, test outline-invisible-p at start of header.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 22 Dec 2002 22:02:25 +0000 |
| parents | 8da64061d63d |
| children | 5ade352e8d1c |
comparison
equal
deleted
inserted
replaced
| 48929:d81c005163cb | 48930:2cbcb30abe6f |
|---|---|
| 481 (setq arg (1+ arg))) | 481 (setq arg (1+ arg))) |
| 482 (while (and (not (eobp)) (> arg 0)) | 482 (while (and (not (eobp)) (> arg 0)) |
| 483 (while (and (not (eobp)) | 483 (while (and (not (eobp)) |
| 484 (re-search-forward (concat "^\\(?:" outline-regexp "\\)") | 484 (re-search-forward (concat "^\\(?:" outline-regexp "\\)") |
| 485 nil 'move) | 485 nil 'move) |
| 486 (outline-invisible-p))) | 486 (save-excursion |
| 487 (goto-char (match-beginning 0)) | |
| 488 (outline-invisible-p)))) | |
| 487 (setq arg (1- arg))) | 489 (setq arg (1- arg))) |
| 488 (beginning-of-line)) | 490 (beginning-of-line)) |
| 489 | 491 |
| 490 (defun outline-previous-visible-heading (arg) | 492 (defun outline-previous-visible-heading (arg) |
| 491 "Move to the previous heading line. | 493 "Move to the previous heading line. |