Mercurial > emacs

changeset 71442:00a28b680b71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 23 Jun 2006 13:33:08 +0000
parents b0655175e0a4
children 0d80312fb67d
files lisp/net/rcirc.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/rcirc.el	Fri Jun 23 13:23:39 2006 +0000
+++ b/lisp/net/rcirc.el	Fri Jun 23 13:33:08 2006 +0000
@@ -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 @@
   "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))))))