diff options
| author | Jay Belanger | 2005-05-26 12:24:05 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-05-26 12:24:05 +0000 |
| commit | 562f26cb58ef115f9eff571ec2daa719ac5a20b9 (patch) | |
| tree | 6c91723ad723f5ac385455fa436b5615324df8b6 | |
| parent | 5770a942e767f732f390b25bc592fe92a154e3e4 (diff) | |
| download | emacs-562f26cb58ef115f9eff571ec2daa719ac5a20b9.tar.gz emacs-562f26cb58ef115f9eff571ec2daa719ac5a20b9.zip | |
(calc-user-define-edit): Don't find substring of nil.
| -rw-r--r-- | lisp/calc/calc-prog.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 @@ | |||
| 702 | (get func 'calc-user-defn))) | 702 | (get func 'calc-user-defn))) |
| 703 | (kys (concat "z" (char-to-string (car def)))) | 703 | (kys (concat "z" (char-to-string (car def)))) |
| 704 | (intcmd (symbol-name (cdr def))) | 704 | (intcmd (symbol-name (cdr def))) |
| 705 | (algcmd (substring (symbol-name func) 9))) | 705 | (algcmd (if func (substring (symbol-name func) 9) ""))) |
| 706 | (if (and defn (calc-valid-formula-func func)) | 706 | (if (and defn (calc-valid-formula-func func)) |
| 707 | (let ((niceexpr (math-format-nice-expr defn (frame-width)))) | 707 | (let ((niceexpr (math-format-nice-expr defn (frame-width)))) |
| 708 | (calc-wrapper | 708 | (calc-wrapper |