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