Mercurial > emacs
changeset 110525:e950143ab9e0
* lisp/emacs-lisp/float-sup.el (float-pi): New name for `pi'.
(float-e): New name for `e'.
(degrees-to-radians, radians-to-degrees):
* lisp/calendar/solar.el (solar-longitude):
* lisp/calculator.el (calculator-registers, calculator-funcall):
* lisp/textmodes/artist.el (artist-spray-random-points):
* lisp/play/bubbles.el (bubbles--initialize-images): Use new names.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 19 Sep 2010 11:49:21 +0200 |
| parents | bf806d096e9a |
| children | b150a06c6999 |
| files | etc/NEWS lisp/ChangeLog lisp/calculator.el lisp/calendar/solar.el lisp/emacs-lisp/float-sup.el lisp/play/bubbles.el lisp/textmodes/artist.el |
| diffstat | 7 files changed, 31 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/NEWS Sun Sep 19 00:23:57 2010 -0400 +++ b/etc/NEWS Sun Sep 19 11:49:21 2010 +0200 @@ -40,6 +40,8 @@ * Lisp changes in Emacs 23.3 +** `e' and `pi' are now called `float-e' and `float-pi'. + The old names are obsolete. ** The use of unintern without an obarray arg is declared obsolete. ** New function byte-to-string, like char-to-string but for bytes.
--- a/lisp/ChangeLog Sun Sep 19 00:23:57 2010 -0400 +++ b/lisp/ChangeLog Sun Sep 19 11:49:21 2010 +0200 @@ -1,9 +1,19 @@ +2010-09-19 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/float-sup.el (float-pi): New name for `pi'. + (float-e): New name for `e'. + (degrees-to-radians, radians-to-degrees): + * calendar/solar.el (solar-longitude): + * calculator.el (calculator-registers, calculator-funcall): + * textmodes/artist.el (artist-spray-random-points): + * play/bubbles.el (bubbles--initialize-images): Use new names. + 2010-09-19 Eric M. Ludlam <zappo@gnu.org> Update to CEDET 1.0's version of EIEIO. - * emacs-lisp/eieio.el (eieio-specialized-key-to-generic-key): New - function. + * emacs-lisp/eieio.el (eieio-specialized-key-to-generic-key): + New function. (eieio-defmethod, eieio-generic-form, eieio-generic-call): Use it. (eieio-default-eval-maybe): Eval val instead of unquoting only. (class-precedence-list): If class is nil, return nil. @@ -25,7 +35,7 @@ dfs algorithm. (eieio-class-precedence-bfs): Compute class precedence list using bfs algorithm. - (eieio-class-precedence-c3): compute class precedence list using + (eieio-class-precedence-c3): Compute class precedence list using c3 algorithm. (class-precedence-list): New function. (eieiomt-method-list, eieiomt-sym-optimize): Use it.
--- a/lisp/calculator.el Sun Sep 19 00:23:57 2010 -0400 +++ b/lisp/calculator.el Sun Sep 19 11:49:21 2010 +0200 @@ -369,7 +369,8 @@ Used for repeating operations in calculator-repR/L.") (defvar calculator-registers ; use user-bindings first - (append calculator-user-registers (list (cons ?e e) (cons ?p pi))) + (append calculator-user-registers + (list (cons ?e float-e) (cons ?p float-pi))) "The association list of calculator register values.") (defvar calculator-saved-global-map nil @@ -1300,7 +1301,7 @@ (calculator-funcall __f__ x y)))) (fset 'D (function (lambda (x) - (if calculator-deg (/ (* x 180) pi) x)))) + (if calculator-deg (/ (* x 180) float-pi) x)))) (unwind-protect (eval f) (if Fbound (fset 'F Fsave) (fmakunbound 'F)) (if Dbound (fset 'D Dsave) (fmakunbound 'D)))))
--- a/lisp/calendar/solar.el Sun Sep 19 00:23:57 2010 -0400 +++ b/lisp/calendar/solar.el Sun Sep 19 11:49:21 2010 +0200 @@ -752,12 +752,12 @@ (sin (mod (+ (cadr x) (* (nth 2 x) U)) - (* 2 pi))))) + (* 2 float-pi))))) solar-data-list))))) (aberration (* 0.0000001 (- (* 17 (cos (+ 3.10 (* 62830.14 U)))) 973))) - (A1 (mod (+ 2.18 (* U (+ -3375.70 (* 0.36 U)))) (* 2 pi))) - (A2 (mod (+ 3.51 (* U (+ 125666.39 (* 0.10 U)))) (* 2 pi))) + (A1 (mod (+ 2.18 (* U (+ -3375.70 (* 0.36 U)))) (* 2 float-pi))) + (A2 (mod (+ 3.51 (* U (+ 125666.39 (* 0.10 U)))) (* 2 float-pi))) (nutation (* -0.0000001 (+ (* 834 (sin A1)) (* 64 (sin A2)))))) (mod (radians-to-degrees (+ longitude aberration nutation)) 360.0)))
--- a/lisp/emacs-lisp/float-sup.el Sun Sep 19 00:23:57 2010 -0400 +++ b/lisp/emacs-lisp/float-sup.el Sun Sep 19 11:49:21 2010 +0200 @@ -34,25 +34,25 @@ ;; 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 float-pi (* 4 (atan 1)) "The value of Pi (3.1415926...).") +(defconst pi float-pi "Obsolete since Emacs-23.3. Use `float-pi' instead.") -;; It's too inconvenient to make `e' a constant because it's used as -;; a temporary variable all the time. -(defvar e (exp 1) "The value of e (2.7182818...).") +(defconst float-e (exp 1) "The value of e (2.7182818...).") +(defvar e float-e "Obsolete since Emacs-23.3. Use `float-e' instead.") -(defconst degrees-to-radians (/ pi 180.0) +(defconst degrees-to-radians (/ float-pi 180.0) "Degrees to radian conversion constant.") -(defconst radians-to-degrees (/ 180.0 pi) +(defconst radians-to-degrees (/ 180.0 float-pi) "Radian to degree conversion constant.") ;; these expand to a single multiply by a float when byte compiled (defmacro degrees-to-radians (x) "Convert ARG from degrees to radians." - (list '* (/ pi 180.0) x)) + (list '* degrees-to-radians x)) (defmacro radians-to-degrees (x) "Convert ARG from radians to degrees." - (list '* (/ 180.0 pi) x)) + (list '* radians-to-degrees x)) (provide 'lisp-float-type)
--- a/lisp/play/bubbles.el Sun Sep 19 00:23:57 2010 -0400 +++ b/lisp/play/bubbles.el Sun Sep 19 11:49:21 2010 +0200 @@ -1377,7 +1377,7 @@ (g (nth 1 crgb)) (b (nth 2 crgb)) (brightness (/ (+ r g b) 3.0 256 256)) - (val (sin (* brightness (/ pi 2)))) + (val (sin (* brightness (/ float-pi 2)))) (rr (* red val)) (gg (* green val)) (bb (* blue val))
--- a/lisp/textmodes/artist.el Sun Sep 19 00:23:57 2010 -0400 +++ b/lisp/textmodes/artist.el Sun Sep 19 11:49:21 2010 +0200 @@ -2939,7 +2939,7 @@ Returns a list of points. Each point is on the form (X1 . Y1)." (let ((points)) (while (> n 0) - (let* ((angle (* (random 359) (/ pi 180))) + (let* ((angle (* (random 359) (/ float-pi 180))) (dist (random radius)) (point (cons (round (* dist (cos angle))) (round (* dist (sin angle))))))