Parent Directory | Revision Log | Patch
revision 1.6.4.1 by handa, Fri Apr 16 12:50:11 2004 UTC | revision 1.6.4.2 by miles, Thu Nov 4 08:55:39 2004 UTC | |
---|---|---|
# | Line 54 | Line 54 |
54 | ||
55 | ||
56 | (defun calc-over-notation (fmt) | (defun calc-over-notation (fmt) |
57 | (interactive | (interactive "sFraction separator: ") |
(list | ||
(completing-read "Fraction separator: " (mapcar (lambda (s) | ||
(cons s 0)) | ||
'(":" "::" "/" "//" ":/")) | ||
nil t))) | ||
58 | (calc-wrapper | (calc-wrapper |
59 | (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt) | (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt) |
60 | (let ((n nil)) | (let ((n nil)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |