* lisp/net/rcirc.el (rcirc-handler-353): Fix bug for channels which the
user has not joined.
This commit is contained in:
parent
fdc5744d4f
commit
0ba690bd8f
2 changed files with 10 additions and 2 deletions
|
@ -1,3 +1,8 @@
|
|||
2011-04-28 Deniz Dogan <deniz@dogan.se>
|
||||
|
||||
* net/rcirc.el (rcirc-handler-353): Fix bug for channels which the
|
||||
user has not joined.
|
||||
|
||||
2011-04-28 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* pcomplete.el (pcomplete-completions-at-point): Return nil if there
|
||||
|
|
|
@ -2741,10 +2741,13 @@ the only argument."
|
|||
|
||||
(defun rcirc-handler-353 (process sender args text)
|
||||
"RPL_NAMREPLY"
|
||||
(let ((channel (caddr args)))
|
||||
(let ((channel (nth 2 args))
|
||||
(names (or (nth 3 args) "")))
|
||||
(mapc (lambda (nick)
|
||||
(rcirc-put-nick-channel process nick channel))
|
||||
(split-string (cadddr args) " " t))
|
||||
(split-string names " " t))
|
||||
;; create a temporary buffer to insert the names into
|
||||
;; rcirc-handler-366 (RPL_ENDOFNAMES) will handle it
|
||||
(with-current-buffer (rcirc-get-temp-buffer-create process channel)
|
||||
(goto-char (point-max))
|
||||
(insert (car (last args)) " "))))
|
||||
|
|
Loading…
Add table
Reference in a new issue