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

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

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

revision 1.7 by miles, Mon Sep 1 15:45:18 2003 UTC revision 1.8 by jpw, Sat Sep 18 09:29:35 2004 UTC
# Line 297  Entries are (SYMBOL EXPR DOC-STRING TEMP Line 297  Entries are (SYMBOL EXPR DOC-STRING TEMP
297            (units (calc-var-value 'var-Units))            (units (calc-var-value 'var-Units))
298            (expr (calc-top-n 1)))            (expr (calc-top-n 1)))
299       (unless (and (>= num 0) (<= num 9))       (unless (and (>= num 0) (<= num 9))
300         (errunless "Bad unit number"))         (error "Bad unit number"))
301       (unless (math-vectorp units)       (unless (math-vectorp units)
302         (errunless "No \"quick units\" are defined"))         (error "No \"quick units\" are defined"))
303       (unless (< pos (length units))       (unless (< pos (length units))
304         (errunless "Unit number %d not defined" pos))         (error "Unit number %d not defined" pos))
305       (if (math-units-in-expr-p expr nil)       (if (math-units-in-expr-p expr nil)
306           (calc-enter-result 1 (format "cun%d" num)           (calc-enter-result 1 (format "cun%d" num)
307                              (math-convert-units expr (nth pos units)))                              (math-convert-units expr (nth pos units)))

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

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