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)))) |