Remove dependence on cl-extra.

This commit is contained in:
Carsten Dominik 2008-03-29 00:01:48 +01:00
parent 9a44493492
commit 828352a550
1 changed files with 1 additions and 1 deletions

View File

@ -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))))))