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 <[EMAIL PROTECTED]>
;; Maintainer: Jay Belanger <[EMAIL PROTECTED]>
--- 1,6 ----
;;; calc-frac.el --- fraction functions for Calc
! ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation,
Inc.
;; Author: David Gillespie <[EMAIL PROTECTED]>
;; Maintainer: Jay Belanger <[EMAIL PROTECTED]>
***************
*** 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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
