Mercurial > emacs
changeset 104892:e86ba08d7eac
(with-no-warnings): Define it for old Emacsen.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 09 Sep 2009 10:41:50 +0000 |
| parents | 2c607b344f3b |
| children | 511c7f2425a4 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-util.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Sep 09 10:07:19 2009 +0000 +++ b/lisp/gnus/ChangeLog Wed Sep 09 10:41:50 2009 +0000 @@ -1,6 +1,7 @@ 2009-09-09 Katsumi Yamaoka <yamaoka@jpl.org> - * 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
--- a/lisp/gnus/gnus-util.el Wed Sep 09 10:07:19 2009 +0000 +++ b/lisp/gnus/gnus-util.el Wed Sep 09 10:41:50 2009 +0000 @@ -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)