From e10300728dfe90ef55135dc309c9618db8f88d4b Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Wed, 17 Nov 2004 19:23:01 +0000 Subject: [PATCH] (calc-poly-div-remainder): Declared it. --- lisp/calc/calc-poly.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el index 6ede0888319..8a4b2571d20 100644 --- a/lisp/calc/calc-poly.el +++ b/lisp/calc/calc-poly.el @@ -3,8 +3,7 @@ ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. ;; Author: David Gillespie -;; Maintainers: D. Goel -;; Colin Walters +;; Maintainer: Jay Belanger ;; This file is part of GNU Emacs. @@ -152,6 +151,12 @@ (math-poly-gcd pn pd))) ;;; Return only quotient to top of stack (nil if zero) + +;; calc-poly-div-remainder is a local variable for +;; calc-poly-div (in calc-alg.el), but is used by +;; calcFunc-pdiv, which is called by calc-poly-div. +(defvar calc-poly-div-remainder) + (defun calcFunc-pdiv (pn pd &optional base) (let* ((calc-prefer-frac t) (math-poly-modulus (math-poly-modulus pn pd)) -- 2.39.2