[Emacs-diffs] /srv/bzr/emacs/trunk r105823: Fix yet another woman parser snafu.

[Chong Yidong]

------------------------------------------------------------
revno: 105823
fixes bug(s): http://debbugs.gnu.org/7843
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2011-09-18 12:03:48 -0400
message:
  Fix yet another woman parser snafu.
  
  * woman.el (woman2-process-escapes): Don't delete unrecognized
  escapes (Bug#7843).
modified:
  lisp/ChangeLog
  lisp/woman.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-18 15:30:10 +0000
+++ b/lisp/ChangeLog    2011-09-18 16:03:48 +0000
@@ -1,5 +1,8 @@
 2011-09-18  Chong Yidong  <address@hidden>
 
+       * 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).

=== modified file 'lisp/woman.el'
--- a/lisp/woman.el     2011-09-09 06:34:59 +0000
+++ b/lisp/woman.el     2011-09-18 16:03:48 +0000
@@ -3954,6 +3954,8 @@
     ;; 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 @@
               (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