diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-02 03:22:00 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-02 03:22:00 +0000 |
| commit | ed4ba8dfc41c4906185f3496f248ece64117daf1 (patch) | |
| tree | 7a5fc974dd2eff68a5287746a1b229563f1802b3 | |
| parent | 0d00c61c1235fb9e54a8b6b4ef8cbbcc6271da83 (diff) | |
| download | emacs-ed4ba8dfc41c4906185f3496f248ece64117daf1.tar.gz | |
(time-add): Suppress warnings from compat function.
| -rw-r--r-- | lisp/net/newst-backend.el | 7 |
1 files changed, 6 insertions, 1 deletions
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)) |