# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1104650981 0
# Node ID 603f6649f30b31b3d0447389f947f3ff68eab31f
# Parent  abe8e399a00cc7ce2ff2ff1139237eee953e036b
(calc-edit-user-formula, calc-finish-formula-edit): Handle extra line
in header.

diff -r abe8e399a00c -r 603f6649f30b lisp/calc/calc-prog.el
--- a/lisp/calc/calc-prog.el	Sun Jan 02 07:22:44 2005 +0000
+++ b/lisp/calc/calc-prog.el	Sun Jan 02 07:29:41 2005 +0000
@@ -714,12 +714,12 @@
                        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"))
+		      (insert  (math-showing-full-precision
+                                (math-format-nice-expr defn (frame-width)))
+                               "\n"))
 		     (calc-show-edit-buffer)
                      (goto-char (point-min))
-                     (forward-line 2))
+                     (forward-line 3))
 		 (error "That command's definition cannot be edited")))))))
 
 ;; Formatting the macro buffer
@@ -947,7 +947,7 @@
 
 (defun calc-finish-formula-edit (func)
   (goto-char (point-min))
-  (forward-line 2)
+  (forward-line 3)
   (let ((buf (current-buffer))
 	(str (buffer-substring (point) (point-max)))
 	(start (point))