diff options
Diffstat (limited to 'lisp/calc')
| -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 @@ | |||
| 54 | 54 | ||
| 55 | 55 | ||
| 56 | (defun calc-over-notation (fmt) | 56 | (defun calc-over-notation (fmt) |
| 57 | (interactive | 57 | (interactive "sFraction separator: ") |
| 58 | (list | ||
| 59 | (completing-read "Fraction separator: " (mapcar (lambda (s) | ||
| 60 | (cons s 0)) | ||
| 61 | '(":" "::" "/" "//" ":/")) | ||
| 62 | nil t))) | ||
| 63 | (calc-wrapper | 58 | (calc-wrapper |
| 64 | (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt) | 59 | (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt) |
| 65 | (let ((n nil)) | 60 | (let ((n nil)) |