diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-24 21:45:32 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-24 21:45:32 +0000 |
| commit | 276d28655e4614e986331ae23237d5566b71f32a (patch) | |
| tree | 4b5ef73cb903cd46f48d8e5d22a4b319ee4e2b5a /lisp/calc/calc-misc.el | |
| parent | 67549a854a0e89cd5e7808a32e912d0dd1b51847 (diff) | |
| download | emacs-276d28655e4614e986331ae23237d5566b71f32a.tar.gz | |
(math-trunc): Replace variable prec by math-trunc-prec.
(math-floor): Replace variable prec by math-floor-prec.
Diffstat (limited to 'lisp/calc/calc-misc.el')
| -rw-r--r-- | lisp/calc/calc-misc.el | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index 159b1ee3178..082bc8826e7 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -3,8 +3,7 @@ ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. ;; Author: David Gillespie <daveg@synaptics.com> -;; Maintainers: D. Goel <deego@gnufans.org> -;; Colin Walters <walters@debian.org> +;; Maintainer: Jay Belanger <belanger@truman.edu> ;; This file is part of GNU Emacs. @@ -593,10 +592,14 @@ loaded and the keystroke automatically re-typed." ;;; Coerce A to be an integer (by truncation toward zero). [I N] [Public] -(defun math-trunc (a &optional prec) - (cond (prec + +;; The variable math-trunc-prec is local to math-trunc, but used by +;; math-trunc-fancy in calc-arith.el, which is called by math-trunc. + +(defun math-trunc (a &optional math-trunc-prec) + (cond (math-trunc-prec (calc-extensions) - (math-trunc-special a prec)) + (math-trunc-special a math-trunc-prec)) ((Math-integerp a) a) ((Math-looks-negp a) (math-neg (math-trunc (math-neg a)))) @@ -607,10 +610,14 @@ loaded and the keystroke automatically re-typed." (defalias 'calcFunc-trunc 'math-trunc) ;;; Coerce A to be an integer (by truncation toward minus infinity). [I N] -(defun math-floor (a &optional prec) ; [Public] - (cond (prec + +;; The variable math-floor-prec is local to math-floor, but used by +;; math-floor-fancy in calc-arith.el, which is called by math-floor. + +(defun math-floor (a &optional math-floor-prec) ; [Public] + (cond (math-floor-prec (calc-extensions) - (math-floor-special a prec)) + (math-floor-special a math-floor-prec)) ((Math-integerp a) a) ((Math-messy-integerp a) (math-trunc a)) ((Math-realp a) |