Revision: emacs@sv.gnu.org/emacs--devo--0--patch-24

Creator:  Michael Olson <mwolson@gnu.org>

Fix ERC compiler warnings.

diff --git a/lisp/erc/.gitignore b/lisp/erc/.gitignore
new file mode 100644 (file)
index 0000000..7053c31
--- /dev/null
+++ b/lisp/erc/.gitignore
@@ -0,0 +1,3 @@
+{arch}
+.arch-ids
+*.elc

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index b50ac5a0df2eb0e95fb66b2208b71a46cdb4a272..d508f58a3a159e16d78f0c4b27fbeff93c9729a9 100644 (file)
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,18 @@
+2006-01-29  Michael Olson  <mwolson@gnu.org>
+
+       * erc-speedbar.el (erc-speedbar-buttons): Fix reference to free
+       variable.
+       (erc-speedbar-goto-buffer): Fix compiler warning.
+
+       * erc-ibuffer.el: Use `define-ibuffer-filter' instead of
+       `ibuffer-degine-limiter'.  Use `define-ibuffer-column' instead of
+       `ibuffer-define-column'.  Require 'ibuf-ext so that the macros
+       work without compiler warnings.
+
+       * man/erc.texi (Obtaining ERC, Installation): Note that these
+       sections may be skipped if using the version of ERC that comes
+       with Emacs.
+
 2006-01-28  Michael Olson  <mwolson@gnu.org>
 
        * erc-*.el, erc.texi, NEWS: Add Arch taglines as per Emacs

diff --git a/lisp/erc/erc-ibuffer.el b/lisp/erc/erc-ibuffer.el
index 63ec7bcecb0ba453b6636a895988c2beefa4f961..a122908ed2c31be29d3b2fa507dede873d2f8d44 100644 (file)
--- a/lisp/erc/erc-ibuffer.el
+++ b/lisp/erc/erc-ibuffer.el
@@ -32,6 +32,7 @@
 ;;; Code:
 
 (require 'ibuffer)
+(require 'ibuf-ext)
 (require 'erc)
 
 (defgroup erc-ibuffer nil
@@ -51,16 +52,17 @@
   :group 'erc-ibuffer
   :type 'character)
 (defcustom erc-ibuffer-dangerous-host-char ?d
-  "Char used to indicate a channel which had dangerous-host traffic lately (hidden)."
+  "Char used to indicate a channel which had dangerous-host traffic lately
+\(hidden)."
   :group 'erc-ibuffer
   :type 'character)
 
-(ibuffer-define-limiter erc-server
-  (:documentation
-   "Toggle current view to buffers which are related to ERC servers."
-   :description "erc servers"
+(define-ibuffer-filter erc-server
+  "Toggle current view to buffers which are related to ERC servers."
+  (:description "erc servers"
    :reader
-   (let ((regexp (read-from-minibuffer "Limit by server (regexp) (RET for all): ")))
+   (let ((regexp
+         (read-from-minibuffer "Limit by server (regexp) (RET for all): ")))
      (if (string= regexp "")
         ".*"
        regexp)))
@@ -69,7 +71,7 @@
         (string-match qualifier (or erc-server-announced-name
                                     erc-session-server)))))
 
-(ibuffer-define-column erc-modified (:name "M")
+(define-ibuffer-column erc-modified (:name "M")
   (if (and (boundp 'erc-track-mode)
           erc-track-mode)
       (let ((entry (assq (current-buffer) erc-modified-channels-alist)))
@@ -88,13 +90,13 @@
          " "))
     " "))
 
-(ibuffer-define-column erc-server-name (:name "Server")
+(define-ibuffer-column erc-server-name (:name "Server")
   (if (and (boundp 'erc-server-process) (processp erc-server-process))
       (with-current-buffer (process-buffer erc-server-process)
        (or erc-server-announced-name erc-session-server))
     ""))
 
-(ibuffer-define-column erc-target (:name "Target")
+(define-ibuffer-column erc-target (:name "Target")
   (if (eq major-mode 'erc-mode)
       (cond ((and (boundp 'erc-server-process) (processp erc-server-process)
                  (eq (current-buffer) (process-buffer erc-server-process)))
@@ -107,13 +109,13 @@
            (t "(parted)"))
     (buffer-name)))
 
-(ibuffer-define-column erc-topic (:name "Topic")
+(define-ibuffer-column erc-topic (:name "Topic")
   (if (and (eq major-mode 'erc-mode)
           erc-channel-topic)
       (erc-controls-interpret erc-channel-topic)
     ""))
 
-(ibuffer-define-column
+(define-ibuffer-column
  erc-members (:name "Users")
   (if (and (eq major-mode 'erc-mode)
           (boundp 'erc-channel-users)
@@ -122,7 +124,7 @@
      (number-to-string (hash-table-size erc-channel-users))
     ""))
 
-(ibuffer-define-column erc-away (:name "A")
+(define-ibuffer-column erc-away (:name "A")
   (if (and (boundp 'erc-server-process)
           (processp erc-server-process)
           (with-current-buffer (process-buffer erc-server-process)
@@ -130,20 +132,20 @@
       "A"
     " "))
 
-(ibuffer-define-column
+(define-ibuffer-column
  erc-op (:name "O")
   (if (and (eq major-mode 'erc-mode)
           (erc-channel-user-op-p (erc-current-nick)))
       "@"
     " "))
 
-(ibuffer-define-column erc-voice (:name "V")
+(define-ibuffer-column erc-voice (:name "V")
   (if (and (eq major-mode 'erc-mode)
           (erc-channel-user-voice-p (erc-current-nick)))
       "+"
     " "))
 
-(ibuffer-define-column erc-channel-modes (:name "Mode")
+(define-ibuffer-column erc-channel-modes (:name "Mode")
   (if (and (eq major-mode 'erc-mode)
           (or (> (length erc-channel-modes) 0)
               erc-channel-user-limit))
@@ -157,13 +159,19 @@
        mode-name
       "")))
 
-(ibuffer-define-column erc-nick (:name "Nick")
+(define-ibuffer-column erc-nick (:name "Nick")
   (if (eq major-mode 'erc-mode)
       (erc-current-nick)
     ""))
 
-(defvar erc-ibuffer-formats '((mark erc-modified erc-away erc-op erc-voice " " (erc-nick 8 8) " " (erc-target 18 40) (erc-members 5 5 :center) (erc-channel-modes 6 16 :center) " " (erc-server-name 20 30) " " (erc-topic 10 -1))
-                             (mark erc-modified erc-away erc-op erc-voice " " (erc-target 18 40) (erc-members 5 5 :center) (erc-channel-modes 9 20 :center) " " (erc-topic 10 -1))))
+(defvar erc-ibuffer-formats
+  '((mark erc-modified erc-away erc-op erc-voice " " (erc-nick 8 8) " "
+         (erc-target 18 40) (erc-members 5 5 :center)
+         (erc-channel-modes 6 16 :center) " " (erc-server-name 20 30) " "
+         (erc-topic 10 -1))
+    (mark erc-modified erc-away erc-op erc-voice " " (erc-target 18 40)
+         (erc-members 5 5 :center) (erc-channel-modes 9 20 :center) " "
+         (erc-topic 10 -1))))
 (setq ibuffer-formats (append ibuffer-formats erc-ibuffer-formats))
 
 (defvar erc-ibuffer-limit-map nil

diff --git a/lisp/erc/erc-speedbar.el b/lisp/erc/erc-speedbar.el
index e6ca538233817c266fe490989da07db88fd1b9db..254d7fc5781e021a0146ba0eef26231a3aee167d 100644 (file)
--- a/lisp/erc/erc-speedbar.el
+++ b/lisp/erc/erc-speedbar.el
@@ -39,6 +39,7 @@
 (require 'erc)
 (require 'speedbar)
 (condition-case nil (require 'dframe) (error nil))
+(eval-when-compile (require 'cl))
 
 ;;; Customization:
 
@@ -110,7 +111,7 @@ This will add a speedbar major display mode."
 (defun erc-speedbar-buttons (buffer)
   "Create buttons for speedbar in BUFFER."
   (erase-buffer)
-  (let (serverp chanp)
+  (let (serverp chanp queryp)
     (with-current-buffer buffer
       (setq serverp (eq buffer (process-buffer erc-server-process)))
       (setq chanp (erc-channel-p (erc-default-target)))
@@ -338,7 +339,7 @@ The INDENT level is ignored."
            (raise-frame (window-frame bwin)))
        (if speedbar-power-click
            (let ((pop-up-frames t)) (select-window (display-buffer buffer)))
-         (select-frame speedbar-attached-frame)
+         (dframe-select-attached-frame speedbar-frame)
          (switch-to-buffer buffer))))))
 
 (defun erc-speedbar-line-text ()