[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/calc calc-forms.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] emacs/lisp/calc calc-forms.el |
Date: |
Mon, 02 Nov 2009 02:56:43 +0000 |
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)))
- [Emacs-diffs] emacs/lisp/calc calc-forms.el,
Jay Belanger <=