[Emacs-diffs] emacs/lisp/calc calc-forms.el

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      09/11/02 02:56:43

Modified files:
        lisp/calc      : calc-forms.el 

Log message:
        (calc-date-notation): Check to see if the format is whitespace
        instead of only the empty string.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-forms.el?cvsroot=emacs&r1=1.35&r2=1.36

Patches:
Index: calc-forms.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-forms.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- calc-forms.el       5 Jan 2009 03:20:00 -0000       1.35
+++ calc-forms.el       2 Nov 2009 02:56:43 -0000       1.36
@@ -81,7 +81,7 @@
 (defun calc-date-notation (fmt arg)
   (interactive "sDate format (e.g., M/D/YY h:mm:ss): \nP")
   (calc-wrapper
-   (if (equal fmt "")
+   (if (string-match-p "\\`\\s-*\\'" fmt)
        (setq fmt "1"))
    (if (string-match "\\` *[0-9] *\\'" fmt)
        (setq fmt (nth (string-to-number fmt) calc-standard-date-formats)))