mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-19 20:30:29 -08:00
Code Issues Projects Releases Wiki Activity

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

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

* lisp/erc/erc-ring.el (ring): Ditto.
This commit is contained in:
Lars Ingebrigtsen 2019-06-19 16:42:02 +02:00
parent 416b83e907
commit 12efa07f95
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/erc/erc-goodies.el
View file

@ -177,7 +177,7 @@ does not appear in the ERC buffer after the user presses ENTER.")
"This mode distinguishes non-commands. "This mode distinguishes non-commands.
Commands listed in `erc-insert-this' know how to display Commands listed in `erc-insert-this' know how to display
themselves." 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 ((setq erc-pre-send-functions (delq 'erc-send-distinguish-noncommands
erc-pre-send-functions)))) erc-pre-send-functions))))

2
lisp/erc/erc-ring.el
View file

@ -46,7 +46,7 @@
(define-erc-module ring nil (define-erc-module ring nil
"Stores input in a ring so that previous commands and messages can "Stores input in a ring so that previous commands and messages can
be recalled using M-p and M-n." 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-p" 'erc-previous-command)
(define-key erc-mode-map "\M-n" 'erc-next-command)) (define-key erc-mode-map "\M-n" 'erc-next-command))
((setq erc-pre-send-functions (delq 'erc-add-to-input-ring ((setq erc-pre-send-functions (delq 'erc-add-to-input-ring