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