[Emacs-diffs] Changes to emacs/lisp/calc/calc-sel.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-sel.el
diff -c emacs/lisp/calc/calc-sel.el:1.10 emacs/lisp/calc/calc-sel.el:1.11
*** emacs/lisp/calc/calc-sel.el:1.10    Tue Nov 30 17:23:06 2004
--- emacs/lisp/calc/calc-sel.el Sun Jan  2 17:05:45 2005
***************
*** 677,686 ****
  ;; The variable calc-edit-disp-trail is local to calc-edit-finish,
  ;; in calc-yank.el.
  (defvar calc-edit-disp-trail)
  
  (defun calc-finish-selection-edit (num sel reselect)
    (let ((buf (current-buffer))
!       (str (buffer-substring (point) (point-max)))
        (start (point)))
      (switch-to-buffer calc-original-buffer)
      (let ((val (math-read-expr str)))
--- 677,687 ----
  ;; 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 calc-edit-top (point-max)))
        (start (point)))
      (switch-to-buffer calc-original-buffer)
      (let ((val (math-read-expr str)))