Mercurial > emacs
changeset 40996:5a413baa253c
(calc-do-embedded): Call `y-or-n-p' with
correct number of arguments.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 13 Nov 2001 07:28:01 +0000 |
| parents | e29926a2ef59 |
| children | 70241447c9ef |
| files | lisp/calc/calc-embed.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-embed.el Tue Nov 13 07:27:27 2001 +0000 +++ b/lisp/calc/calc-embed.el Tue Nov 13 07:28:01 2001 +0000 @@ -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 @@ (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)