emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/calc/calc-frac.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/calc/calc-frac.el [lexbind]
Date: Thu, 04 Nov 2004 08:32:46 -0500

Index: emacs/lisp/calc/calc-frac.el
diff -c emacs/lisp/calc/calc-frac.el:1.4.4.2 
emacs/lisp/calc/calc-frac.el:1.4.4.3
*** emacs/lisp/calc/calc-frac.el:1.4.4.2        Tue Oct 14 23:35:48 2003
--- emacs/lisp/calc/calc-frac.el        Thu Nov  4 13:12:43 2004
***************
*** 54,65 ****
  
  
  (defun calc-over-notation (fmt)
!   (interactive
!    (list
!     (completing-read "Fraction separator: " (mapcar (lambda (s)
!                                                     (cons s 0))
!                                                   '(":" "::" "/" "//" ":/"))
!                    nil t)))
    (calc-wrapper
     (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt)
         (let ((n nil))
--- 54,60 ----
  
  
  (defun calc-over-notation (fmt)
!   (interactive "sFraction separator: ")
    (calc-wrapper
     (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt)
         (let ((n nil))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]