diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2007-04-10 19:30:12 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2007-04-10 19:30:12 +0000 |
commit | c7d397233e3f2baf77c36179eae959a86866932d (patch) | |
tree | e6c7c6d294cc5637d2a6df0c24eaf7597726379b | |
parent | d752a9f9d0ab32efe8f27c41b7d3e05df743f458 (diff) | |
download | emacs-c7d397233e3f2baf77c36179eae959a86866932d.tar.gz |
(woman-decode-buffer): Postphone macro-set check...
(woman-decode-region): ...to here.
-rw-r--r-- | lisp/woman.el | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index 9fa2a764880..0461b553a11 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -2131,18 +2131,6 @@ 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 man pages written with the usual `-man' macros"))) - (and (boundp 'font-lock-mode) font-lock-mode (font-lock-mode -1)) ;; (fundamental-mode) (let ((start-time (current-time)) ; (HIGH LOW MICROSEC) @@ -2298,6 +2286,17 @@ Currently set only from '\" t in the first line of the source file.") ;; conditionals and switch source requests: (woman0-roff-buffer from) + ;; Check 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 man pages written with the usual `-man' macros"))) + ;; Process \k escapes BEFORE changing tab width (?): (goto-char from) (woman-mark-horizonal-position) |