瀏覽代碼

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

Carsten Dominik 17 年之前
父節點
當前提交
083570fa79
共有 1 個文件被更改,包括 7 次插入1 次删除
  1. 7 1
      org.el

+ 7 - 1
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'.