From: Glenn Morris <rgm@gnu.org>
Date: Wed, 2 Sep 2009 03:22:00 +0000 (+0000)
Subject: (time-add): Suppress warnings from compat function.
X-Git-Tag: emacs-pretest-23.1.90~1521
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed4ba8dfc41c4906185f3496f248ece64117daf1;p=emacs.git

(time-add): Suppress warnings from compat function.
---

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-<feed>* 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))