1 |
;; Calculator for GNU Emacs, part II [calc-embed.el] |
;; Calculator for GNU Emacs, part II [calc-embed.el] |
2 |
;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
3 |
;; Written by Dave Gillespie, daveg@synaptics.com. |
;; Written by Dave Gillespie, daveg@synaptics.com. |
4 |
|
|
5 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
202 |
(if (buffer-name (aref calc-embedded-info 0)) |
(if (buffer-name (aref calc-embedded-info 0)) |
203 |
(save-excursion |
(save-excursion |
204 |
(set-buffer (aref calc-embedded-info 0)) |
(set-buffer (aref calc-embedded-info 0)) |
205 |
(or (y-or-n-p "Cancel Calc Embedded mode in buffer %s? " |
(or (y-or-n-p (format "Cancel Calc Embedded mode in buffer %s? " |
206 |
(buffer-name)) |
(buffer-name))) |
207 |
(keyboard-quit)) |
(keyboard-quit)) |
208 |
(calc-embedded nil))) |
(calc-embedded nil))) |
209 |
(calc-embedded arg end obeg oend))) |
(calc-embedded arg end obeg oend))) |
308 |
(error (nth 2 (aref info 8))))) |
(error (nth 2 (aref info 8))))) |
309 |
(calc-wrapper |
(calc-wrapper |
310 |
(setq str (math-showing-full-precision |
(setq str (math-showing-full-precision |
311 |
(math-format-nice-expr (aref info 8) (screen-width)))) |
(math-format-nice-expr (aref info 8) (frame-width)))) |
312 |
(calc-edit-mode (list 'calc-embedded-finish-edit info)) |
(calc-edit-mode (list 'calc-embedded-finish-edit info)) |
313 |
(insert str "\n"))) |
(insert str "\n"))) |
314 |
(calc-show-edit-buffer) |
(calc-show-edit-buffer) |