[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-units.el
From: |
John Paul Wallington |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-units.el |
Date: |
Sat, 18 Sep 2004 05:35:53 -0400 |
Index: emacs/lisp/calc/calc-units.el
diff -c emacs/lisp/calc/calc-units.el:1.7 emacs/lisp/calc/calc-units.el:1.8
*** emacs/lisp/calc/calc-units.el:1.7 Mon Sep 1 15:45:18 2003
--- emacs/lisp/calc/calc-units.el Sat Sep 18 09:29:35 2004
***************
*** 297,307 ****
(units (calc-var-value 'var-Units))
(expr (calc-top-n 1)))
(unless (and (>= num 0) (<= num 9))
! (errunless "Bad unit number"))
(unless (math-vectorp units)
! (errunless "No \"quick units\" are defined"))
(unless (< pos (length units))
! (errunless "Unit number %d not defined" pos))
(if (math-units-in-expr-p expr nil)
(calc-enter-result 1 (format "cun%d" num)
(math-convert-units expr (nth pos units)))
--- 297,307 ----
(units (calc-var-value 'var-Units))
(expr (calc-top-n 1)))
(unless (and (>= num 0) (<= num 9))
! (error "Bad unit number"))
(unless (math-vectorp units)
! (error "No \"quick units\" are defined"))
(unless (< pos (length units))
! (error "Unit number %d not defined" pos))
(if (math-units-in-expr-p expr nil)
(calc-enter-result 1 (format "cun%d" num)
(math-convert-units expr (nth pos units)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-units.el,
John Paul Wallington <=