(calc-over-notation): Replaced `completing-read' with

`interactive "s"'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c18c0986bd37aea9d0e33aa77cc17cdfbf0913ef..cc60a86f8953fabc4035ac2f9ef90fca4c6690fc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-01  Jay Belanger  <belanger@truman.edu>
+
+       * calc/calc-frac.el (calc-over-notation): Replaced
+       `completing-read' with `interactive "s"'.
+
 2004-11-2  Pavel Kobiakov <pk_at_work@yahoo.com>
        
        * progmodes/flymake.el (flymake-err-line-patterns): Use 

diff --git a/lisp/calc/calc-frac.el b/lisp/calc/calc-frac.el
index 3aa3bbdae4191593e1430be44f9a3f4e58f01faa..48201a7dc8aacf0b32f78d79bc3b550023eaa51f 100644 (file)
--- a/lisp/calc/calc-frac.el
+++ b/lisp/calc/calc-frac.el
@@ -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))