[Emacs-diffs] emacs/lisp/gnus gnus-util.el ChangeLog

[Katsumi Yamaoka]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Katsumi Yamaoka <yamaoka>       09/09/09 10:41:51

Modified files:
        lisp/gnus      : gnus-util.el ChangeLog 

Log message:
        (with-no-warnings): Define it for old Emacsen.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-util.el?cvsroot=emacs&r1=1.75&r2=1.76
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.827&r2=1.828

Patches:
Index: gnus-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-util.el,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -b -r1.75 -r1.76
--- gnus-util.el        9 Sep 2009 09:28:44 -0000       1.75
+++ gnus-util.el        9 Sep 2009 10:41:50 -0000       1.76
@@ -38,6 +38,12 @@
   (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
 (eval-when-compile
   (require 'cl))
+
+(eval-when-compile
+  (unless (fboundp 'with-no-warnings)
+    (defmacro with-no-warnings (&rest body)
+      `(progn ,@body))))
+
 ;; Fixme: this should be a gnus variable, not nnmail-.
 (defvar nnmail-pathname-coding-system)
 (defvar nnmail-active-file-coding-system)

Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.827
retrieving revision 1.828
diff -u -b -r1.827 -r1.828
--- ChangeLog   9 Sep 2009 09:28:43 -0000       1.827
+++ ChangeLog   9 Sep 2009 10:41:50 -0000       1.828
@@ -1,6 +1,7 @@
 2009-09-09  Katsumi Yamaoka  <address@hidden>
 
-       * gnus-util.el (gnus-float-time): Alias to float-time if it exists.
+       * gnus-util.el (with-no-warnings): Define it for old Emacsen.
+       (gnus-float-time): Alias to float-time if it exists.
 
        * ecomplete.el (with-no-warnings): Define it for old Emacsen.
        (ecomplete-add-item): Don't use (featurep 'xemacs) to check if