;
; Generic functions for use in nndoc definitions
;
(provide 'nndoc-generic-functions)
(defun nndoc-generic-body-end ()
  (and (re-search-forward
	(concat nndoc-article-begin "\\|" nndoc-file-end)
	nil t)
       (goto-char (match-beginning 0))
       (skip-chars-backward " \t\n")
       (if (eq (following-char) ?\n)
	   (forward-char 1)))
  t)