Source

erc / erc-nets.el

Diff from to

erc-nets.el

 ;;; erc-nets.el --- IRC networks
 
-;; Copyright (C) 2002,2004,2005 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2004, 2005 Free Software Foundation, Inc.
 
 ;; Author: Mario Lang <mlang@lexx.delysid.org>
 ;; Keywords: comm
 
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
 ;;; Commentary:
 
 ;; This file deals with IRC networks.
 ;;; Code:
 
 (require 'erc)
+(eval-when-compile (require 'cl))
 
 (defconst erc-nets-version "$Revision$"
   "ERC networks revision.")
   (let* ((completion-ignore-case t)
 	 (net (intern
 	       (completing-read "Network: "
-				(remove-duplicates
+				(erc-delete-dups
 				 (mapcar (lambda (x)
 					   (list (symbol-name (nth 1 x))))
-					 erc-server-alist)
-				 :test #'equal))))
+					 erc-server-alist)))))
 	 (srv (assoc
 	       (completing-read "Server: "
 				(delq nil
 ;; indent-tabs-mode: t
 ;; tab-width: 8
 ;; End:
+
+;; arch-tag: 68cccabd-f66b-456c-9abe-5f993a2dc91c