/[emacs]/emacs/lisp/calc/calc-prog.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-prog.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by jpb, Sat Feb 19 20:01:01 2005 UTC revision 1.26 by jpb, Mon May 2 19:44:43 2005 UTC
# Line 1  Line 1 
1  ;;; calc-prog.el --- user programmability functions for Calc  ;;; calc-prog.el --- user programmability functions for Calc
2    
3  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc.
4    
5  ;; Author: David Gillespie <daveg@synaptics.com>  ;; Author: David Gillespie <daveg@synaptics.com>
6  ;; Maintainer: Jay Belanger <belanger@truman.edu>  ;; Maintainer: Jay Belanger <belanger@truman.edu>
# Line 637  Line 637 
637               (setq part (nconc part (list (if (= (match-beginning 1)               (setq part (nconc part (list (if (= (match-beginning 1)
638                                                   (match-end 1))                                                   (match-end 1))
639                                                0                                                0
640                                              (string-to-int                                              (string-to-number
641                                               (buffer-substring                                               (buffer-substring
642                                                (1+ (match-beginning 1))                                                (1+ (match-beginning 1))
643                                                (match-end 1)))))))                                                (match-end 1)))))))
# Line 727  Line 727 
727    (goto-char calc-edit-top)    (goto-char calc-edit-top)
728    (while    (while
729        (re-search-forward "^\\([0-9]+\\)\\*" nil t)        (re-search-forward "^\\([0-9]+\\)\\*" nil t)
730      (let ((num (string-to-int (match-string 1)))      (let ((num (string-to-number (match-string 1)))
731            (line (buffer-substring (point) (line-end-position))))            (line (buffer-substring (point) (line-end-position))))
732        (goto-char (line-beginning-position))        (goto-char (line-beginning-position))
733        (kill-line 1)        (kill-line 1)

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26