diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-26 19:06:24 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-26 19:06:24 +0000 |
| commit | 1f5a0f5d5d3e2513ece677c07257dc24d6c54bb1 (patch) | |
| tree | b670b5a8e86d274fa66bb67dde879192df4e50da /lisp/calc | |
| parent | 577e1b74916feeb561f3fac1a5cacdfc957e964c (diff) | |
| download | emacs-1f5a0f5d5d3e2513ece677c07257dc24d6c54bb1.tar.gz emacs-1f5a0f5d5d3e2513ece677c07257dc24d6c54bb1.tar.bz2 emacs-1f5a0f5d5d3e2513ece677c07257dc24d6c54bb1.zip | |
(calc-other-window): Use an extra argument instead of `interactive-p'.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-misc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index c01d37e6848..159b1ee3178 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -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." |