Mercurial > emacs

comparison lisp/calc/calc-misc.el @ 57711:d9073880a6e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
57710:a18ff071e655 57711:d9073880a6e4
128 (calc nil calc-full-mode nil)))) 128 (calc nil calc-full-mode nil))))
129 (message (if calc-full-mode 129 (message (if calc-full-mode
130 "Now using full screen for Calc" 130 "Now using full screen for Calc"
131 "Now using partial screen for Calc")))) 131 "Now using partial screen for Calc"))))
132 132
133 (defun calc-other-window () 133 (defun calc-other-window (&optional interactive)
134 "Invoke the Calculator in another window." 134 "Invoke the Calculator in another window."
135 (interactive) 135 (interactive "p")
136 (if (memq major-mode '(calc-mode calc-trail-mode)) 136 (if (memq major-mode '(calc-mode calc-trail-mode))
137 (progn 137 (progn
138 (other-window 1) 138 (other-window 1)
139 (if (memq major-mode '(calc-mode calc-trail-mode)) 139 (if (memq major-mode '(calc-mode calc-trail-mode))
140 (other-window 1))) 140 (other-window 1)))
141 (if (get-buffer-window "*Calculator*") 141 (if (get-buffer-window "*Calculator*")
142 (calc-quit) 142 (calc-quit)
143 (let ((win (selected-window))) 143 (let ((win (selected-window)))
144 (calc nil win (interactive-p)))))) 144 (calc nil win interactive)))))
145 145
146 (defun another-calc () 146 (defun another-calc ()
147 "Create another, independent Calculator buffer." 147 "Create another, independent Calculator buffer."
148 (interactive) 148 (interactive)
149 (if (eq major-mode 'calc-mode) 149 (if (eq major-mode 'calc-mode)