Commit 562f26cb authored by Jay Belanger's avatar Jay Belanger
Browse files

(calc-user-define-edit): Don't find substring of nil.

parent 5770a942
......@@ -702,7 +702,7 @@
(get func 'calc-user-defn)))
(kys (concat "z" (char-to-string (car def))))
(intcmd (symbol-name (cdr def)))
(algcmd (substring (symbol-name func) 9)))
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment