Mercurial > emacs
comparison lisp/calc/calc-prog.el @ 58668:827d00badeb5
Add a provide statement.
(calc-Need-calc-prog): Remove it.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 30 Nov 2004 17:20:50 +0000 |
| parents | eba1cd703531 |
| children | f27d7a9c6f27 f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
| 58667:88f98983accf | 58668:827d00badeb5 |
|---|---|
| 24 | 24 |
| 25 ;;; Commentary: | 25 ;;; Commentary: |
| 26 | 26 |
| 27 ;;; Code: | 27 ;;; Code: |
| 28 | 28 |
| 29 | |
| 30 ;; This file is autoloaded from calc-ext.el. | 29 ;; This file is autoloaded from calc-ext.el. |
| 30 | |
| 31 (require 'calc-ext) | 31 (require 'calc-ext) |
| 32 | |
| 33 (require 'calc-macs) | 32 (require 'calc-macs) |
| 34 | |
| 35 (defun calc-Need-calc-prog () nil) | |
| 36 | 33 |
| 37 | 34 |
| 38 (defun calc-equal-to (arg) | 35 (defun calc-equal-to (arg) |
| 39 (interactive "P") | 36 (interactive "P") |
| 40 (calc-wrapper | 37 (calc-wrapper |
| 2281 (+ (if (eq (nth 1 op) 'calcFunc-geq) 2 0) | 2278 (+ (if (eq (nth 1 op) 'calcFunc-geq) 2 0) |
| 2282 (if (eq (car x) 'calcFunc-geq) 1 0)) | 2279 (if (eq (car x) 'calcFunc-geq) 1 0)) |
| 2283 (math-read-expr-level (nth 3 op)) (nth 1 x)) | 2280 (math-read-expr-level (nth 3 op)) (nth 1 x)) |
| 2284 (throw 'syntax "Syntax error")))))) | 2281 (throw 'syntax "Syntax error")))))) |
| 2285 | 2282 |
| 2283 (provide 'calc-prog) | |
| 2284 | |
| 2286 ;;; arch-tag: 4c5a183b-c9e5-4632-bb3f-e41a764518b0 | 2285 ;;; arch-tag: 4c5a183b-c9e5-4632-bb3f-e41a764518b0 |
| 2287 ;;; calc-prog.el ends here | 2286 ;;; calc-prog.el ends here |