Mercurial > emacs
comparison lisp/calc/calc-sel.el @ 59307:bef2fe94c4a5
(calc-finish-selection-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:05:45 +0000 |
| parents | 904fb3627e77 |
| children | 7b8e42efa46a cb67264d6096 |
comparison
equal
deleted
inserted
replaced
| 59306:c80fa806ab33 | 59307:bef2fe94c4a5 |
|---|---|
| 675 (defvar calc-original-buffer) | 675 (defvar calc-original-buffer) |
| 676 | 676 |
| 677 ;; The variable calc-edit-disp-trail is local to calc-edit-finish, | 677 ;; The variable calc-edit-disp-trail is local to calc-edit-finish, |
| 678 ;; in calc-yank.el. | 678 ;; in calc-yank.el. |
| 679 (defvar calc-edit-disp-trail) | 679 (defvar calc-edit-disp-trail) |
| 680 (defvar calc-edit-top) | |
| 680 | 681 |
| 681 (defun calc-finish-selection-edit (num sel reselect) | 682 (defun calc-finish-selection-edit (num sel reselect) |
| 682 (let ((buf (current-buffer)) | 683 (let ((buf (current-buffer)) |
| 683 (str (buffer-substring (point) (point-max))) | 684 (str (buffer-substring calc-edit-top (point-max))) |
| 684 (start (point))) | 685 (start (point))) |
| 685 (switch-to-buffer calc-original-buffer) | 686 (switch-to-buffer calc-original-buffer) |
| 686 (let ((val (math-read-expr str))) | 687 (let ((val (math-read-expr str))) |
| 687 (if (eq (car-safe val) 'error) | 688 (if (eq (car-safe val) 'error) |
| 688 (progn | 689 (progn |