From 97d83988746b8220f5d42929bc198d1a4fec6361 Mon Sep 17 00:00:00 2001
From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 1 Nov 2004 20:08:56 +0000
Subject: [PATCH] (calc-over-notation):  Replaced `completing-read' with
 `interactive "s"'.

---
 lisp/ChangeLog         | 5 +++++
 lisp/calc/calc-frac.el | 7 +------
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c18c0986bd3..cc60a86f895 100644
--- 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 3aa3bbdae41..48201a7dc8a 100644
--- 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))
-- 
2.39.5