From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 29 Oct 2012 10:30:11 +0000 (+0800)
Subject: * woman.el (woman-parse-numeric-value): Handle picas correctly.
X-Git-Tag: emacs-24.2.90~209^2~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4574557789a826c88514ee3b6a661e4869836da7;p=emacs.git

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

Fixes: debbugs:12639
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d02da87446c..999db57efc0 100644
--- 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 c8cc7ea6766..e41c489dbfa 100644
--- 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.