Mercurial > emacs
comparison lisp/calc/calc-lang.el @ 58661:10224395a3c2
Add a provide statement.
(calc-Need-calc-lang): Remove it.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 30 Nov 2004 17:14:06 +0000 |
| parents | 4ca47d70b075 |
| children | 9e28f5bc25bb f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
| 58660:4ad5e0d74a81 | 58661:10224395a3c2 |
|---|---|
| 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-lang () nil) | |
| 36 | |
| 37 | 33 |
| 38 ;;; Alternate entry/display languages. | 34 ;;; Alternate entry/display languages. |
| 39 | 35 |
| 40 (defun calc-set-language (lang &optional option no-refresh) | 36 (defun calc-set-language (lang &optional option no-refresh) |
| 41 (setq math-expr-opers (or (get lang 'math-oper-table) math-standard-opers) | 37 (setq math-expr-opers (or (get lang 'math-oper-table) math-standard-opers) |
| 1161 (memq (aref line h) '(?\) ?\]))) | 1157 (memq (aref line h) '(?\) ?\]))) |
| 1162 (setq count (1- count)))) | 1158 (setq count (1- count)))) |
| 1163 (setq h (1+ h)))) | 1159 (setq h (1+ h)))) |
| 1164 h)) | 1160 h)) |
| 1165 | 1161 |
| 1162 (provide 'calc-lang) | |
| 1163 | |
| 1166 ;;; arch-tag: 483bfe15-f290-4fef-bb7d-ce65be687f2e | 1164 ;;; arch-tag: 483bfe15-f290-4fef-bb7d-ce65be687f2e |
| 1167 ;;; calc-lang.el ends here | 1165 ;;; calc-lang.el ends here |