andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calc-kbd-report): Remove.

Browse source 
(calc-kbd-query): Rewrite.
This commit is contained in:
Jay Belanger 2005-05-27 14:25:16 +00:00
parent faa3b6fc5d
commit fb9cc23825
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/calc/calc-prog.el
View file

@ -1446,15 +1446,22 @@ Redefine the corresponding command."
(error "Unbalanced Z' in keyboard macro")))
(defun calc-kbd-report (msg)
(interactive "sMessage: ")
(calc-wrapper
(math-working msg (calc-top-n 1))))
;; (defun calc-kbd-report (msg)
;; (interactive "sMessage: ")
;; (calc-wrapper
;; (math-working msg (calc-top-n 1))))
(defun calc-kbd-query (msg)
(interactive "sPrompt: ")
(calc-wrapper
(calc-alg-entry nil (and (not (equal msg "")) msg))))
(defun calc-kbd-query ()
(interactive)
(let ((defining-kbd-macro nil)
(executing-kbd-macro nil)
(msg (calc-top 1)))
(if (not (eq (car-safe msg) 'vec))
(error "No prompt string provided on stack")
(setq msg (math-vector-to-string msg))
(calc-wrapper
(calc-pop-stack 1)
(calc-alg-entry nil (and (not (equal msg "")) msg))))))
;;;; Logical operations.