Fix yet another woman parser snafu.

* woman.el (woman2-process-escapes): Don't delete unrecognized
escapes (Bug#7843).
This commit is contained in:
Chong Yidong 2011-09-18 12:03:48 -04:00
parent 56cd55c849
commit c940224fe6
2 changed files with 6 additions and 6 deletions

View file

@ -1,5 +1,8 @@
2011-09-18 Chong Yidong <cyd@stupidchicken.com>
* woman.el (woman2-process-escapes): Don't delete unrecognized
escapes (Bug#7843).
* files.el (inhibit-first-line-modes-regexps): Add image files.
(hack-local-variables-prop-line): Return nil for malformed
prop-lines (Bug#9044).

View file

@ -3954,6 +3954,8 @@ Optional argument NUMERIC, if non-nil, means the argument is numeric."
;; Done like this to preserve any text properties of the `\'
(while (search-forward "\\" to t)
(let ((c (following-char)))
;; Some other escapes, such as \f, are handled in
;; `woman0-process-escapes'.
(cond ((eq c ?') ; \' -> '
(delete-char -1)
(cond (numeric ; except in numeric args, \' -> `
@ -3967,12 +3969,7 @@ Optional argument NUMERIC, if non-nil, means the argument is numeric."
(insert "\t"))
((and numeric
(memq c '(?w ?n ?h)))) ; leave \w, \n, \h (?????)
((eq c ?l) (woman-horizontal-line))
(t
;; \? -> ? where ? is any remaining character
(WoMan-warn "Escape ignored: \\%c -> %c" c c)
(delete-char -1))
)))
((eq c ?l) (woman-horizontal-line)))))
(goto-char from)
;; Process non-default tab settings:
(cond (tab-stop-list