/[emacs]/emacs/lisp/calc/calc-bin.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-bin.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by miles, Mon Sep 1 15:45:18 2003 UTC revision 1.9 by jpb, Fri Nov 26 22:39:01 2004 UTC
# Line 3  Line 3 
3  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
4    
5  ;; Author: David Gillespie <daveg@synaptics.com>  ;; Author: David Gillespie <daveg@synaptics.com>
6  ;; Maintainers: D. Goel <deego@gnufans.org>  ;; Maintainer: Jay Belanger <belanger@truman.edu>
 ;;              Colin Walters <walters@debian.org>  
7    
8  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
9    
# Line 656  Line 655 
655    (let ((fmt (car calc-float-format))    (let ((fmt (car calc-float-format))
656          (figs (nth 1 calc-float-format))          (figs (nth 1 calc-float-format))
657          (point calc-point-char)          (point calc-point-char)
658          (str nil))          (str nil)
659            pos)
660      (if (eq fmt 'fix)      (if (eq fmt 'fix)
661          (let* ((afigs (math-abs figs))          (let* ((afigs (math-abs figs))
662                 (fp (math-float-parts a (> afigs 0)))                 (fp (math-float-parts a (> afigs 0)))
# Line 751  Line 751 
751            (if explo            (if explo
752                (let ((estr (let ((calc-number-radix 10)                (let ((estr (let ((calc-number-radix 10)
753                                  (calc-group-digits nil))                                  (calc-group-digits nil))
754                              (setq estr (math-format-number                              (math-format-number
755                                          (math-sub explo eadj))))))                               (math-sub explo eadj)))))
756                  (setq str (if (or (memq calc-language '(math maple))                  (setq str (if (or (memq calc-language '(math maple))
757                                    (> calc-number-radix 14))                                    (> calc-number-radix 14))
758                                (format "%s*%d.^%s" str calc-number-radix estr)                                (format "%s*%d.^%s" str calc-number-radix estr)
# Line 774  Line 774 
774                                  math-radix-digits-cache))))))))                                  math-radix-digits-cache))))))))
775    
776  (defvar math-radix-float-cache-tag nil)  (defvar math-radix-float-cache-tag nil)
777    (defvar math-radix-float-cache)
778    
779  (defun math-radix-float-power (n)  (defun math-radix-float-power (n)
780    (if (eq n 0)    (if (eq n 0)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26