diff options
| author | Amin Bandali <bandali@gnu.org> | 2020-12-28 16:44:58 -0500 |
|---|---|---|
| committer | Amin Bandali <bandali@gnu.org> | 2020-12-28 16:45:41 -0500 |
| commit | c6d555564617d187d9e1aacd12da6ace56718f81 (patch) | |
| tree | 260a8bf8470952cf70077496aa0068fdc39d0888 | |
| parent | c15672376943ae6bfe05f3ab91f5b8a65a9d8d4a (diff) | |
| download | emacs-c6d555564617d187d9e1aacd12da6ace56718f81.tar.gz | |
Display messages sent using ERC's /say
* lisp/erc/erc.el (erc-cmd-SAY): Call `erc-display-msg' to display the
user's message in the buffer, just like other [non-command] messages.
https://lists.gnu.org/r/help-gnu-emacs/2020-12/msg00066.html
| -rw-r--r-- | lisp/erc/erc.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 3033122437a..c32a1d97166 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -2847,7 +2847,9 @@ need this when pasting multiple lines of text." (if (string-match "^\\s-*$" line) nil (string-match "^ ?\\(.*\\)" line) - (erc-process-input-line (match-string 1 line) nil t))) + (let ((msg (match-string 1 line))) + (erc-display-msg msg) + (erc-process-input-line msg nil t)))) (put 'erc-cmd-SAY 'do-not-parse-args t) (defun erc-cmd-SET (line) |