Mercurial > emacs
comparison lisp/calc/calc-mode.el @ 104110:3df194265db9
calc-mode.el (calc-matrix-brackets): Remove "P" from prompt.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Thu, 30 Jul 2009 04:43:11 +0000 |
| parents | a9dc0e7c3f2b |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 104109:49ab4f14fed7 | 104110:3df194265db9 |
|---|---|
| 662 (if (equal calc-vector-brackets "()") nil "()") t) | 662 (if (equal calc-vector-brackets "()") nil "()") t) |
| 663 (message "Surrounding vectors with \"()\"") | 663 (message "Surrounding vectors with \"()\"") |
| 664 (message "Not surrounding vectors with brackets")))) | 664 (message "Not surrounding vectors with brackets")))) |
| 665 | 665 |
| 666 (defun calc-matrix-brackets (arg) | 666 (defun calc-matrix-brackets (arg) |
| 667 (interactive "sCode letters (R, O, C, P): ") | 667 (interactive "sCode letters (R, O, C): ") |
| 668 (calc-wrapper | 668 (calc-wrapper |
| 669 (let ((code (append (and (string-match "[rR]" arg) '(R)) | 669 (let ((code (append (and (string-match "[rR]" arg) '(R)) |
| 670 (and (string-match "[oO]" arg) '(O)) | 670 (and (string-match "[oO]" arg) '(O)) |
| 671 (and (string-match "[cC]" arg) '(C)) | 671 (and (string-match "[cC]" arg) '(C)) |
| 672 (and (string-match "[pP]" arg) '(P)))) | 672 (and (string-match "[pP]" arg) '(P)))) |