comparison lisp/woman.el @ 90732:bc10a33dd40b

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 563-582) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 177-185) - Merge from emacs--devo--0 - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-158

90731:a6c97c25a666

  "Decode a buffer in UN*X man-page source format.
No external programs are used."
  (interactive)				; mainly for testing
  (WoMan-log-begin)
  (run-hooks 'woman-pre-format-hook)
  (and (boundp 'font-lock-mode) font-lock-mode (font-lock-mode -1))
  ;; (fundamental-mode)
  (let ((start-time (current-time))	; (HIGH LOW MICROSEC)
	time)				; HIGH * 2**16 + LOW seconds
    (message "WoMan formatting buffer...")

90732:bc10a33dd40b

  "Decode a buffer in UN*X man-page source format.
No external programs are used."
  (interactive)				; mainly for testing
  (WoMan-log-begin)
  (run-hooks 'woman-pre-format-hook)

  ;; look for macro sets that woman cannot handle:
  (goto-char (point-min))
  (let ((case-fold-search nil))
    (unless (and (re-search-forward "^\\.SH[ \n]" (point-max) t)
		 (progn (goto-char (point-min))
			(re-search-forward "^\\.TH[ \n]" (point-max) t))
		 (progn (goto-char (point-min))
			(not (re-search-forward "^\\.\\([pnil]p\\|sh\\)[ \n]"
						(point-max) t))))
      (error "WoMan can only format manpages written in the an format")))

  (and (boundp 'font-lock-mode) font-lock-mode (font-lock-mode -1))
  ;; (fundamental-mode)
  (let ((start-time (current-time))	; (HIGH LOW MICROSEC)
	time)				; HIGH * 2**16 + LOW seconds
    (message "WoMan formatting buffer...")