From ed4ba8dfc41c4906185f3496f248ece64117daf1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 2 Sep 2009 03:22:00 +0000 Subject: [PATCH] (time-add): Suppress warnings from compat function. --- lisp/net/newst-backend.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index 56254ccd539..6d8b32965b9 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el @@ -442,10 +442,15 @@ buffers *newsticker-wget-* will not be closed." ;; ====================================================================== ;;; Compatibility section, XEmacs, Emacs ;; ====================================================================== + +;; FIXME It is bad practice to define compat functions with such generic names. + +;; This is not needed in Emacs >= 22.1. (unless (fboundp 'time-add) (require 'time-date);;FIXME (defun time-add (t1 t2) - (seconds-to-time (+ (time-to-seconds t1) (time-to-seconds t2))))) + (with-no-warnings ; don't warn about obsolete time-to-seconds in 23.2 + (seconds-to-time (+ (time-to-seconds t1) (time-to-seconds t2)))))) (unless (fboundp 'match-string-no-properties) (defalias 'match-string-no-properties 'match-string)) -- 2.39.2