Mercurial > emacs
comparison lisp/calc/calc-units.el @ 58677:5ef7cf7f3b8f
Add a provide statement.
(calc-Need-calc-units): Remove it.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Tue, 30 Nov 2004 17:27:44 +0000 |
parents | 0a3797785946 |
children | 18e7205127f0 f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
58676:a19f1d75f7d5 | 58677:5ef7cf7f3b8f |
---|---|
25 ;;; Commentary: | 25 ;;; Commentary: |
26 | 26 |
27 ;;; Code: | 27 ;;; Code: |
28 | 28 |
29 ;; This file is autoloaded from calc-ext.el. | 29 ;; This file is autoloaded from calc-ext.el. |
30 | |
30 (require 'calc-ext) | 31 (require 'calc-ext) |
31 | |
32 (require 'calc-macs) | 32 (require 'calc-macs) |
33 | |
34 (defun calc-Need-calc-units () nil) | |
35 | 33 |
36 ;;; Units operations. | 34 ;;; Units operations. |
37 | 35 |
38 ;;; Units table last updated 9-Jan-91 by Ulrich Mueller (ulm@vsnhd1.cern.ch) | 36 ;;; Units table last updated 9-Jan-91 by Ulrich Mueller (ulm@vsnhd1.cern.ch) |
39 ;;; with some additions by Przemek Klosowski (przemek@rrdstrad.nist.gov) | 37 ;;; with some additions by Przemek Klosowski (przemek@rrdstrad.nist.gov) |
1341 (display-buffer buf))) | 1339 (display-buffer buf))) |
1342 (if enter-buffer | 1340 (if enter-buffer |
1343 (pop-to-buffer (get-buffer "*Units Table*")) | 1341 (pop-to-buffer (get-buffer "*Units Table*")) |
1344 (display-buffer (get-buffer "*Units Table*"))))) | 1342 (display-buffer (get-buffer "*Units Table*"))))) |
1345 | 1343 |
1344 (provide 'calc-units) | |
1345 | |
1346 ;; Local Variables: | 1346 ;; Local Variables: |
1347 ;; coding: iso-latin-1 | 1347 ;; coding: iso-latin-1 |
1348 ;; End: | 1348 ;; End: |
1349 | 1349 |
1350 ;;; arch-tag: e993314f-3adc-4191-be61-4ef8874881c4 | 1350 ;;; arch-tag: e993314f-3adc-4191-be61-4ef8874881c4 |