[Emacs-diffs] Changes to emacs/lisp/calc/calc-bin.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-bin.el
diff -c emacs/lisp/calc/calc-bin.el:1.8 emacs/lisp/calc/calc-bin.el:1.9
*** emacs/lisp/calc/calc-bin.el:1.8     Mon Sep  1 15:45:18 2003
--- emacs/lisp/calc/calc-bin.el Fri Nov 26 22:39:01 2004
***************
*** 3,10 ****
  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
  
  ;; Author: David Gillespie <address@hidden>
! ;; Maintainers: D. Goel <address@hidden>
! ;;              Colin Walters <address@hidden>
  
  ;; This file is part of GNU Emacs.
  
--- 3,9 ----
  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
  
  ;; Author: David Gillespie <address@hidden>
! ;; Maintainer: Jay Belanger <address@hidden>
  
  ;; This file is part of GNU Emacs.
  
***************
*** 656,662 ****
    (let ((fmt (car calc-float-format))
        (figs (nth 1 calc-float-format))
        (point calc-point-char)
!       (str nil))
      (if (eq fmt 'fix)
        (let* ((afigs (math-abs figs))
               (fp (math-float-parts a (> afigs 0)))
--- 655,662 ----
    (let ((fmt (car calc-float-format))
        (figs (nth 1 calc-float-format))
        (point calc-point-char)
!       (str nil)
!         pos)
      (if (eq fmt 'fix)
        (let* ((afigs (math-abs figs))
               (fp (math-float-parts a (> afigs 0)))
***************
*** 751,758 ****
          (if explo
              (let ((estr (let ((calc-number-radix 10)
                                (calc-group-digits nil))
!                           (setq estr (math-format-number
!                                       (math-sub explo eadj))))))
                (setq str (if (or (memq calc-language '(math maple))
                                  (> calc-number-radix 14))
                              (format "%s*%d.^%s" str calc-number-radix estr)
--- 751,758 ----
          (if explo
              (let ((estr (let ((calc-number-radix 10)
                                (calc-group-digits nil))
!                             (math-format-number
!                              (math-sub explo eadj)))))
                (setq str (if (or (memq calc-language '(math maple))
                                  (> calc-number-radix 14))
                              (format "%s*%d.^%s" str calc-number-radix estr)
***************
*** 774,779 ****
--- 774,780 ----
                                math-radix-digits-cache))))))))
  
  (defvar math-radix-float-cache-tag nil)
+ (defvar math-radix-float-cache)
  
  (defun math-radix-float-power (n)
    (if (eq n 0)