Mercurial > emacs
changeset 57848:28443b8e3b48
(calc-over-notation): Replaced `completing-read' with
`interactive "s"'.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 01 Nov 2004 20:06:46 +0000 |
| parents | 4bac9c04ed9e |
| children | b032a7e080ba |
| files | lisp/calc/calc-frac.el |
| diffstat | 1 files changed, 1 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-frac.el Mon Nov 01 17:42:31 2004 +0000 +++ b/lisp/calc/calc-frac.el Mon Nov 01 20:06:46 2004 +0000 @@ -54,12 +54,7 @@ (defun calc-over-notation (fmt) - (interactive - (list - (completing-read "Fraction separator: " (mapcar (lambda (s) - (cons s 0)) - '(":" "::" "/" "//" ":/")) - nil t))) + (interactive "sFraction separator: ") (calc-wrapper (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt) (let ((n nil))