mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(calc-other-window): Use an extra argument instead of `interactive-p'.

Browse source
This commit is contained in:
Jay Belanger 2004-10-26 19:06:24 +00:00
parent 577e1b7491
commit 1f5a0f5d5d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/calc/calc-misc.el
View file

@ -130,9 +130,9 @@ Calc user interface as before (either M-# C or M-# K; initially M-# C)."
"Now using full screen for Calc"
"Now using partial screen for Calc"))))
(defun calc-other-window ()
(defun calc-other-window (&optional interactive)
"Invoke the Calculator in another window."
(interactive)
(interactive "p")
(if (memq major-mode '(calc-mode calc-trail-mode))
(progn
(other-window 1)
@ -141,7 +141,7 @@ Calc user interface as before (either M-# C or M-# K; initially M-# C)."
(if (get-buffer-window "*Calculator*")
(calc-quit)
(let ((win (selected-window)))
(calc nil win (interactive-p))))))
(calc nil win interactive)))))
(defun another-calc ()
"Create another, independent Calculator buffer."