# HG changeset patch # User Pavel Jank # Date 1008055920 0 # Node ID 5c0777cdb4436d4ace675ef24a3b6d57be4abbd4 # Parent ac3936e792acb783594eadc5770d6b24c6c74a44 Doc fixes. diff -r ac3936e792ac -r 5c0777cdb443 lisp/float-sup.el --- a/lisp/float-sup.el Tue Dec 11 07:29:21 2001 +0000 +++ b/lisp/float-sup.el Tue Dec 11 07:32:00 2001 +0000 @@ -27,8 +27,6 @@ ;; Provide a meaningful error message if we are running on ;; bare (non-float) emacs. -;; Can't test for 'floatp since that may be defined by float-imitation -;; packages like float.el in this very directory. (if (fboundp 'atan) nil @@ -36,17 +34,17 @@ ;; provide an easy hook to tell if we are running with floats or not. ;; define pi and e via math-lib calls. (much less prone to killer typos.) -(defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...)") -(defconst e (exp 1) "The value of e (2.7182818...)") +(defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...).") +(defconst e (exp 1) "The value of e (2.7182818...).") ;; Careful when editing this file ... typos here will be hard to spot. ;; (defconst pi 3.14159265358979323846264338327 ;; "The value of Pi (3.14159265358979323846264338327...)") (defconst degrees-to-radians (/ pi 180.0) - "Degrees to radian conversion constant") + "Degrees to radian conversion constant.") (defconst radians-to-degrees (/ 180.0 pi) - "Radian to degree conversion constant") + "Radian to degree conversion constant.") ;; these expand to a single multiply by a float when byte compiled