Mercurial > emacs
changeset 105826:0842ff8d686f
(calc-date-notation): Check to see if the format is whitespace
instead of only the empty string.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 02 Nov 2009 02:56:43 +0000 |
| parents | da9cc794b4ec |
| children | f7bdaf5fffab |
| files | lisp/calc/calc-forms.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))