[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-prog.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-prog.el |
Date: |
Sun, 02 Jan 2005 02:49:41 -0500 |
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))