43 |
(defvar math-comp-sel-cpos nil) |
(defvar math-comp-sel-cpos nil) |
44 |
(defvar math-compose-hash-args nil) |
(defvar math-compose-hash-args nil) |
45 |
|
|
46 |
|
(defvar calc-alg-map) |
47 |
|
(defvar calc-alg-esc-map) |
48 |
|
|
49 |
;;; The following was made a function so that it could be byte-compiled. |
;;; The following was made a function so that it could be byte-compiled. |
50 |
(defun calc-init-extensions () |
(defun calc-init-extensions () |
51 |
|
|
1195 |
(math-normalize val))))) |
(math-normalize val))))) |
1196 |
|
|
1197 |
|
|
1198 |
|
(defvar calc-help-map nil) |
1199 |
|
|
1200 |
(if (boundp 'calc-help-map) |
(if calc-help-map |
1201 |
nil |
nil |
1202 |
(setq calc-help-map (make-keymap)) |
(setq calc-help-map (make-keymap)) |
1203 |
(define-key calc-help-map "b" 'calc-describe-bindings) |
(define-key calc-help-map "b" 'calc-describe-bindings) |