714 |
nil |
nil |
715 |
(format "Editing formula (%s, %s, bound to %s).\n" |
(format "Editing formula (%s, %s, bound to %s).\n" |
716 |
intcmd algcmd kys)) |
intcmd algcmd kys)) |
717 |
(insert (math-showing-full-precision |
(insert (math-showing-full-precision |
718 |
(math-format-nice-expr defn (frame-width))) |
(math-format-nice-expr defn (frame-width))) |
719 |
"\n")) |
"\n")) |
720 |
(calc-show-edit-buffer) |
(calc-show-edit-buffer) |
721 |
(goto-char (point-min)) |
(goto-char (point-min)) |
722 |
(forward-line 2)) |
(forward-line 3)) |
723 |
(error "That command's definition cannot be edited"))))))) |
(error "That command's definition cannot be edited"))))))) |
724 |
|
|
725 |
;; Formatting the macro buffer |
;; Formatting the macro buffer |
947 |
|
|
948 |
(defun calc-finish-formula-edit (func) |
(defun calc-finish-formula-edit (func) |
949 |
(goto-char (point-min)) |
(goto-char (point-min)) |
950 |
(forward-line 2) |
(forward-line 3) |
951 |
(let ((buf (current-buffer)) |
(let ((buf (current-buffer)) |
952 |
(str (buffer-substring (point) (point-max))) |
(str (buffer-substring (point) (point-max))) |
953 |
(start (point)) |
(start (point)) |