From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Thu, 26 May 2005 12:24:05 +0000 (+0000)
Subject: (calc-user-define-edit): Don't find substring of nil.
X-Git-Tag: emacs-pretest-22.0.90~9571
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=562f26cb58ef115f9eff571ec2daa719ac5a20b9;p=emacs.git

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

diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index 230b0f6a6c5..0a24fbf574c 100644
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -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