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

[Jay Belanger]

Index: emacs/lisp/calc/calc-prog.el
diff -c emacs/lisp/calc/calc-prog.el:1.18 emacs/lisp/calc/calc-prog.el:1.19
*** emacs/lisp/calc/calc-prog.el:1.18   Sun Jan  2 06:48:17 2005
--- emacs/lisp/calc/calc-prog.el        Sun Jan  2 07:29:41 2005
***************
*** 714,725 ****
                         nil
                         (format "Editing formula (%s, %s, bound to %s).\n"
                                 intcmd algcmd kys))
!                     (insert (math-showing-full-precision
!                              (math-format-nice-expr defn (frame-width)))
!                             "\n"))
                     (calc-show-edit-buffer)
                       (goto-char (point-min))
!                      (forward-line 2))
                 (error "That command's definition cannot be edited")))))))
  
  ;; Formatting the macro buffer
--- 714,725 ----
                         nil
                         (format "Editing formula (%s, %s, bound to %s).\n"
                                 intcmd algcmd kys))
!                     (insert  (math-showing-full-precision
!                                 (math-format-nice-expr defn (frame-width)))
!                                "\n"))
                     (calc-show-edit-buffer)
                       (goto-char (point-min))
!                      (forward-line 3))
                 (error "That command's definition cannot be edited")))))))
  
  ;; Formatting the macro buffer
***************
*** 947,953 ****
  
  (defun calc-finish-formula-edit (func)
    (goto-char (point-min))
!   (forward-line 2)
    (let ((buf (current-buffer))
        (str (buffer-substring (point) (point-max)))
        (start (point))
--- 947,953 ----
  
  (defun calc-finish-formula-edit (func)
    (goto-char (point-min))
!   (forward-line 3)
    (let ((buf (current-buffer))
        (str (buffer-substring (point) (point-max)))
        (start (point))