Mercurial > emacs
comparison lisp/textmodes/outline.el @ 24457:5ab0869ed2c8
(outline-back-to-heading): fix invisible-ok.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 09 Mar 1999 03:13:28 +0000 |
| parents | 252453d80f53 |
| children | a08dbf9b97ed |
comparison
equal
deleted
inserted
replaced
| 24456:c79fbd7d8162 | 24457:5ab0869ed2c8 |
|---|---|
| 336 | 336 |
| 337 (defun outline-back-to-heading (&optional invisible-ok) | 337 (defun outline-back-to-heading (&optional invisible-ok) |
| 338 "Move to previous heading line, or beg of this line if it's a heading. | 338 "Move to previous heading line, or beg of this line if it's a heading. |
| 339 Only visible heading lines are considered, unless INVISIBLE-OK is non-nil." | 339 Only visible heading lines are considered, unless INVISIBLE-OK is non-nil." |
| 340 (beginning-of-line) | 340 (beginning-of-line) |
| 341 (or (outline-on-heading-p t) | 341 (or (outline-on-heading-p invisible-ok) |
| 342 (let (found) | 342 (let (found) |
| 343 (save-excursion | 343 (save-excursion |
| 344 (while (not found) | 344 (while (not found) |
| 345 (or (re-search-backward (concat "^\\(" outline-regexp "\\)") | 345 (or (re-search-backward (concat "^\\(" outline-regexp "\\)") |
| 346 nil t) | 346 nil t) |