diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-09-19 11:49:21 +0200 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-09-19 11:49:21 +0200 |
| commit | 9e0d4f9ef1cd4d7149c84475df5cef4d408743b6 (patch) | |
| tree | 2723dc7513591123264d50be0b48c19cc6bcc405 /lisp/calculator.el | |
| parent | a2930e438b2a70726e6d5b09de8b2a9658505c4e (diff) | |
| download | emacs-9e0d4f9ef1cd4d7149c84475df5cef4d408743b6.tar.gz | |
* 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.
Diffstat (limited to 'lisp/calculator.el')
| -rw-r--r-- | lisp/calculator.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index d1b9b517e5f..3d865fba0ef 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -369,7 +369,8 @@ documentation for an example.") 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 @@ arguments." (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))))) |