From 71214441005c76159a21b2153b6921788bc5152d Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 19 Jun 2019 18:20:22 +0200 Subject: [PATCH] Use add/remove-hook on erc-pre-send-functions * lisp/erc/erc-goodies.el (noncommands): Ditto. * lisp/erc/erc-ring.el (ring): Use add/remove-hook. --- lisp/erc/erc-goodies.el | 5 ++--- lisp/erc/erc-ring.el | 5 ++--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/erc/erc-goodies.el b/lisp/erc/erc-goodies.el index 7a3910567ab..5e7946810be 100644 --- a/lisp/erc/erc-goodies.el +++ b/lisp/erc/erc-goodies.el @@ -177,9 +177,8 @@ 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." - ((cl-pushnew 'erc-send-distinguish-noncommands erc-pre-send-functions)) - ((setq erc-pre-send-functions (delq 'erc-send-distinguish-noncommands - erc-pre-send-functions)))) + ((add-hook 'erc-pre-send-functions 'erc-send-distinguish-noncommands)) + ((remove-hook 'erc-pre-send-functions 'erc-send-distinguish-noncommands))) (defun erc-send-distinguish-noncommands (state) "If STR is an ERC non-command, set `insertp' in STATE to nil." diff --git a/lisp/erc/erc-ring.el b/lisp/erc/erc-ring.el index ea57faebc45..453e234a37a 100644 --- a/lisp/erc/erc-ring.el +++ b/lisp/erc/erc-ring.el @@ -46,11 +46,10 @@ (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." - ((cl-pushnew 'erc-add-to-input-ring erc-pre-send-functions) + ((add-hook 'erc-pre-send-functions 'erc-add-to-input-ring) (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 - erc-pre-send-functions)) + ((remove-hook 'erc-pre-send-functions 'erc-add-to-input-ring) (define-key erc-mode-map "\M-p" 'undefined) (define-key erc-mode-map "\M-n" 'undefined))) -- 2.39.2