diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-02 17:05:45 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-02 17:05:45 +0000 |
| commit | 519c0d007401464610626a407812488a57fa7640 (patch) | |
| tree | a4ecb951b1a6cef26731078ec0b6b67b8245d929 /lisp/calc/calc-sel.el | |
| parent | f57a09620622809ecddcc571765f1b1b7eb9e563 (diff) | |
| download | emacs-519c0d007401464610626a407812488a57fa7640.tar.gz | |
(calc-finish-selection-edit): Use calc-edit-top for the beginning of
the edited object.
Diffstat (limited to 'lisp/calc/calc-sel.el')
| -rw-r--r-- | lisp/calc/calc-sel.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calc/calc-sel.el b/lisp/calc/calc-sel.el index 7b45814f1e7..4ae0df5d3ba 100644 --- a/lisp/calc/calc-sel.el +++ b/lisp/calc/calc-sel.el @@ -677,10 +677,11 @@ ;; The variable calc-edit-disp-trail is local to calc-edit-finish, ;; in calc-yank.el. (defvar calc-edit-disp-trail) +(defvar calc-edit-top) (defun calc-finish-selection-edit (num sel reselect) (let ((buf (current-buffer)) - (str (buffer-substring (point) (point-max))) + (str (buffer-substring calc-edit-top (point-max))) (start (point))) (switch-to-buffer calc-original-buffer) (let ((val (math-read-expr str))) |