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 [emacs-unicode-2]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/calc/calc-frac.el [emacs-unicode-2]
Date: Thu, 04 Nov 2004 04:12:39 -0500

Index: emacs/lisp/calc/calc-frac.el
diff -c emacs/lisp/calc/calc-frac.el:1.6.4.1 
emacs/lisp/calc/calc-frac.el:1.6.4.2
*** emacs/lisp/calc/calc-frac.el:1.6.4.1        Fri Apr 16 12:50:11 2004
--- emacs/lisp/calc/calc-frac.el        Thu Nov  4 08:55:39 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]