diff options
| -rw-r--r-- | lisp/erc/erc-common.el | 3 | ||||
| -rw-r--r-- | test/lisp/erc/erc-tests.el | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lisp/erc/erc-common.el b/lisp/erc/erc-common.el index e662c06daa4..da75d50d613 100644 --- a/lisp/erc/erc-common.el +++ b/lisp/erc/erc-common.el @@ -130,7 +130,8 @@ canonical name.") (if val "Enable" "Disable") " ERC " (symbol-name name) " mode." (when localp - "\nWith ARG, do so in all buffers for the current connection.")) + (concat "\nWhen called interactively," + " do so in all buffers for the current connection."))) (interactive ,@(when localp '("p"))) ,@(if localp `((when (derived-mode-p 'erc-mode) diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el index 51c562f5255..578b2641a6d 100644 --- a/test/lisp/erc/erc-tests.el +++ b/test/lisp/erc/erc-tests.el @@ -1331,7 +1331,7 @@ Some docstring" (defun erc-mname-enable (&optional ,arg-en) "Enable ERC mname mode. -With ARG, do so in all buffers for the current connection." +When called interactively, do so in all buffers for the current connection." (interactive "p") (when (derived-mode-p 'erc-mode) (if ,arg-en @@ -1343,7 +1343,7 @@ With ARG, do so in all buffers for the current connection." (defun erc-mname-disable (&optional ,arg-dis) "Disable ERC mname mode. -With ARG, do so in all buffers for the current connection." +When called interactively, do so in all buffers for the current connection." (interactive "p") (when (derived-mode-p 'erc-mode) (if ,arg-dis |