diff options
Diffstat (limited to 'lisp/progmodes/cpp.el')
-rw-r--r-- | lisp/progmodes/cpp.el | 4 |
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))))) |