[Emacs-diffs] /srv/bzr/emacs/trunk r103011: Fix for woman escape sequence processing (Bug#7843).

[Chong Yidong]

------------------------------------------------------------
revno: 103011
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Fri 2011-01-28 16:20:40 -0500
message:
  Fix for woman escape sequence processing (Bug#7843).
  
  * lisp/woman.el (woman0-roff-buffer): Process roff escape sequences
  occurring prior to the first request.
modified:
  lisp/ChangeLog
  lisp/woman.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-28 19:46:58 +0000
+++ b/lisp/ChangeLog    2011-01-28 21:20:40 +0000
@@ -1,3 +1,8 @@
+2011-01-28  Chong Yidong  <address@hidden>
+
+       * woman.el (woman0-roff-buffer): Process roff escape sequences
+       occurring prior to the first request (Bug#7843).
+
 2011-01-28  Stefan Monnier  <address@hidden>
 
        Port features from the previous prolog.el to the new one.

=== modified file 'lisp/woman.el'
--- a/lisp/woman.el     2011-01-25 04:08:28 +0000
+++ b/lisp/woman.el     2011-01-28 21:20:40 +0000
@@ -2478,10 +2478,22 @@
        (woman0-search-regex-start woman0-search-regex-start)
        (woman0-search-regex
         (concat woman0-search-regex-start woman0-search-regex-end))
+       processed-first-hunk
        woman0-rename-alist)
     (set-marker-insertion-type woman0-if-to t)
     (while (re-search-forward woman0-search-regex nil t)
       (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))
            ((string= woman-request "if") (woman0-if "if"))
            ((string= woman-request "ie") (woman0-if "ie"))