diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2009-11-02 02:59:23 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2009-11-02 02:59:23 +0000 |
| commit | 6292c59952a47bdf315223db70e31c9e4e11fbdc (patch) | |
| tree | 1f3f5b431a714dded21d3378ee68dc2e7dd56a05 /lisp/calc | |
| parent | 0f063651e220bcb450d760e9e365a05acf1aed30 (diff) | |
| download | emacs-6292c59952a47bdf315223db70e31c9e4e11fbdc.tar.gz | |
(calc-date-notation): Check to see if the format is whitespace
instead of only the empty string.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-forms.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index 99a8b949c42..0845fb151ab 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el @@ -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))) |