;; Does first page have footnotes that belong with previous section?
      (lb-ht-del-dangling-footnote)
(defun lb-ht-del-dangling-footnote nil
  ""
  ;;
  (let (lb-rc)
    (goto-char (point-min))
    (search-forward-regexp lb-re-bracketed-para-integer)
    (setq lb-pt-left-of-page-number (match-beginning 0))
    (when (search-backward-regexp lb-re-footnote-div nil t)
      ;; Bottom of first page does have footnotes.
      (setq lb-pt (match-end 0))
      (goto-char (point-min))
      ;; Does beginning of this section at bottom of first
      ;; page have a footnote number?
      (setq lb-^^N^^
	    (if (search-forward-regexp _-re-footnote-marker-global lb-pt t)
		(match-string 0) nil))
      (if (not lb-^^N^^)
	  (progn (goto-char lb-pt) (beginning-of-line)
		 (delete-region (point) lb-pt-left-of-page-number))
	(goto-char lb-pt) (insert "\n\n\n\n")
	(delete-region (point)
		       (progn (search-forward lb-^^N^^)
			      (search-backward "<p") (point))))))
      ;; Missing page number at bottom?
      ;; Yes when section ends in middle of page and no footnotes.
      ;; Yes when section ends... and footnotes split between sections.
      (progn (progn (goto-char (point-max))
		    (insert "\n\n\n\n")  ;; re below has trailing newlines.
		    (search-backward-regexp "[^ \t\n\r]")
		    (search-backward-regexp "[ \t\n\r]")
		    (search-backward-regexp "[^ \t\n\r]")
		    (forward-char 1))
	     (unless (looking-at lb-re-bracketed-para-integer)
	       (search-backward-regexp lb-re-bracketed-para-integer)
	       (setq lb-str (match-string 1))
	       (goto-char (point-max))
	       (insert "\n\n[" (int-to-string (1+ (string-to-int lb-str)))
		       "]\n\n")))
      ;;
      (setq lb-str (buffer-string))) lb-str))
(provide 'lb-suspense)