* woman.el (woman-parse-numeric-value): Handle picas correctly.

Fixes: debbugs:12639

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d02da87446c8514f6cb6fffba1fef31b97c7d1f6..999db57efc07f68ce97ceb3b272c7ad556be541c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-29  Kevin Ryde  <user42@zip.com.au>
+
+       * woman.el (woman-parse-numeric-value): Handle picas correctly
+       (Bug#12639).
+
 2012-10-29  Chong Yidong  <cyd@gnu.org>
 
        * startup.el (fancy-about-screen): Don't message (Bug#12680).

diff --git a/lisp/woman.el b/lisp/woman.el
index c8cc7ea676615704d5fb1638b165051372f5d7c2..e41c489dbfa9355fb17babd7f5db0ee66a89b29d 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -3632,7 +3632,9 @@ expression in parentheses.  Leaves point after the value."
             ((looking-at "[mnuv]"))    ; ignore for now
             ((looking-at "i") (setq n (* n 10))) ; inch
             ((looking-at "c") (setq n (* n 3.9))) ; cm
-            ((looking-at "P") (setq n (* n 1.7))) ; Pica
+            ((let ((case-fold-search nil))
+               (looking-at "P"))
+             (setq n (* n 1.7))) ; Pica
             ((looking-at "p") (setq n (* n 0.14))) ; point
             ;; NB: May be immediately followed by + or -, etc.,
             ;; in which case do nothing and return nil.