[Emacs-diffs] emacs/lisp/erc ChangeLog erc-dcc.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/16 03:29:43

Modified files:
        lisp/erc       : ChangeLog erc-dcc.el 

Log message:
        (erc-dcc-server): Silence warning about obsolete function behind
        fboundp test.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/erc/ChangeLog?cvsroot=emacs&r1=1.91&r2=1.92
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/erc/erc-dcc.el?cvsroot=emacs&r1=1.16&r2=1.17

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/erc/ChangeLog,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -b -r1.91 -r1.92
--- ChangeLog   9 Jan 2009 04:27:03 -0000       1.91
+++ ChangeLog   16 Jan 2009 03:29:41 -0000      1.92
@@ -1,3 +1,8 @@
+2009-01-16  Glenn Morris  <address@hidden>
+
+       * erc-dcc.el (erc-dcc-server): Silence warning about obsolete function
+       behind fboundp test.
+
 2009-01-09  Glenn Morris  <address@hidden>
 
        * erc.el (erc-input-message): Replace last-command-char with

Index: erc-dcc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/erc/erc-dcc.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- erc-dcc.el  5 Jan 2009 03:21:29 -0000       1.16
+++ erc-dcc.el  16 Jan 2009 03:29:42 -0000      1.17
@@ -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 <address@hidden>
 ;;         Noah Friedman <address@hidden>
@@ -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)))