Carsten Dominik 17 years ago
parent
commit
186a742c24
1 changed files with 2 additions and 1 deletions
  1. 2 1
      org.el

+ 2 - 1
org.el

@@ -68,6 +68,7 @@
 
 (eval-when-compile
   (require 'cl)
+  (require 'cl-extra)
   (require 'gnus-sum)
   (require 'calendar))
 ;; For XEmacs, noutline is not yet provided by outline.el, so arrange for
@@ -18560,7 +18561,7 @@ in the timestamp determines what will be changed."
       (setq time0 (org-parse-time-string ts))
       (when (and (eq org-ts-what 'minute)
 		 (eq current-prefix-arg nil))
-	(setq n (* dm (signum n)))
+	(setq n (* dm (org-no-warnings (signum n))))
 	(when (not (= 0 (setq rem (% (nth 1 time0) dm))))
 	  (setcar (cdr time0) (+ (nth 1 time0)
 				 (if (> n 0) (- rem) (- dm rem))))))