Mercurial > emacs
changeset 59308:8f487d424820
(calc-embedded-finish-edit): Use calc-edit-top for the beginning of
the edited object.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sun, 02 Jan 2005 17:07:16 +0000 |
| parents | bef2fe94c4a5 |
| children | 5a2b8e50c551 |
| files | lisp/calc/calc-embed.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-embed.el Sun Jan 02 17:05:45 2005 +0000 +++ b/lisp/calc/calc-embed.el Sun Jan 02 17:07:16 2005 +0000 @@ -308,10 +308,10 @@ (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)