Mercurial > emacs

changeset 59303:603f6649f30b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-edit-user-formula, calc-finish-formula-edit): Handle extra line in header.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 02 Jan 2005 07:29:41 +0000
parents abe8e399a00c
children 8852efff403c
files lisp/calc/calc-prog.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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))