[Emacs-diffs] Changes to emacs/lisp/calc/calc-frac.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-frac.el
diff -c emacs/lisp/calc/calc-frac.el:1.9 emacs/lisp/calc/calc-frac.el:1.10
*** emacs/lisp/calc/calc-frac.el:1.9    Tue Nov 30 17:09:05 2004
--- emacs/lisp/calc/calc-frac.el        Mon May  2 19:43:25 2005
***************
*** 1,6 ****
  ;;; calc-frac.el --- fraction functions for Calc
  
! ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
  
  ;; Author: David Gillespie <address@hidden>
  ;; Maintainer: Jay Belanger <address@hidden>
--- 1,6 ----
  ;;; calc-frac.el --- fraction functions for Calc
  
! ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, 
Inc.
  
  ;; Author: David Gillespie <address@hidden>
  ;; Maintainer: Jay Belanger <address@hidden>
***************
*** 56,62 ****
     (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt)
         (let ((n nil))
         (if (/= (match-end 0) (match-end 1))
!            (setq n (string-to-int (substring fmt (match-end 1)))
                   fmt (math-match-substring fmt 1)))
         (if (eq n 0) (error "Bad denominator"))
         (calc-change-mode 'calc-frac-format (list fmt n) t))
--- 56,62 ----
     (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt)
         (let ((n nil))
         (if (/= (match-end 0) (match-end 1))
!            (setq n (string-to-number (substring fmt (match-end 1)))
                   fmt (math-match-substring fmt 1)))
         (if (eq n 0) (error "Bad denominator"))
         (calc-change-mode 'calc-frac-format (list fmt n) t))