Mercurial > emacs
comparison lisp/calc/calc-aent.el @ 58645:157fd661769f
Add a provide statement.
(calc-Need-calc-aent): Remove it.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 30 Nov 2004 16:59:39 +0000 |
| parents | 79b3fe261527 |
| children | f3d24ef9bf58 f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
| 58644:14b3f432fd7e | 58645:157fd661769f |
|---|---|
| 28 | 28 |
| 29 ;; This file is autoloaded from calc.el. | 29 ;; This file is autoloaded from calc.el. |
| 30 | 30 |
| 31 (require 'calc) | 31 (require 'calc) |
| 32 (require 'calc-macs) | 32 (require 'calc-macs) |
| 33 | |
| 34 (defun calc-Need-calc-aent () nil) | |
| 35 | |
| 36 | 33 |
| 37 (defun calc-do-quick-calc () | 34 (defun calc-do-quick-calc () |
| 38 (calc-check-defines) | 35 (calc-check-defines) |
| 39 (if (eq major-mode 'calc-mode) | 36 (if (eq major-mode 'calc-mode) |
| 40 (calc-algebraic-entry t) | 37 (calc-algebraic-entry t) |
| 1164 ((equal math-expr-data "<") | 1161 ((equal math-expr-data "<") |
| 1165 (require 'calc-ext) | 1162 (require 'calc-ext) |
| 1166 (math-read-angle-brackets)) | 1163 (math-read-angle-brackets)) |
| 1167 (t (throw 'syntax "Expected a number"))))) | 1164 (t (throw 'syntax "Expected a number"))))) |
| 1168 | 1165 |
| 1166 (provide 'calc-aent) | |
| 1167 | |
| 1169 ;;; arch-tag: 5599e45d-e51e-44bb-9a20-9f4ed8c96c32 | 1168 ;;; arch-tag: 5599e45d-e51e-44bb-9a20-9f4ed8c96c32 |
| 1170 ;;; calc-aent.el ends here | 1169 ;;; calc-aent.el ends here |