Mercurial > emacs
comparison lisp/textmodes/outline.el @ 24442:252453d80f53
(outline-get-last-sibling): Doc fix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 05 Mar 1999 23:01:03 +0000 |
| parents | 431ec936e2da |
| children | 5ab0869ed2c8 |
comparison
equal
deleted
inserted
replaced
| 24441:6643d1ccd5a1 | 24442:252453d80f53 |
|---|---|
| 702 (progn | 702 (progn |
| 703 (setq arg 0) | 703 (setq arg 0) |
| 704 (error "No previous same-level heading")))))) | 704 (error "No previous same-level heading")))))) |
| 705 | 705 |
| 706 (defun outline-get-last-sibling () | 706 (defun outline-get-last-sibling () |
| 707 "Move to next heading of the same level, and return point or nil if none." | 707 "Move to previous heading of the same level, and return point or nil if none." |
| 708 (let ((level (funcall outline-level))) | 708 (let ((level (funcall outline-level))) |
| 709 (outline-previous-visible-heading 1) | 709 (outline-previous-visible-heading 1) |
| 710 (while (and (> (funcall outline-level) level) | 710 (while (and (> (funcall outline-level) level) |
| 711 (not (bobp))) | 711 (not (bobp))) |
| 712 (outline-previous-visible-heading 1)) | 712 (outline-previous-visible-heading 1)) |