mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/net/rcirc.el: Undo previous change; it was a typo.

Browse source
This commit is contained in:
Paul Eggert 2019-03-07 10:43:19 -08:00
parent 3739d51ef3
commit ab9ae2fdfd
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/rcirc.el
View file

@ -2685,7 +2685,7 @@ the only argument."
(defun rcirc-handler-PART (process sender args _text) (defun rcirc-handler-PART (process sender args _text)
(let* ((channel (car args)) (let* ((channel (car args))
(reason (cadr args)) (reason (cadr args))
(message "%s %s" channel reason)) (message (concat channel " " reason)))
(rcirc-print process sender "PART" channel message) (rcirc-print process sender "PART" channel message)
;; print in private chat buffer if it exists ;; print in private chat buffer if it exists
(when (rcirc-get-buffer (rcirc-buffer-process) sender) (when (rcirc-get-buffer (rcirc-buffer-process) sender)
@ -2697,7 +2697,7 @@ the only argument."
(let* ((channel (car args)) (let* ((channel (car args))
(nick (cadr args)) (nick (cadr args))
(reason (nth 2 args)) (reason (nth 2 args))
(message "%s %s %s" nick channel reason)) (message (concat nick " " channel " " reason)))
(rcirc-print process sender "KICK" channel message t) (rcirc-print process sender "KICK" channel message t)
;; print in private chat buffer if it exists ;; print in private chat buffer if it exists
(when (rcirc-get-buffer (rcirc-buffer-process) nick) (when (rcirc-get-buffer (rcirc-buffer-process) nick)