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

[Jay Belanger]

Index: emacs/lisp/calc/calc-misc.el
diff -c emacs/lisp/calc/calc-misc.el:1.12 emacs/lisp/calc/calc-misc.el:1.13
*** emacs/lisp/calc/calc-misc.el:1.12   Mon Oct 11 03:27:24 2004
--- emacs/lisp/calc/calc-misc.el        Tue Oct 26 19:06:24 2004
***************
*** 130,138 ****
                 "Now using full screen for Calc"
               "Now using partial screen for Calc"))))
  
! (defun calc-other-window ()
    "Invoke the Calculator in another window."
!   (interactive)
    (if (memq major-mode '(calc-mode calc-trail-mode))
        (progn
        (other-window 1)
--- 130,138 ----
                 "Now using full screen for Calc"
               "Now using partial screen for Calc"))))
  
! (defun calc-other-window (&optional interactive)
    "Invoke the Calculator in another window."
!   (interactive "p")
    (if (memq major-mode '(calc-mode calc-trail-mode))
        (progn
        (other-window 1)
***************
*** 141,147 ****
      (if (get-buffer-window "*Calculator*")
        (calc-quit)
        (let ((win (selected-window)))
!       (calc nil win (interactive-p))))))
  
  (defun another-calc ()
    "Create another, independent Calculator buffer."
--- 141,147 ----
      (if (get-buffer-window "*Calculator*")
        (calc-quit)
        (let ((win (selected-window)))
!       (calc nil win interactive)))))
  
  (defun another-calc ()
    "Create another, independent Calculator buffer."