diff options
Diffstat (limited to 'lisp/erc/erc-sound.el')
| -rw-r--r-- | lisp/erc/erc-sound.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/erc/erc-sound.el b/lisp/erc/erc-sound.el index 9cc0514681d..f1c6601427f 100644 --- a/lisp/erc/erc-sound.el +++ b/lisp/erc/erc-sound.el @@ -47,6 +47,11 @@ (require 'erc) +(defgroup erc-sound nil + "Make ERC play bells and whistles while chatting with people." + :group 'erc) + +;;;###autoload(put 'ctcp-sound 'erc--module 'sound) ;;;###autoload(autoload 'erc-sound-mode "erc-sound") (define-erc-module sound ctcp-sound "In ERC sound mode, the client will respond to CTCP SOUND requests @@ -58,11 +63,8 @@ and play sound files as requested." ((remove-hook 'erc-ctcp-query-SOUND-hook #'erc-ctcp-query-SOUND) (define-key erc-mode-map "\C-c\C-s" #'undefined))) -(erc-define-catalog-entry 'english 'CTCP-SOUND "%n (%u@%h) plays %s:%m") - -(defgroup erc-sound nil - "Make ERC play bells and whistles while chatting with people." - :group 'erc) +(defvar erc-message-english-CTCP-SOUND "%n (%u@%h) plays %s:%m" + "English template for a CTCP SOUND message.") (defcustom erc-play-sound t "Play sounds when you receive CTCP SOUND requests." |