diff options
author | Glenn Morris <rgm@gnu.org> | 2009-10-24 03:54:50 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2009-10-24 03:54:50 +0000 |
commit | 595521d74c841cf70cff075872333fdf3728c4df (patch) | |
tree | d307f6ea502c58353ba92a8cc8013f0c63eee0bc /lisp/erc | |
parent | ae73233745e1ad53001ead63e31e1f735000e2c0 (diff) | |
download | emacs-595521d74c841cf70cff075872333fdf3728c4df.tar.gz |
(pcomplete-erc-all-nicks): Autoload it, to silence compiler.
(pcomplete/erc-mode/DCC): Replace cl-function remove-duplicates with
erc-delete-dups.
Diffstat (limited to 'lisp/erc')
-rw-r--r-- | lisp/erc/erc-dcc.el | 6 |
1 files 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) |