295 |
calc-dollar-used 0))) |
calc-dollar-used 0))) |
296 |
(calc-handle-whys)))) |
(calc-handle-whys)))) |
297 |
|
|
298 |
|
(defvar calc-alg-ent-map nil |
299 |
|
"The keymap used for algebraic entry.") |
300 |
|
|
301 |
|
(defvar calc-alg-ent-esc-map nil |
302 |
|
"The keymap used for escapes in algebraic entry.") |
303 |
|
|
304 |
(defun calc-do-alg-entry (&optional initial prompt no-normalize) |
(defun calc-do-alg-entry (&optional initial prompt no-normalize) |
305 |
(let* ((calc-buffer (current-buffer)) |
(let* ((calc-buffer (current-buffer)) |
306 |
(blink-paren-function 'calcAlg-blink-matching-open) |
(blink-paren-function 'calcAlg-blink-matching-open) |
307 |
(alg-exp 'error)) |
(alg-exp 'error)) |
308 |
(unless (boundp 'calc-alg-ent-map) |
(unless calc-alg-ent-map |
309 |
(setq calc-alg-ent-map (copy-keymap minibuffer-local-map)) |
(setq calc-alg-ent-map (copy-keymap minibuffer-local-map)) |
310 |
(define-key calc-alg-ent-map "'" 'calcAlg-previous) |
(define-key calc-alg-ent-map "'" 'calcAlg-previous) |
311 |
(define-key calc-alg-ent-map "`" 'calcAlg-edit) |
(define-key calc-alg-ent-map "`" 'calcAlg-edit) |