Lines Matching defs:defn
218 (if (get cmd 'calc-user-defn)
255 (if (get func 'calc-user-defn)
308 (put cmd 'calc-user-defn t)))
318 (put func 'calc-user-defn form)
454 (put cmd 'calc-user-defn t)
701 (defn (and func
703 (get func 'calc-user-defn)))
707 (if (and defn (calc-valid-formula-func func))
708 (let ((niceexpr (math-format-nice-expr defn (frame-width))))
957 (put func 'calc-user-defn val))))
971 (defun calc-get-user-defn ()
986 (defn (and func
988 (get func 'calc-user-defn))))
989 (if defn
992 (setq defn (append '(calcFunc-lambda)
996 (list defn))))
997 (calc-enter-result 0 "gdef" defn))
1046 (get cmd 'calc-user-defn))
1063 " 'calc-user-defn '"
1064 (prin1-to-string (get cmd 'calc-user-defn))
1071 (get func 'calc-user-defn)
1083 " 'calc-user-defn '"
1084 (prin1-to-string (get func 'calc-user-defn))