From 4574557789a826c88514ee3b6a661e4869836da7 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Mon, 29 Oct 2012 18:30:11 +0800 Subject: [PATCH] * woman.el (woman-parse-numeric-value): Handle picas correctly. Fixes: debbugs:12639 --- lisp/ChangeLog | 5 +++++ lisp/woman.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * woman.el (woman-parse-numeric-value): Handle picas correctly + (Bug#12639). + 2012-10-29 Chong Yidong * 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. -- 2.39.2