From af32d76e49daaabfb4aee0ccdb29d55a14b86c6f Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 13 Nov 2001 07:28:01 +0000 Subject: [PATCH] (calc-do-embedded): Call `y-or-n-p' with correct number of arguments. --- lisp/calc/calc-embed.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 5c996ea4cdd..ecfa5e13975 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -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, daveg@synaptics.com. ;; This file is part of GNU Emacs. @@ -202,8 +202,8 @@ This is not required to be present for user-written mode annotations.") (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 @@ This is not required to be present for user-written mode annotations.") (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)