Mercurial > emacs
changeset 101228:b3adc9117711
(erc-dcc-server): Silence warning about obsolete function behind
fboundp test.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 16 Jan 2009 03:29:41 +0000 |
parents | c515c8daae0f |
children | 0187c269e057 |
files | lisp/erc/ChangeLog lisp/erc/erc-dcc.el |
diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/erc/ChangeLog Fri Jan 16 03:28:30 2009 +0000 +++ b/lisp/erc/ChangeLog Fri Jan 16 03:29:41 2009 +0000 @@ -1,3 +1,8 @@ +2009-01-16 Glenn Morris <rgm@gnu.org> + + * erc-dcc.el (erc-dcc-server): Silence warning about obsolete function + behind fboundp test. + 2009-01-09 Glenn Morris <rgm@gnu.org> * erc.el (erc-input-message): Replace last-command-char with
--- a/lisp/erc/erc-dcc.el Fri Jan 16 03:28:30 2009 +0000 +++ b/lisp/erc/erc-dcc.el Fri Jan 16 03:29:41 2009 +0000 @@ -1,7 +1,7 @@ ;;; erc-dcc.el --- CTCP DCC module for ERC -;; Copyright (C) 1993, 1994, 1995, 1998, 2002, 2003, 2004, 2006, 2007, 2008, 2009 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1998, 2002, 2003, 2004, 2006, 2007, +;; 2008, 2009 Free Software Foundation, Inc. ;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu> ;; Noah Friedman <friedman@prep.ai.mit.edu> @@ -377,7 +377,8 @@ (when (fboundp 'set-process-coding-system) (set-process-coding-system process 'binary 'binary)) (when (fboundp 'set-process-filter-multibyte) - (set-process-filter-multibyte process nil)))) + (with-no-warnings ; obsolete since 23.1 + (set-process-filter-multibyte process nil))))) (file-error (unless (and (string= "Cannot bind server socket" (cadr err)) (string= "address already in use" (caddr err)))