>From e98af1606de2479835da797e88eba332cabb233a Mon Sep 17 00:00:00 2001 From: Marcin Borkowski Date: Thu, 17 Mar 2016 12:50:12 +0100 Subject: [PATCH] Enhance year handling * lisp/org.el (org-read-date-analyze): Handle two-digit years with `org-small-year-to-year' instead of just adding 2000 --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 1f06cbd..5adb370 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17011,7 +17011,7 @@ user." (string-to-number (format-time-string "%Y")))) month (string-to-number (match-string 3 ans)) day (string-to-number (match-string 4 ans))) - (when (< year 100) (setq year (+ 2000 year))) + (setq year (org-small-year-to-year year)) (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) t nil ans))) @@ -17035,7 +17035,7 @@ user." (string-to-number (format-time-string "%Y")))) month (string-to-number (match-string 1 ans)) day (string-to-number (match-string 2 ans))) - (when (< year 100) (setq year (+ 2000 year))) + (setq year (org-small-year-to-year year)) (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) t nil ans))) ;; Help matching am/pm times, because `parse-time-string' does not do that. -- 2.4.3