[Emacs-diffs] Changes to emacs/lisp/calc/calc-prog.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-prog.el
diff -c emacs/lisp/calc/calc-prog.el:1.27 emacs/lisp/calc/calc-prog.el:1.28
*** emacs/lisp/calc/calc-prog.el:1.27   Mon May 16 03:54:05 2005
--- emacs/lisp/calc/calc-prog.el        Thu May 26 12:24:05 2005
***************
*** 702,708 ****
                               (get func 'calc-user-defn)))
                      (kys (concat "z" (char-to-string (car def))))
                      (intcmd (symbol-name (cdr def)))
!                     (algcmd (substring (symbol-name func) 9)))
               (if (and defn (calc-valid-formula-func func))
                   (let ((niceexpr (math-format-nice-expr defn (frame-width))))
                     (calc-wrapper
--- 702,708 ----
                               (get func 'calc-user-defn)))
                      (kys (concat "z" (char-to-string (car def))))
                      (intcmd (symbol-name (cdr def)))
!                     (algcmd (if func (substring (symbol-name func) 9) "")))
               (if (and defn (calc-valid-formula-func func))
                   (let ((niceexpr (math-format-nice-expr defn (frame-width))))
                     (calc-wrapper