/[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.7 by miles, Mon Sep 1 15:45:18 2003 UTC revision 1.8 by jpb, Mon Nov 1 20:06:46 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.7  
changed lines
  Added in v.1.8

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