From: Glenn Morris <rgm@gnu.org>
Date: Sat, 24 Oct 2009 03:54:50 +0000 (+0000)
Subject: (pcomplete-erc-all-nicks):  Autoload it, to silence compiler.
X-Git-Tag: emacs-pretest-23.1.90~674
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=595521d74c841cf70cff075872333fdf3728c4df;p=emacs.git

(pcomplete-erc-all-nicks):  Autoload it, to silence compiler.
(pcomplete/erc-mode/DCC): Replace cl-function remove-duplicates with
erc-delete-dups.
---

diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el
index 4dda869315c..8708fb0f447 100644
--- a/lisp/erc/erc-dcc.el
+++ b/lisp/erc/erc-dcc.el
@@ -426,6 +426,8 @@ where FOO is one of CLOSE, GET, SEND, LIST, CHAT, etc."
         (apropos "erc-dcc-do-.*-command")
         t))))
 
+(autoload 'pcomplete-erc-all-nicks "erc-pcomplete")
+
 ;;;###autoload
 (defun pcomplete/erc-mode/DCC ()
   "Provides completion for the /DCC command."
@@ -438,9 +440,9 @@ where FOO is one of CLOSE, GET, SEND, LIST, CHAT, etc."
                     #'(lambda (elt)
                         (eq (plist-get elt :type) 'CHAT))
                     erc-dcc-list)))
-     (close (remove-duplicates
+     (close (erc-delete-dups
              (mapcar (lambda (elt) (symbol-name (plist-get elt :type)))
-                     erc-dcc-list) :test 'string=))
+                     erc-dcc-list)))
      (get (mapcar #'erc-dcc-nick
                   (erc-remove-if-not
                    #'(lambda (elt)