[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el

[Eli Zaretskii]

Index: emacs/lisp/calc/calc-embed.el
diff -u emacs/lisp/calc/calc-embed.el:1.1 emacs/lisp/calc/calc-embed.el:1.2
--- emacs/lisp/calc/calc-embed.el:1.1   Tue Nov  6 13:59:06 2001
+++ emacs/lisp/calc/calc-embed.el       Tue Nov 13 02:28:01 2001
@@ -1,5 +1,5 @@
 ;; Calculator for GNU Emacs, part II [calc-embed.el]
-;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
 ;; Written by Dave Gillespie, address@hidden
 
 ;; This file is part of GNU Emacs.
@@ -202,8 +202,8 @@
             (if (buffer-name (aref calc-embedded-info 0))
                 (save-excursion
                   (set-buffer (aref calc-embedded-info 0))
-                  (or (y-or-n-p "Cancel Calc Embedded mode in buffer %s? "
-                                (buffer-name))
+                  (or (y-or-n-p (format "Cancel Calc Embedded mode in buffer 
%s? "
+                                        (buffer-name)))
                       (keyboard-quit))
                   (calc-embedded nil)))
             (calc-embedded arg end obeg oend)))
@@ -308,7 +308,7 @@
          (error (nth 2 (aref info 8)))))
     (calc-wrapper
      (setq str (math-showing-full-precision
-               (math-format-nice-expr (aref info 8) (screen-width))))
+               (math-format-nice-expr (aref info 8) (frame-width))))
      (calc-edit-mode (list 'calc-embedded-finish-edit info))
      (insert str "\n")))
   (calc-show-edit-buffer)