From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 5 Jan 2014 13:12:19 +0000 (+0000)
Subject: dot/ercrc.el: Avoid duplicates in `mdw-erc-auto-greet-bots-alist'.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/5922f46dcfb0e806e100a7ea50dc8b9bfe7e95d5?ds=sidebyside

dot/ercrc.el: Avoid duplicates in `mdw-erc-auto-greet-bots-alist'.

Use `pushnew' instead of `push' here.  Otherwise we end up greeting bots
multiple times.
---

diff --git a/dot/ercrc.el b/dot/ercrc.el
index 525368d..cdf436e 100644
--- a/dot/ercrc.el
+++ b/dot/ercrc.el
@@ -44,7 +44,8 @@ (defvar mdw-erc-auto-greet-bots-alist nil
 
 (defun mdw-define-bot-greeting (server bot greeting)
   "Define a new bot greeting."
-  (push (list server bot greeting) mdw-erc-auto-greet-bots-alist))
+  (pushnew (list server bot greeting) mdw-erc-auto-greet-bots-alist
+	   :test #'string= :key #'car))
 (load "~/.erc-auth.el")
 
 (defun mdw-erc-auto-greet-bots (server nick)