# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1100719381 0
# Node ID 78096f4dea9d540b66ad55794743a222acb9492e
# Parent  4a12728aef722f11351fb7ed929e71806e1a36a9
(calc-poly-div-remainder):  Declared it.

diff -r 4a12728aef72 -r 78096f4dea9d lisp/calc/calc-poly.el
--- a/lisp/calc/calc-poly.el	Wed Nov 17 19:22:31 2004 +0000
+++ b/lisp/calc/calc-poly.el	Wed Nov 17 19:23:01 2004 +0000
@@ -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.
 
@@ -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))