Mercurial > emacs
comparison lisp/calc/calc-prog.el @ 62820:4d1d10306a3b
(calc-kbd-query): Change error message.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Fri, 27 May 2005 14:31:10 +0000 |
| parents | 3e8d22427034 |
| children | 1db49616ce05 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62819:3e8d22427034 | 62820:4d1d10306a3b |
|---|---|
| 1455 (interactive) | 1455 (interactive) |
| 1456 (let ((defining-kbd-macro nil) | 1456 (let ((defining-kbd-macro nil) |
| 1457 (executing-kbd-macro nil) | 1457 (executing-kbd-macro nil) |
| 1458 (msg (calc-top 1))) | 1458 (msg (calc-top 1))) |
| 1459 (if (not (eq (car-safe msg) 'vec)) | 1459 (if (not (eq (car-safe msg) 'vec)) |
| 1460 (error "No prompt string provided on stack") | 1460 (error "No prompt string provided") |
| 1461 (setq msg (math-vector-to-string msg)) | 1461 (setq msg (math-vector-to-string msg)) |
| 1462 (calc-wrapper | 1462 (calc-wrapper |
| 1463 (calc-pop-stack 1) | 1463 (calc-pop-stack 1) |
| 1464 (calc-alg-entry nil (and (not (equal msg "")) msg)))))) | 1464 (calc-alg-entry nil (and (not (equal msg "")) msg)))))) |
| 1465 | 1465 |