130 |
"Now using full screen for Calc" |
"Now using full screen for Calc" |
131 |
"Now using partial screen for Calc")))) |
"Now using partial screen for Calc")))) |
132 |
|
|
133 |
(defun calc-other-window () |
(defun calc-other-window (&optional interactive) |
134 |
"Invoke the Calculator in another window." |
"Invoke the Calculator in another window." |
135 |
(interactive) |
(interactive "p") |
136 |
(if (memq major-mode '(calc-mode calc-trail-mode)) |
(if (memq major-mode '(calc-mode calc-trail-mode)) |
137 |
(progn |
(progn |
138 |
(other-window 1) |
(other-window 1) |
141 |
(if (get-buffer-window "*Calculator*") |
(if (get-buffer-window "*Calculator*") |
142 |
(calc-quit) |
(calc-quit) |
143 |
(let ((win (selected-window))) |
(let ((win (selected-window))) |
144 |
(calc nil win (interactive-p)))))) |
(calc nil win interactive))))) |
145 |
|
|
146 |
(defun another-calc () |
(defun another-calc () |
147 |
"Create another, independent Calculator buffer." |
"Create another, independent Calculator buffer." |