3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainers: D. Goel <deego@gnufans.org> |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
|
;; Colin Walters <walters@debian.org> |
|
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
|
|
27 |
;;; Code: |
;;; Code: |
28 |
|
|
29 |
;; This file is autoloaded from calc-ext.el. |
;; This file is autoloaded from calc-ext.el. |
|
(require 'calc-ext) |
|
30 |
|
|
31 |
|
(require 'calc-ext) |
32 |
(require 'calc-macs) |
(require 'calc-macs) |
33 |
|
|
|
(defun calc-Need-calc-math () nil) |
|
|
|
|
|
|
|
34 |
(defun calc-sqrt (arg) |
(defun calc-sqrt (arg) |
35 |
(interactive "P") |
(interactive "P") |
36 |
(calc-slow-wrapper |
(calc-slow-wrapper |
1684 |
(t (list 'calcFunc-deg a)))) |
(t (list 'calcFunc-deg a)))) |
1685 |
(put 'calcFunc-deg 'math-expandable t) |
(put 'calcFunc-deg 'math-expandable t) |
1686 |
|
|
1687 |
|
(provide 'calc-math) |
1688 |
|
|
1689 |
;;; arch-tag: c7367e8e-d0b8-4f70-8577-2fb3f31dbb4c |
;;; arch-tag: c7367e8e-d0b8-4f70-8577-2fb3f31dbb4c |
1690 |
;;; calc-math.el ends here |
;;; calc-math.el ends here |