emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Glenn Morris
Subject: [Emacs-diffs] emacs/lisp/erc erc-dcc.el
Date: Sat, 24 Oct 2009 03:54:50 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/24 03:54:50

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

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

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

Patches:
Index: erc-dcc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/erc/erc-dcc.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- erc-dcc.el  16 Jan 2009 03:29:42 -0000      1.17
+++ erc-dcc.el  24 Oct 2009 03:54:50 -0000      1.18
@@ -426,6 +426,8 @@
         (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 @@
                     #'(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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]