/[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.4.4.2 by miles, Tue Oct 14 23:35:48 2003 UTC revision 1.4.4.3 by miles, Thu Nov 4 13:12:43 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.4.4.2  
changed lines
  Added in v.1.4.4.3

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