Commit 40e22d80 authored by Chong Yidong's avatar Chong Yidong
Browse files

Fix for woman escape sequence processing (Bug#7843).

* lisp/woman.el (woman0-roff-buffer): Process roff escape sequences
occurring prior to the first request.
parent 6b918613
2011-01-28 Chong Yidong <cyd@stupidchicken.com>
* woman.el (woman0-roff-buffer): Process roff escape sequences
occurring prior to the first request (Bug#7843).
2011-01-28 Stefan Monnier <monnier@iro.umontreal.ca> 2011-01-28 Stefan Monnier <monnier@iro.umontreal.ca>
Port features from the previous prolog.el to the new one. Port features from the previous prolog.el to the new one.
......
...@@ -2478,10 +2478,22 @@ Start at FROM and re-scan new text as appropriate." ...@@ -2478,10 +2478,22 @@ Start at FROM and re-scan new text as appropriate."
(woman0-search-regex-start woman0-search-regex-start) (woman0-search-regex-start woman0-search-regex-start)
(woman0-search-regex (woman0-search-regex
(concat woman0-search-regex-start woman0-search-regex-end)) (concat woman0-search-regex-start woman0-search-regex-end))
processed-first-hunk
woman0-rename-alist) woman0-rename-alist)
(set-marker-insertion-type woman0-if-to t) (set-marker-insertion-type woman0-if-to t)
(while (re-search-forward woman0-search-regex nil t) (while (re-search-forward woman0-search-regex nil t)
(setq woman-request (match-string 1)) (setq woman-request (match-string 1))
;; Process escape sequences prior to first request (Bug#7843).
(unless processed-first-hunk
(setq processed-first-hunk t)
(let ((process-escapes-to-marker (point-marker)))
(set-marker-insertion-type process-escapes-to-marker t)
(save-match-data
(save-excursion
(goto-char from)
(woman2-process-escapes process-escapes-to-marker)))))
(cond ((string= woman-request "ig") (woman0-ig)) (cond ((string= woman-request "ig") (woman0-ig))
((string= woman-request "if") (woman0-if "if")) ((string= woman-request "if") (woman0-if "if"))
((string= woman-request "ie") (woman0-if "ie")) ((string= woman-request "ie") (woman0-if "ie"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment