1446 |
(error "Unbalanced Z' in keyboard macro"))) |
(error "Unbalanced Z' in keyboard macro"))) |
1447 |
|
|
1448 |
|
|
1449 |
(defun calc-kbd-report (msg) |
;; (defun calc-kbd-report (msg) |
1450 |
(interactive "sMessage: ") |
;; (interactive "sMessage: ") |
1451 |
(calc-wrapper |
;; (calc-wrapper |
1452 |
(math-working msg (calc-top-n 1)))) |
;; (math-working msg (calc-top-n 1)))) |
1453 |
|
|
1454 |
(defun calc-kbd-query (msg) |
(defun calc-kbd-query () |
1455 |
(interactive "sPrompt: ") |
(interactive) |
1456 |
(calc-wrapper |
(let ((defining-kbd-macro nil) |
1457 |
(calc-alg-entry nil (and (not (equal msg "")) msg)))) |
(executing-kbd-macro nil) |
1458 |
|
(msg (calc-top 1))) |
1459 |
|
(if (not (eq (car-safe msg) 'vec)) |
1460 |
|
(error "No prompt string provided on stack") |
1461 |
|
(setq msg (math-vector-to-string msg)) |
1462 |
|
(calc-wrapper |
1463 |
|
(calc-pop-stack 1) |
1464 |
|
(calc-alg-entry nil (and (not (equal msg "")) msg)))))) |
1465 |
|
|
1466 |
;;;; Logical operations. |
;;;; Logical operations. |
1467 |
|
|