(math-trunc): Replace variable prec by math-trunc-prec.

(math-floor): Replace variable prec by math-floor-prec.

1 files changed, 15 insertions, 8 deletions

diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index 159b1ee317..082bc8826e 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 <[email protected]>
-;; Maintainers: D. Goel <[email protected]>
-;;              Colin Walters <[email protected]>
+;; Maintainer: Jay Belanger <[email protected]>
 
 ;; 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)