Mercurial > emacs
comparison lisp/calc/calc-embed.el @ 81468:e262340dcd6e
(calc-embedded-finish-edit): Let math-expr-opers equal the function
math-standard-ops rather than the variable math-standard-opers.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Wed, 20 Jun 2007 04:13:06 +0000 |
| parents | 1154f082efd9 |
| children | b98604865ea0 988f1edc9674 |
comparison
equal
deleted
inserted
replaced
| 81467:a90e4a0758e3 | 81468:e262340dcd6e |
|---|---|
| 401 pos) | 401 pos) |
| 402 (switch-to-buffer calc-original-buffer) | 402 (switch-to-buffer calc-original-buffer) |
| 403 (let ((val (save-excursion | 403 (let ((val (save-excursion |
| 404 (set-buffer (aref info 1)) | 404 (set-buffer (aref info 1)) |
| 405 (let ((calc-language nil) | 405 (let ((calc-language nil) |
| 406 (math-expr-opers math-standard-opers)) | 406 (math-expr-opers (math-standard-ops))) |
| 407 (math-read-expr str))))) | 407 (math-read-expr str))))) |
| 408 (if (eq (car-safe val) 'error) | 408 (if (eq (car-safe val) 'error) |
| 409 (progn | 409 (progn |
| 410 (switch-to-buffer buf) | 410 (switch-to-buffer buf) |
| 411 (goto-char (+ start (nth 1 val))) | 411 (goto-char (+ start (nth 1 val))) |