diff options
| author | Kevin Ryde <user42@zip.com.au> | 2012-10-29 18:30:11 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-10-29 18:30:11 +0800 |
| commit | 4574557789a826c88514ee3b6a661e4869836da7 (patch) | |
| tree | 37348991508d02d92dabc5d6cdfa6c8bf0fec443 /lisp/woman.el | |
| parent | 2230fa5bbf67bfefe797d77d4ed73c5c6342209b (diff) | |
| download | emacs-4574557789a826c88514ee3b6a661e4869836da7.tar.gz | |
* woman.el (woman-parse-numeric-value): Handle picas correctly.
Fixes: debbugs:12639
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 4 |
1 files changed, 3 insertions, 1 deletions
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. |