diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-02 07:34:14 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-02 07:34:14 +0000 |
| commit | 42a797def401f87066c2680f1bac599ec889612a (patch) | |
| tree | 2e004a6566e4404191e91b40627b4b4bd484dcae /lisp/calc/calc-prog.el | |
| parent | f405d1f5e5f2efdc1253e2e64c6b25ebec9ac1c5 (diff) | |
| download | emacs-42a797def401f87066c2680f1bac599ec889612a.tar.gz | |
(calc-edit-user-formula, calc-finish-formula-edit): Handle extra line
in header.
Diffstat (limited to 'lisp/calc/calc-prog.el')
| -rw-r--r-- | lisp/calc/calc-prog.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index b171010e220..1ee3173848a 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -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 @@ Redefine the corresponding command." (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)) |