/[emacs]/emacs/lisp/calc/calc-prog.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-prog.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by jpb, Sun Jan 2 06:48:17 2005 UTC revision 1.19 by jpb, Sun Jan 2 07:29:41 2005 UTC
# Line 714  Line 714 
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
# Line 947  Redefine the corresponding command." Line 947  Redefine the corresponding command."
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))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26