# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1099339606 0
# Node ID 28443b8e3b4843fe3a62657044c0648f1894d77a
# Parent  4bac9c04ed9e50a96ab665da294bbe78758a0269
(calc-over-notation):  Replaced `completing-read' with
`interactive "s"'.

diff -r 4bac9c04ed9e -r 28443b8e3b48 lisp/calc/calc-frac.el
--- 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))