[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104043: * lisp/net/rcirc.el (rcirc-h
From: |
Deniz Dogan |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104043: * lisp/net/rcirc.el (rcirc-handler-353): Fix bug for channels which the |
Date: |
Thu, 28 Apr 2011 22:22:51 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104043
committer: Deniz Dogan <address@hidden>
branch nick: emacs-trunk
timestamp: Thu 2011-04-28 22:22:51 +0200
message:
* lisp/net/rcirc.el (rcirc-handler-353): Fix bug for channels which the
user has not joined.
modified:
lisp/ChangeLog
lisp/net/rcirc.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-04-28 19:39:11 +0000
+++ b/lisp/ChangeLog 2011-04-28 20:22:51 +0000
@@ -1,3 +1,8 @@
+2011-04-28 Deniz Dogan <address@hidden>
+
+ * net/rcirc.el (rcirc-handler-353): Fix bug for channels which the
+ user has not joined.
+
2011-04-28 Stefan Monnier <address@hidden>
* pcomplete.el (pcomplete-completions-at-point): Return nil if there
=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2011-04-05 04:33:38 +0000
+++ b/lisp/net/rcirc.el 2011-04-28 20:22:51 +0000
@@ -2741,10 +2741,13 @@
(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)) " "))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104043: * lisp/net/rcirc.el (rcirc-handler-353): Fix bug for channels which the,
Deniz Dogan <=