|
|
@@ -18106,7 +18106,7 @@ When SUPPRESS-TMP-DELAY is non-nil, suppress delays like \"--2d\"."
|
|
|
(setq m (+ m n)))
|
|
|
(if (< m 0) (setq m (+ m 60) h (1- h)))
|
|
|
(if (> m 59) (setq m (- m 60) h (1+ h)))
|
|
|
- (setq h (min 24 (max 0 h)))
|
|
|
+ (setq h (mod h 24))
|
|
|
(setq ng 1 new (format "-%02d:%02d" h m)))
|
|
|
((org-pos-in-match-range pos 6)
|
|
|
(setq ng 6 new (car (rassoc (+ n (cdr (assoc (match-string 6 s) idx))) idx))))
|
Nicolas Goaziou