andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(math-format-radix-float): Make pos a local variable.

Browse source 
(math-format-radix-float): Remove unnecessary setq.
(math-radix-float-cache): Declare it.
This commit is contained in:
Jay Belanger 2004-11-26 22:39:01 +00:00
parent adb0a6165d
commit 1bf345d19a
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/calc/calc-bin.el
View file

@ -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.
@ -656,7 +655,8 @@
(let ((fmt (car calc-float-format))
(figs (nth 1 calc-float-format))
(point calc-point-char)
(str nil))
(str nil)
pos)
(if (eq fmt 'fix)
(let* ((afigs (math-abs figs))
(fp (math-float-parts a (> afigs 0)))
@ -751,8 +751,8 @@
(if explo
(let ((estr (let ((calc-number-radix 10)
(calc-group-digits nil))
(setq estr (math-format-number
(math-sub explo eadj))))))
(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,6 +774,7 @@
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)