[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el |
Date: |
Tue, 13 Nov 2001 02:28:01 -0500 |
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)
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el,
Eli Zaretskii <=