Re: "*** #debian: You're not on that channel"

[Emanuel Berg]

Emanuel Berg via General discussion about ERC wrote:

> J.P. wrote:
>
>>> (defun erc-kill-buffer-cycle ()
>>>   (let ((erc-buffers (erc-buffer-list)))
>>>     (if (= 1 (length erc-buffers))
>>>         (kill-buffer)
>>>       (let ((current-buffer (current-buffer)))
>>>         (cl-loop
>>>          for b in erc-buffers
>>>          when (not (eq b current-buffer))
>>>          do (erc-cmd-PART "")
>>>             (kill-buffer)
>>>             (switch-to-buffer b)
>>>             (cl-return) )))))
>>
>> It looks as though you originally meant to make each
>> b current in the loop body. [...]
>
> The purpose, and this also happens, is to kill the current
> ERC buffer and switch to another ERC buffer.

I think the problem was I did both

  (erc-cmd-PART "")

and

  (kill-buffer)

Now it looks like this

(defun erc-kill-buffer-cycle ()
  (let ((erc-bufs (erc-buffer-list)))
    (if (= 1 (length erc-bufs))
        (erc-cmd-PART "")
      (let ((current-buf (current-buffer)))
        (cl-loop
         for b in erc-bufs
         when (not (eq b current-buf))
         do (erc-cmd-PART "")
            (switch-to-buffer b)
            (cl-return) )))))

and I don't get that message.

BTW `erc-cmd-PART' could have LINE optional with the empty
string behavior being the default.

-- 
underground experts united
https://dataswamp.org/~incal