Skip to content

Instantly share code, notes, and snippets.

@nicferrier

nicferrier/*scratch*.el

Created May 30, 2013 22:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save nicferrier/5681632 to your computer and use it in GitHub Desktop.
Save nicferrier/5681632 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
*scratch*.el
(defun rcirc-part-kill-buffer-hook (process cmd sender args text)
(when (equal cmd "PART")
(let ((channel-pair
(with-current-buffer (process-buffer process)
(assoc (car args) rcirc-buffer-alist))))
(kill-buffer (cdr channel-pair)))))
(add-hook
'rcirc-receive-message-functions
'rcric-part-kill-buffer-hook)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment