mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source 
Fixes: debbugs:12639
This commit is contained in:
Kevin Ryde 2012-10-29 18:30:11 +08:00 committed by Chong Yidong
parent 2230fa5bbf
commit 4574557789
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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> 2012-10-29 Chong Yidong <cyd@gnu.org>
* startup.el (fancy-about-screen): Don't message (Bug#12680). * startup.el (fancy-about-screen): Don't message (Bug#12680).

4
lisp/woman.el
View File

@ -3632,7 +3632,9 @@ expression in parentheses. Leaves point after the value."
((looking-at "[mnuv]")) ; ignore for now ((looking-at "[mnuv]")) ; ignore for now
((looking-at "i") (setq n (* n 10))) ; inch ((looking-at "i") (setq n (* n 10))) ; inch
((looking-at "c") (setq n (* n 3.9))) ; cm ((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 ((looking-at "p") (setq n (* n 0.14))) ; point
;; NB: May be immediately followed by + or -, etc., ;; NB: May be immediately followed by + or -, etc.,
;; in which case do nothing and return nil. ;; in which case do nothing and return nil.