[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 [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-units.el [lexbind] |
Date: |
Wed, 06 Oct 2004 01:48:36 -0400 |
Index: emacs/lisp/calc/calc-units.el
diff -c emacs/lisp/calc/calc-units.el:1.4.2.2
emacs/lisp/calc/calc-units.el:1.4.2.3
*** emacs/lisp/calc/calc-units.el:1.4.2.2 Tue Oct 14 23:35:49 2003
--- emacs/lisp/calc/calc-units.el Wed Oct 6 05:21:53 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 [lexbind],
Miles Bader <=