From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 19 Jun 2019 14:42:02 +0000 (+0200)
Subject: Don't have erc-goodies and erc-ring register functions multiple times
X-Git-Tag: emacs-27.0.90~2395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12efa07f95d96fe42d6c72794e3bf4fac62a4bf4;p=emacs.git

Don't have erc-goodies and erc-ring register functions multiple times

* lisp/erc/erc-goodies.el (noncommands): Don't register functions
twice.

* lisp/erc/erc-ring.el (ring): Ditto.
---

diff --git a/lisp/erc/erc-goodies.el b/lisp/erc/erc-goodies.el
index 41083829bac..ff5539e7928 100644
--- a/lisp/erc/erc-goodies.el
+++ b/lisp/erc/erc-goodies.el
@@ -177,7 +177,7 @@ does not appear in the ERC buffer after the user presses ENTER.")
   "This mode distinguishes non-commands.
 Commands listed in `erc-insert-this' know how to display
 themselves."
-  ((push 'erc-send-distinguish-noncommands erc-pre-send-functions))
+  ((cl-pushnew 'erc-send-distinguish-noncommands erc-pre-send-functions))
   ((setq erc-pre-send-functions (delq 'erc-send-distinguish-noncommands
                                       erc-pre-send-functions))))
 
diff --git a/lisp/erc/erc-ring.el b/lisp/erc/erc-ring.el
index 2ee78f4d46d..aaf4bd8c499 100644
--- a/lisp/erc/erc-ring.el
+++ b/lisp/erc/erc-ring.el
@@ -46,7 +46,7 @@
 (define-erc-module ring nil
   "Stores input in a ring so that previous commands and messages can
 be recalled using M-p and M-n."
-  ((push 'erc-add-to-input-ring erc-pre-send-functions)
+  ((cl-pushnew 'erc-add-to-input-ring erc-pre-send-functions)
    (define-key erc-mode-map "\M-p" 'erc-previous-command)
    (define-key erc-mode-map "\M-n" 'erc-next-command))
   ((setq erc-pre-send-functions (delq 'erc-add-to-input-ring