[Emacs-diffs] Changes to emacs/lisp/calc/calc-prog.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-prog.el
diff -c emacs/lisp/calc/calc-prog.el:1.28 emacs/lisp/calc/calc-prog.el:1.29
*** emacs/lisp/calc/calc-prog.el:1.28   Thu May 26 12:24:05 2005
--- emacs/lisp/calc/calc-prog.el        Fri May 27 14:25:16 2005
***************
*** 1446,1460 ****
      (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-query (msg)
!   (interactive "sPrompt: ")
!   (calc-wrapper
!    (calc-alg-entry nil (and (not (equal msg "")) msg))))
  
  ;;;; Logical operations.
  
--- 1446,1467 ----
      (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-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.