From f2f072f3b69cc2441fc59feac1a84dc329fe96f3 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 10 Mar 2008 09:14:15 +0100 Subject: [PATCH] Make sure old customizations for `org-time-stamp-rounting-minutes' work. --- org.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/org.el b/org.el index 7a4f73bb8..f9af7c464 100644 --- a/org.el +++ b/org.el @@ -1982,7 +1982,7 @@ the time stamp will always be forced into the second line." "Formats for `format-time-string' which are used for time stamps. It is not recommended to change this constant.") -(defcustom org-time-stamp-rounding-minutes '(0 5) +(defcustom org-time-stamp-rounding-minutes '(0 0) "Number of minutes to round time stamps to. These are two values, the first applies when first creating a time stamp. The second applies when changing it with the commands `S-up' and `S-down'. @@ -2005,6 +2005,12 @@ of minutes to shift." (integer :tag "when inserting times") (integer :tag "when modifying times"))) +;; Make sure old customizations of this variable don't lead to problems. +(when (integerp org-time-stamp-rounding-minutes) + (setq org-time-stamp-rounding-minutes + (list org-time-stamp-rounding-minutes + org-time-stamp-rounding-minutes))) + (defcustom org-display-custom-times nil "Non-nil means, overlay custom formats over all time stamps. The formats are defined through the variable `org-time-stamp-custom-formats'.