diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-09-18 12:03:48 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-09-18 12:03:48 -0400 |
| commit | c940224fe6465158379f951cbee2be4fdd644830 (patch) | |
| tree | a0a24091865e9c4dce558455c732e432118808c6 /lisp/woman.el | |
| parent | 56cd55c849f9e08e732b9fdda59e12f58867de04 (diff) | |
| download | emacs-c940224fe6465158379f951cbee2be4fdd644830.tar.gz | |
Fix yet another woman parser snafu.
* woman.el (woman2-process-escapes): Don't delete unrecognized
escapes (Bug#7843).
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index 75a36d6ac36..7b530d1004f 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -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 |