Remove dependence on cl-extra.
This commit is contained in:
parent
9a44493492
commit
828352a550
|
@ -12452,7 +12452,7 @@ in the timestamp determines what will be changed."
|
||||||
(setq time0 (org-parse-time-string ts))
|
(setq time0 (org-parse-time-string ts))
|
||||||
(when (and (eq org-ts-what 'minute)
|
(when (and (eq org-ts-what 'minute)
|
||||||
(eq current-prefix-arg nil))
|
(eq current-prefix-arg nil))
|
||||||
(setq n (* dm (org-no-warnings (signum n))))
|
(setq n (* dm (cond ((> n 0) 1) ((< n 0) -1) (t 0))))
|
||||||
(when (not (= 0 (setq rem (% (nth 1 time0) dm))))
|
(when (not (= 0 (setq rem (% (nth 1 time0) dm))))
|
||||||
(setcar (cdr time0) (+ (nth 1 time0)
|
(setcar (cdr time0) (+ (nth 1 time0)
|
||||||
(if (> n 0) (- rem) (- dm rem))))))
|
(if (> n 0) (- rem) (- dm rem))))))
|
||||||
|
|
Loading…
Reference in New Issue