Paste number 134057: auto-rejoin

Paste number 134057: auto-rejoin
Pasted by: ilisp
When:5 years, 1 month ago
Share:Tweet this! | http://paste.lisp.org/+2VFT
Channel:None
Paste contents:
Raw Source | XML | Display As
(defun auto-rejoin(buffer)
  (let ((bn (buffer-name buffer)))
    (run-at-time "0.1 sec" nil
		 (lambda (bn)
		   (set-buffer bn)
		   (erc-join-channel bn))
		 bn)))
(add-hook 'erc-kick-hook 'auto-rejoin)

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.