>From c287eeaa4dd5f6ec592fdc4138492a034723d398 Mon Sep 17 00:00:00 2001 From: "F. Jason Park" Date: Sat, 25 Mar 2023 09:13:40 -0700 Subject: [PATCH 2/3] Add subcommand erc-cmd-HELP handler to erc-dcc * lisp/erc/erc-dcc.el (erc-cmd-DCC): Elect to tokenize line specially. (erc-dcc--cmd-help): Add help handler. --- lisp/erc/erc-dcc.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el index 4c557e0e0f9..05eced6a391 100644 --- a/lisp/erc/erc-dcc.el +++ b/lisp/erc/erc-dcc.el @@ -404,8 +404,17 @@ erc-cmd-DCC (apropos "erc-dcc-do-.*-command") t)))) +(put 'erc-cmd-DCC 'do-not-parse-args t) (autoload 'pcomplete-erc-all-nicks "erc-pcomplete") +(defun erc-dcc--cmd-help (&rest args) + (describe-function + (or (and args (intern-soft (concat "erc-dcc-do-" + (upcase (car args)) "-command"))) + 'erc-cmd-DCC))) + +(put 'erc-cmd-DCC 'erc--cmd-help #'erc-dcc--cmd-help) + ;;;###autoload (defun pcomplete/erc-mode/DCC () "Provide completion for the /DCC command." -- 2.39.2