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> |
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))))))) |
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) |