diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2006-04-27 18:40:41 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2006-04-27 18:40:41 +0000 |
| commit | a48b489eb94a238c1eca6a0c4bdf7d5b80503240 (patch) | |
| tree | 54846d3793cb0943da2d8a398029e00aac3e8846 /lisp/calc/calc-embed.el | |
| parent | cb58ea33227cfe3fa6bc71483097a0aecfff826f (diff) | |
| download | emacs-a48b489eb94a238c1eca6a0c4bdf7d5b80503240.tar.gz | |
(calc-embedded-make-info): Use `math-read-expr' when
`math-read-big-expr' doesn't work.
Diffstat (limited to 'lisp/calc/calc-embed.el')
| -rw-r--r-- | lisp/calc/calc-embed.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |