Fix yet another woman parser snafu.
* woman.el (woman2-process-escapes): Don't delete unrecognized escapes (Bug#7843).
This commit is contained in:
parent
56cd55c849
commit
c940224fe6
2 changed files with 6 additions and 6 deletions
|
@ -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).
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue