diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-02 17:07:16 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-02 17:07:16 +0000 |
| commit | 4091a1e2f1b6521ae24d7a40266726438a90c704 (patch) | |
| tree | 982803a20b83353e4d4acf3cd4d43de5a0392673 /lisp/calc/calc-embed.el | |
| parent | 519c0d007401464610626a407812488a57fa7640 (diff) | |
| download | emacs-4091a1e2f1b6521ae24d7a40266726438a90c704.tar.gz | |
(calc-embedded-finish-edit): Use calc-edit-top for the beginning of
the edited object.
Diffstat (limited to 'lisp/calc/calc-embed.el')
| -rw-r--r-- | lisp/calc/calc-embed.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 067d233bf4a..cdab562dc21 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -308,10 +308,10 @@ This is not required to be present for user-written mode annotations.") (calc-show-edit-buffer)) (defvar calc-original-buffer) - +(defvar calc-edit-top) (defun calc-embedded-finish-edit (info) (let ((buf (current-buffer)) - (str (buffer-substring (point) (point-max))) + (str (buffer-substring calc-edit-top (point-max))) (start (point)) pos) (switch-to-buffer calc-original-buffer) |