/[emacs]/emacs/lisp/calc/calc-misc.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-misc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8.2.3 by miles, Mon Oct 25 04:19:45 2004 UTC revision 1.8.2.4 by miles, Fri Oct 29 02:05:13 2004 UTC
# Line 130  Calc user interface as before (either M- Line 130  Calc user interface as before (either M-
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)
# Line 141  Calc user interface as before (either M- Line 141  Calc user interface as before (either M-
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."

Legend:
Removed from v.1.8.2.3  
changed lines
  Added in v.1.8.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26