From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 23 Jun 2006 13:33:47 +0000 (+0000)
Subject: (rcirc-default-user-full-name): Default to `rcirc-default-user-name' instead
X-Git-Tag: emacs-pretest-22.0.90~1869
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=18aa2c90a08402d77d5eaed2298710be67870642;p=emacs.git

(rcirc-default-user-full-name): Default to `rcirc-default-user-name' instead
of `rcirc-user-name' (which no longer exists).
(rcirc-process-list): Check `buffer-live-p' before attempting to switch to a
buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d63d52da50..b03b3e850d4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2006-06-23  Daniel Brockman  <daniel@brockman.se>
+
+	* net/rcirc.el (rcirc-default-user-full-name): Default to
+	`rcirc-default-user-name' instead of `rcirc-user-name' (which no
+	longer exists).
+	(rcirc-process-list): Check `buffer-live-p' before attempting to
+	switch to a buffer.
+
 2006-06-23  Ryan Yeske  <rcyeske@gmail.com>
 
 	* net/rcirc.el (rcirc-mode): Fix initialization of coding systems
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 683d7c6f3c1..1f051ffa9f2 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -74,7 +74,7 @@
   :group 'rcirc)
 
 (defcustom rcirc-default-user-full-name (if (string= (user-full-name) "")
-					    rcirc-user-name
+					    rcirc-default-user-name
 					  (user-full-name))
   "The full name sent to the server when connecting."
   :type 'string
@@ -469,7 +469,7 @@ Functions are called with PROCESS and SENTINEL arguments.")
   "Return a list of rcirc processes."
   (let (ps)
     (mapc (lambda (p)
-            (when (process-buffer p)
+            (when (buffer-live-p (process-buffer p))
               (with-rcirc-process-buffer p
                 (when (eq major-mode 'rcirc-mode)
                   (setq ps (cons p ps))))))