/[emacs]/emacs/lisp/calc/calc-frac.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-frac.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.6.4.1  
changed lines
  Added in v.1.6.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26