diff options
Diffstat (limited to 'lisp')
| -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)) |