1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el
index afdf6a96e1d..29988eb14f3 100644
--- a/lisp/progmodes/cpp.el
+++ b/lisp/progmodes/cpp.el
@@ -849,8 +849,8 @@ If that option is nil, don't prints messages.
 ARGS are the same as for `message'."
   (when cpp-message-min-time-interval
     (let ((time (current-time)))
-      (when (>= (float-time (time-subtract time cpp-progress-time))
-                cpp-message-min-time-interval)
+      (unless (time-less-p cpp-message-min-time-interval
+                           (time-subtract time cpp-progress-time))
         (setq cpp-progress-time time)
         (apply 'message args)))))