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 <[EMAIL PROTECTED]>
;; Maintainer: Jay Belanger <[EMAIL PROTECTED]>
--- 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 <[EMAIL PROTECTED]>
;; Maintainer: Jay Belanger <[EMAIL PROTECTED]>
***************
*** 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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
