Make sure old customizations for `org-time-stamp-rounting-minutes' work.

This commit is contained in:
Carsten Dominik 2008-03-10 09:14:15 +01:00
parent cb8c0e81a9
commit f2f072f3b6
1 changed files with 7 additions and 1 deletions

8
org.el
View File

@ -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. "Formats for `format-time-string' which are used for time stamps.
It is not recommended to change this constant.") 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. "Number of minutes to round time stamps to.
These are two values, the first applies when first creating a time stamp. 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'. 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 inserting times")
(integer :tag "when modifying 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 (defcustom org-display-custom-times nil
"Non-nil means, overlay custom formats over all time stamps. "Non-nil means, overlay custom formats over all time stamps.
The formats are defined through the variable `org-time-stamp-custom-formats'. The formats are defined through the variable `org-time-stamp-custom-formats'.