From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 1 Nov 2004 20:08:56 +0000 (+0000)
Subject: (calc-over-notation):  Replaced `completing-read' with
X-Git-Tag: ttn-vms-21-2-B4~4273
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97d83988746b8220f5d42929bc198d1a4fec6361;p=emacs.git

(calc-over-notation):  Replaced `completing-read' with
`interactive "s"'.
---

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