/[emacs]/emacs/lisp/calc/calc-prog.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-prog.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by jpb, Thu May 26 12:24:05 2005 UTC revision 1.29 by jpb, Fri May 27 14:25:16 2005 UTC
# Line 1446  Redefine the corresponding command." Line 1446  Redefine the corresponding command."
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    

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26