;; Suspense.
;; Emacs-Time-stamp: "2010-02-13 22:15:38"
(setq file-stamp "Emacs-File-stamp: \"/home/ysverdlov/leninist.biz/lb-suspense.el\"")

(when nil
  ;; 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 lb-str)
    (goto-char (point-min))
    
    (search-forward-regexp lb-re-maybe-bracketed-page-numberno-para)
    (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 "