# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1117110245 0
# Node ID 5aa3c60503e2cc7d16202bfd3a9e1daefdbbeeee
# Parent  05f48d9c5aed40d4fe3d51339c54b9657a3c37ee
(calc-user-define-edit): Don't find substring of nil.

diff -r 05f48d9c5aed -r 5aa3c60503e2 lisp/calc/calc-prog.el
--- a/lisp/calc/calc-prog.el	Thu May 26 12:20:21 2005 +0000
+++ b/lisp/calc/calc-prog.el	Thu May 26 12:24:05 2005 +0000
@@ -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