From 595521d74c841cf70cff075872333fdf3728c4df Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 24 Oct 2009 03:54:50 +0000 Subject: [PATCH] (pcomplete-erc-all-nicks): Autoload it, to silence compiler. (pcomplete/erc-mode/DCC): Replace cl-function remove-duplicates with erc-delete-dups. --- lisp/erc/erc-dcc.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 2.39.5