mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* lisp/woman.el (woman0-roff-buffer): Process roff escape sequences
occurring prior to the first request.
This commit is contained in:
Chong Yidong 2011-01-28 16:20:40 -05:00
parent 6b91861333
commit 40e22d80ae
2 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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.

12
lisp/woman.el
View file

@ -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"))