[Emacs-diffs] /srv/bzr/emacs/trunk r110723: * woman.el (woman-parse-numeric-value): Handle picas correctly.

[Chong Yidong]

------------------------------------------------------------
revno: 110723
fixes bug: http://debbugs.gnu.org/12639
author: Kevin Ryde <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2012-10-29 18:30:11 +0800
message:
  * woman.el (woman-parse-numeric-value): Handle picas correctly.
modified:
  lisp/ChangeLog
  lisp/woman.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-29 10:14:50 +0000
+++ b/lisp/ChangeLog    2012-10-29 10:30:11 +0000
@@ -1,3 +1,8 @@
+2012-10-29  Kevin Ryde  <address@hidden>
+
+       * woman.el (woman-parse-numeric-value): Handle picas correctly
+       (Bug#12639).
+
 2012-10-29  Chong Yidong  <address@hidden>
 
        * startup.el (fancy-about-screen): Don't message (Bug#12680).

=== modified file 'lisp/woman.el'
--- a/lisp/woman.el     2012-08-26 10:29:37 +0000
+++ b/lisp/woman.el     2012-10-29 10:30:11 +0000
@@ -3632,7 +3632,9 @@
             ((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.