Function: hyrolo-hdr-move-after-p

hyrolo-hdr-move-after-p is a byte-compiled function defined in hyrolo.el.

Signature

(hyrolo-hdr-move-after-p)

Documentation

If point is within a file header, move past the hdr and blank lines.

Return non-nil if point moves, else return nil.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260822.1645/hyrolo.el
(defun hyrolo-hdr-move-after-p ()
  "If point is within a file header, move past the hdr and blank lines.
Return non-nil if point moves, else return nil."
  (let ((opoint (point))
        result)
    (setq result (cond ((eobp)
                        nil)
                       ((hyrolo-hdr-in-p)
                        (if (derived-mode-p 'hyrolo-mode)
                            (or (hyrolo-to-next-entry)
                                (goto-char (point-max)))
                          (if (re-search-forward hyrolo-entry-regexp nil t)
                              (goto-char (match-beginning 0))
                            (goto-char (point-max)))))))

    (if (> (point) opoint)
	(progn (when (outline-invisible-p)
                 (setq opoint (point))
                 (goto-char (or (next-single-char-property-change (point) 'invisible)
                                (point)))
                 ;; Have to move past end-of-line if have moved
                 (when (> (point) opoint)
                   (goto-char (1+ (point)))))
               (while (and (looking-at-p "^[ \t]*$")
                           (zerop (forward-line 1))))
	       result)
      (goto-char opoint)
      nil)))