/[emacs]/emacs/lisp/calc/calc-embed.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-embed.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by eliz, Tue Nov 6 18:59:06 2001 UTC revision 1.2 by eliz, Tue Nov 13 07:28:01 2001 UTC
# Line 1  Line 1 
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.
# Line 202  This is not required to be present for u Line 202  This is not required to be present for u
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)))
# Line 308  This is not required to be present for u Line 308  This is not required to be present for u
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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26