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

[Jay Belanger]

Index: emacs/lisp/calc/calc-prog.el
diff -c emacs/lisp/calc/calc-prog.el:1.25 emacs/lisp/calc/calc-prog.el:1.26
*** emacs/lisp/calc/calc-prog.el:1.25   Sat Feb 19 20:01:01 2005
--- emacs/lisp/calc/calc-prog.el        Mon May  2 19:44:43 2005
***************
*** 1,6 ****
  ;;; calc-prog.el --- user programmability 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-prog.el --- user programmability 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>
***************
*** 637,643 ****
             (setq part (nconc part (list (if (= (match-beginning 1)
                                                 (match-end 1))
                                              0
!                                           (string-to-int
                                             (buffer-substring
                                              (1+ (match-beginning 1))
                                              (match-end 1)))))))
--- 637,643 ----
             (setq part (nconc part (list (if (= (match-beginning 1)
                                                 (match-end 1))
                                              0
!                                           (string-to-number
                                             (buffer-substring
                                              (1+ (match-beginning 1))
                                              (match-end 1)))))))
***************
*** 727,733 ****
    (goto-char calc-edit-top)
    (while
        (re-search-forward "^\\([0-9]+\\)\\*" nil t)
!     (let ((num (string-to-int (match-string 1)))
            (line (buffer-substring (point) (line-end-position))))
        (goto-char (line-beginning-position))
        (kill-line 1)
--- 727,733 ----
    (goto-char calc-edit-top)
    (while
        (re-search-forward "^\\([0-9]+\\)\\*" nil t)
!     (let ((num (string-to-number (match-string 1)))
            (line (buffer-substring (point) (line-end-position))))
        (goto-char (line-beginning-position))
        (kill-line 1)