From a48b489eb94a238c1eca6a0c4bdf7d5b80503240 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Thu, 27 Apr 2006 18:40:41 +0000 Subject: (calc-embedded-make-info): Use `math-read-expr' when `math-read-big-expr' doesn't work. --- lisp/calc/calc-embed.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/calc/calc-embed.el') diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 28a319f84e4..adb94ef7381 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -932,7 +932,9 @@ The command \\[yank] can retrieve it from there." (substring str pref-len suff-pos))) (if (string-match "[^ \t\n]" str) (setq pref-len 0 - val (math-read-big-expr str)) + val (condition-case nil + (math-read-big-expr str) + (error (math-read-expr str)))) (setq val nil)))) (if (eq (car-safe val) 'error) (setq val (list 'error -- cgit v1.2.1