# HG changeset patch # User Miles Bader # Date 1138580989 0 # Node ID 87ff4350c1ce343d1c505ba940381ec72f582af4 # Parent 4bd450a8dbe25653293c3c53cbb61d22d527f10a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-24 Creator: Michael Olson Fix ERC compiler warnings. diff -r 4bd450a8dbe2 -r 87ff4350c1ce lisp/erc/.cvsignore --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/erc/.cvsignore Mon Jan 30 00:29:49 2006 +0000 @@ -0,0 +1,3 @@ +{arch} +.arch-ids +*.elc diff -r 4bd450a8dbe2 -r 87ff4350c1ce lisp/erc/ChangeLog --- a/lisp/erc/ChangeLog Mon Jan 30 00:29:30 2006 +0000 +++ b/lisp/erc/ChangeLog Mon Jan 30 00:29:49 2006 +0000 @@ -1,3 +1,18 @@ +2006-01-29 Michael Olson + + * 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 * erc-*.el, erc.texi, NEWS: Add Arch taglines as per Emacs diff -r 4bd450a8dbe2 -r 87ff4350c1ce lisp/erc/erc-ibuffer.el --- a/lisp/erc/erc-ibuffer.el Mon Jan 30 00:29:30 2006 +0000 +++ b/lisp/erc/erc-ibuffer.el Mon Jan 30 00:29:49 2006 +0000 @@ -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 -r 4bd450a8dbe2 -r 87ff4350c1ce lisp/erc/erc-speedbar.el --- a/lisp/erc/erc-speedbar.el Mon Jan 30 00:29:30 2006 +0000 +++ b/lisp/erc/erc-speedbar.el Mon Jan 30 00:29:49 2006 +0000 @@ -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 @@ (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 @@ (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 ()