diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-01 20:08:56 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-01 20:08:56 +0000 |
| commit | 97d83988746b8220f5d42929bc198d1a4fec6361 (patch) | |
| tree | 75a7287d115444a0296f8ce6b665fe62956ffcf9 /lisp/calc/calc-frac.el | |
| parent | 12e46b0083cea4d9ef6eaf4d68497aac5d62343e (diff) | |
| download | emacs-97d83988746b8220f5d42929bc198d1a4fec6361.tar.gz | |
(calc-over-notation): Replaced `completing-read' with
`interactive "s"'.
Diffstat (limited to 'lisp/calc/calc-frac.el')
| -rw-r--r-- | lisp/calc/calc-frac.el | 7 |
1 files changed, 1 insertions, 6 deletions
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)) |