Commit 9e0d4f9e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* 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.
parent a2930e43
...@@ -40,6 +40,8 @@ This can be used in place of the default appt-message-warning-time. ...@@ -40,6 +40,8 @@ This can be used in place of the default appt-message-warning-time.
* Lisp changes in Emacs 23.3 * 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. ** The use of unintern without an obarray arg is declared obsolete.
** New function byte-to-string, like char-to-string but for bytes. ** New function byte-to-string, like char-to-string but for bytes.
......
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> 2010-09-19 Eric M. Ludlam <zappo@gnu.org>
Update to CEDET 1.0's version of EIEIO. Update to CEDET 1.0's version of EIEIO.
* emacs-lisp/eieio.el (eieio-specialized-key-to-generic-key): New * emacs-lisp/eieio.el (eieio-specialized-key-to-generic-key):
function. New function.
(eieio-defmethod, eieio-generic-form, eieio-generic-call): Use it. (eieio-defmethod, eieio-generic-form, eieio-generic-call): Use it.
(eieio-default-eval-maybe): Eval val instead of unquoting only. (eieio-default-eval-maybe): Eval val instead of unquoting only.
(class-precedence-list): If class is nil, return nil. (class-precedence-list): If class is nil, return nil.
...@@ -25,7 +35,7 @@ ...@@ -25,7 +35,7 @@
dfs algorithm. dfs algorithm.
(eieio-class-precedence-bfs): Compute class precedence list using (eieio-class-precedence-bfs): Compute class precedence list using
bfs algorithm. bfs algorithm.
(eieio-class-precedence-c3): compute class precedence list using (eieio-class-precedence-c3): Compute class precedence list using
c3 algorithm. c3 algorithm.
(class-precedence-list): New function. (class-precedence-list): New function.
(eieiomt-method-list, eieiomt-sym-optimize): Use it. (eieiomt-method-list, eieiomt-sym-optimize): Use it.
......
...@@ -369,7 +369,8 @@ documentation for an example.") ...@@ -369,7 +369,8 @@ documentation for an example.")
Used for repeating operations in calculator-repR/L.") Used for repeating operations in calculator-repR/L.")
(defvar calculator-registers ; use user-bindings first (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.") "The association list of calculator register values.")
(defvar calculator-saved-global-map nil (defvar calculator-saved-global-map nil
...@@ -1300,7 +1301,7 @@ arguments." ...@@ -1300,7 +1301,7 @@ arguments."
(calculator-funcall __f__ x y)))) (calculator-funcall __f__ x y))))
(fset 'D (function (fset 'D (function
(lambda (x) (lambda (x)
(if calculator-deg (/ (* x 180) pi) x)))) (if calculator-deg (/ (* x 180) float-pi) x))))
(unwind-protect (eval f) (unwind-protect (eval f)
(if Fbound (fset 'F Fsave) (fmakunbound 'F)) (if Fbound (fset 'F Fsave) (fmakunbound 'F))
(if Dbound (fset 'D Dsave) (fmakunbound 'D))))) (if Dbound (fset 'D Dsave) (fmakunbound 'D)))))
......
...@@ -752,12 +752,12 @@ The values of `calendar-daylight-savings-starts', ...@@ -752,12 +752,12 @@ The values of `calendar-daylight-savings-starts',
(sin (mod (sin (mod
(+ (cadr x) (+ (cadr x)
(* (nth 2 x) U)) (* (nth 2 x) U))
(* 2 pi))))) (* 2 float-pi)))))
solar-data-list))))) solar-data-list)))))
(aberration (aberration
(* 0.0000001 (- (* 17 (cos (+ 3.10 (* 62830.14 U)))) 973))) (* 0.0000001 (- (* 17 (cos (+ 3.10 (* 62830.14 U)))) 973)))
(A1 (mod (+ 2.18 (* U (+ -3375.70 (* 0.36 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 pi))) (A2 (mod (+ 3.51 (* U (+ 125666.39 (* 0.10 U)))) (* 2 float-pi)))
(nutation (* -0.0000001 (+ (* 834 (sin A1)) (* 64 (sin A2)))))) (nutation (* -0.0000001 (+ (* 834 (sin A1)) (* 64 (sin A2))))))
(mod (radians-to-degrees (+ longitude aberration nutation)) 360.0))) (mod (radians-to-degrees (+ longitude aberration nutation)) 360.0)))
......
...@@ -34,25 +34,25 @@ ...@@ -34,25 +34,25 @@
;; provide an easy hook to tell if we are running with floats or not. ;; 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.) ;; 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 (defconst float-e (exp 1) "The value of e (2.7182818...).")
;; a temporary variable all the time. (defvar e float-e "Obsolete since Emacs-23.3. Use `float-e' instead.")
(defvar e (exp 1) "The value of e (2.7182818...).")
(defconst degrees-to-radians (/ pi 180.0) (defconst degrees-to-radians (/ float-pi 180.0)
"Degrees to radian conversion constant.") "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.") "Radian to degree conversion constant.")
;; these expand to a single multiply by a float when byte compiled ;; these expand to a single multiply by a float when byte compiled
(defmacro degrees-to-radians (x) (defmacro degrees-to-radians (x)
"Convert ARG from degrees to radians." "Convert ARG from degrees to radians."
(list '* (/ pi 180.0) x)) (list '* degrees-to-radians x))
(defmacro radians-to-degrees (x) (defmacro radians-to-degrees (x)
"Convert ARG from radians to degrees." "Convert ARG from radians to degrees."
(list '* (/ 180.0 pi) x)) (list '* radians-to-degrees x))
(provide 'lisp-float-type) (provide 'lisp-float-type)
......
...@@ -1377,7 +1377,7 @@ Return t if new char is non-empty." ...@@ -1377,7 +1377,7 @@ Return t if new char is non-empty."
(g (nth 1 crgb)) (g (nth 1 crgb))
(b (nth 2 crgb)) (b (nth 2 crgb))
(brightness (/ (+ r g b) 3.0 256 256)) (brightness (/ (+ r g b) 3.0 256 256))
(val (sin (* brightness (/ pi 2)))) (val (sin (* brightness (/ float-pi 2))))
(rr (* red val)) (rr (* red val))
(gg (* green val)) (gg (* green val))
(bb (* blue val)) (bb (* blue val))
......
...@@ -2939,7 +2939,7 @@ Blanks in the rendered text overwrite any text in the buffer." ...@@ -2939,7 +2939,7 @@ Blanks in the rendered text overwrite any text in the buffer."
Returns a list of points. Each point is on the form (X1 . Y1)." Returns a list of points. Each point is on the form (X1 . Y1)."
(let ((points)) (let ((points))
(while (> n 0) (while (> n 0)
(let* ((angle (* (random 359) (/ pi 180))) (let* ((angle (* (random 359) (/ float-pi 180)))
(dist (random radius)) (dist (random radius))
(point (cons (round (* dist (cos angle))) (point (cons (round (* dist (cos angle)))
(round (* dist (sin angle)))))) (round (* dist (sin angle))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment