Commit 16e62ecc authored by Miles Bader's avatar Miles Bader
Browse files

erc-iswitchb: Temporarily enable iswitchb mode

 * erc.el: (erc-iswitchb): Temporarily enable iswitchb mode if it isn't
   active already, instead of leaving it on.

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-555
Creator:  Michael Olson <mwolson@gnu.org>
parent 7976eda0
2006-12-13 Leo <sdl.web@gmail.com>
* erc.el (erc-iswitchb): Temporarily enable iswitchb mode if it
isn't active already, instead of leaving it on.
2006-12-10 Juanma Barranquero <lekktu@gmail.com>
* erc-ezbounce.el (erc-ezb-init-session-list): Doc fix.
......
......@@ -1668,22 +1668,25 @@ If `erc-track-mode' is in enabled, put the last element of
Due to some yet unresolved reason, global function `iswitchb-mode'
needs to be active for this function to work."
(interactive "P")
(eval-and-compile
(eval-when-compile
(require 'iswitchb))
(let ((iswitchb-make-buflist-hook
(lambda ()
(setq iswitchb-temp-buflist
(mapcar 'buffer-name
(erc-buffer-list
nil
(when arg erc-server-process)))))))
(switch-to-buffer
(iswitchb-read-buffer
"Switch-to: "
(if (boundp 'erc-modified-channels-alist)
(buffer-name (caar (last erc-modified-channels-alist)))
nil)
t))))
(let ((enabled iswitchb-mode))
(or enabled (iswitchb-mode 1))
(let ((iswitchb-make-buflist-hook
(lambda ()
(setq iswitchb-temp-buflist
(mapcar 'buffer-name
(erc-buffer-list
nil
(when arg erc-server-process)))))))
(switch-to-buffer
(iswitchb-read-buffer
"Switch-to: "
(if (boundp 'erc-modified-channels-alist)
(buffer-name (caar (last erc-modified-channels-alist)))
nil)
t)))
(or enabled (iswitchb-mode -1))))
(defun erc-channel-list (proc)
"Return a list of channel buffers.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment