dot/ercrc.el: Avoid duplicates in `mdw-erc-auto-greet-bots-alist'.
authorMark Wooding <mdw@distorted.org.uk>
Sun, 5 Jan 2014 13:12:19 +0000 (13:12 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Sun, 5 Jan 2014 13:26:37 +0000 (13:26 +0000)
Use `pushnew' instead of `push' here.  Otherwise we end up greeting bots
multiple times.

dot/ercrc.el

index 525368d..cdf436e 100644 (file)
@@ -44,7 +44,8 @@ matches SERVER-REGEXP.")
 
 (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)