# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1257130603 0
# Node ID 0842ff8d686f248746e67827b94a1ba1e1a3003f
# Parent  da9cc794b4ecd274a8a4d894ebfedcff59aed866
(calc-date-notation): Check to see if the format is whitespace
instead of only the empty string.

diff -r da9cc794b4ec -r 0842ff8d686f lisp/calc/calc-forms.el
--- a/lisp/calc/calc-forms.el	Mon Nov 02 02:30:04 2009 +0000
+++ b/lisp/calc/calc-forms.el	Mon Nov 02 02:56:43 2009 +0000
@@ -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)))