From 4091a1e2f1b6521ae24d7a40266726438a90c704 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sun, 2 Jan 2005 17:07:16 +0000 Subject: [PATCH] (calc-embedded-finish-edit): Use calc-edit-top for the beginning of the edited object. --- lisp/calc/calc-embed.el | 4 ++-- 1 file 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) -- 2.39.5