702 |
(get func 'calc-user-defn))) |
(get func 'calc-user-defn))) |
703 |
(kys (concat "z" (char-to-string (car def)))) |
(kys (concat "z" (char-to-string (car def)))) |
704 |
(intcmd (symbol-name (cdr def))) |
(intcmd (symbol-name (cdr def))) |
705 |
(algcmd (substring (symbol-name func) 9))) |
(algcmd (if func (substring (symbol-name func) 9) ""))) |
706 |
(if (and defn (calc-valid-formula-func func)) |
(if (and defn (calc-valid-formula-func func)) |
707 |
(let ((niceexpr (math-format-nice-expr defn (frame-width)))) |
(let ((niceexpr (math-format-nice-expr defn (frame-width)))) |
708 |
(calc-wrapper |
(calc-wrapper |