diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:43:25 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:43:25 +0000 |
| commit | d227f871c91e27aa7b7c117284f15d88a4eed4a9 (patch) | |
| tree | 853b4a9b0bc32dd8c527fc7a5e0bff0e0eba8efe /lisp/calc/calc-frac.el | |
| parent | 5574e20901521b18c6c8d314dfa1d1d51d0a44f1 (diff) | |
| download | emacs-d227f871c91e27aa7b7c117284f15d88a4eed4a9.tar.gz | |
(calc-over-notation): Replace string-to-int by string-to-number.
Diffstat (limited to 'lisp/calc/calc-frac.el')
| -rw-r--r-- | lisp/calc/calc-frac.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-frac.el b/lisp/calc/calc-frac.el index cdb8ac9beb6..87ee59440c3 100644 --- a/lisp/calc/calc-frac.el +++ b/lisp/calc/calc-frac.el @@ -1,6 +1,6 @@ ;;; calc-frac.el --- fraction functions for Calc -;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc. ;; Author: David Gillespie <daveg@synaptics.com> ;; Maintainer: Jay Belanger <belanger@truman.edu> @@ -56,7 +56,7 @@ (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))) + (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)) |