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

Fixes: debbugs:12639

* woman.el (woman-parse-numeric-value): Handle picas correctly.
Fixes: debbugs:12639
45745577 · Kevin Ryde · Chong Yidong · 2230fa5b · 45745577 · 45745577
Commit 45745577 authored Oct 29, 2012 by Kevin Ryde Committed by Chong Yidong Oct 29, 2012
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/woman.el lisp/woman.el +3 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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).

--- 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.