Function: outline-next-preface

outline-next-preface is a byte-compiled function defined in outline.el.gz.

Signature

(outline-next-preface)

Documentation

Skip forward to just before the next heading line.

If there's no following heading line, stop before the newline at the end of the buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/outline.el.gz
(defun outline-next-preface ()
  "Skip forward to just before the next heading line.
If there's no following heading line, stop before the newline
at the end of the buffer."
  (when (if outline-search-function
            (progn
              ;; Emulate "\n" to force finding the next preface
              (unless (eobp) (forward-char 1))
              (funcall outline-search-function nil t))
          (re-search-forward (concat "\n\\(?:" outline-regexp "\\)")
			     nil 'move))
    (goto-char (match-beginning 0))
    ;; Compensate "\n" from the beginning of regexp
    (when (and outline-search-function (not (bobp))) (forward-char -1)))
  ;; FIXME: Use `outline--end-of-previous'.
  (when (and (bolp) (or outline-blank-line (eobp)) (not (bobp)))
    (forward-char -1)))