emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/erc/erc-ibuffer.el,v


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/erc/erc-ibuffer.el,v
Date: Mon, 20 Nov 2006 06:50:32 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/11/20 06:50:29

Index: lisp/erc/erc-ibuffer.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/erc/erc-ibuffer.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- lisp/erc/erc-ibuffer.el     12 Feb 2006 20:25:00 -0000      1.3
+++ lisp/erc/erc-ibuffer.el     20 Nov 2006 06:50:29 -0000      1.4
@@ -91,14 +91,14 @@
     " "))
 
 (define-ibuffer-column erc-server-name (:name "Server")
-  (if (and (boundp 'erc-server-process) (processp erc-server-process))
+  (if (and erc-server-process (processp erc-server-process))
       (with-current-buffer (process-buffer erc-server-process)
        (or erc-server-announced-name erc-session-server))
     ""))
 
 (define-ibuffer-column erc-target (:name "Target")
   (if (eq major-mode 'erc-mode)
-      (cond ((and (boundp 'erc-server-process) (processp erc-server-process)
+      (cond ((and erc-server-process (processp erc-server-process)
                  (eq (current-buffer) (process-buffer erc-server-process)))
             (concat "Server " erc-session-server ":"
                     (erc-port-to-string erc-session-port)))
@@ -125,7 +125,7 @@
     ""))
 
 (define-ibuffer-column erc-away (:name "A")
-  (if (and (boundp 'erc-server-process)
+  (if (and erc-server-process
           (processp erc-server-process)
           (with-current-buffer (process-buffer erc-server-process)
             erc-away))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]