diff options
| author | Jay Belanger <[email protected]> | 2004-11-01 20:08:56 +0000 |
|---|---|---|
| committer | Jay Belanger <[email protected]> | 2004-11-01 20:08:56 +0000 |
| commit | 97d83988746b8220f5d42929bc198d1a4fec6361 (patch) | |
| tree | 75a7287d115444a0296f8ce6b665fe62956ffcf9 | |
| parent | 12e46b0083cea4d9ef6eaf4d68497aac5d62343e (diff) | |
(calc-over-notation): Replaced `completing-read' with
`interactive "s"'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/calc/calc-frac.el | 7 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c18c0986bd..cc60a86f89 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-01 Jay Belanger <[email protected]> + + * calc/calc-frac.el (calc-over-notation): Replaced + `completing-read' with `interactive "s"'. + 2004-11-2 Pavel Kobiakov <[email protected]> * progmodes/flymake.el (flymake-err-line-patterns): Use diff --git a/lisp/calc/calc-frac.el b/lisp/calc/calc-frac.el index 3aa3bbdae4..48201a7dc8 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)) |