Mercurial > emacs
diff lisp/calc/calc-misc.el @ 57711:d9073880a6e4
(calc-other-window): Use an extra argument instead of `interactive-p'.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Tue, 26 Oct 2004 19:06:24 +0000 |
parents | f4e473491598 |
children | d11199c971ec 0fe073a08cef |
line wrap: on
line diff
--- a/lisp/calc/calc-misc.el Tue Oct 26 19:05:53 2004 +0000 +++ b/lisp/calc/calc-misc.el Tue Oct 26 19:06:24 2004 +0000 @@ -130,9 +130,9 @@ "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 @@ (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."