[Top][All Lists]
[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/erc erc-dcc.el,
Glenn Morris <=