>From c1ac9cfa3919ec0e7fc2633d611872088d017432 Mon Sep 17 00:00:00 2001
From: "F. Jason Park" <jp@neverwas.me>
Date: Tue, 10 Jan 2023 00:31:42 -0800
Subject: [PATCH 0/3] *** NOT A PATCH ***

*** BLURB HERE ***

F. Jason Park (3):
  ; Fix wrong type in erc-ignore hide-list options
  Remove obsolete server buffers on MOTD in erc-track
  [5.6] Ignore killed buffers when switching in erc-track

 lisp/erc/erc-networks.el                      |  6 +++
 lisp/erc/erc-track.el                         | 18 +++++--
 lisp/erc/erc.el                               |  6 ++-
 .../erc/erc-scenarios-base-association.el     | 49 +++++++++++++++++++
 test/lisp/erc/erc-scenarios-misc.el           | 34 +++++++++++++
 .../resources/networks/merge-server/track.eld | 44 +++++++++++++++++
 6 files changed, 152 insertions(+), 5 deletions(-)
 create mode 100644 test/lisp/erc/resources/networks/merge-server/track.eld

Range-diff:
-:  ---------- > 1:  e2e608e330 ; Fix wrong type in erc-ignore hide-list options
1:  da8d5def8f ! 2:  6e31bac624 Remove obsolete server buffers on MOTD in erc-track
    @@ Commit message
         membership in `erc-networks--copy-server-buffer-functions' hook.
         (erc-track--replace-killed-buffer): New function to replace server
         buffer being killed in `erc-modified-channels-alist'.
    -    (erc-track--switch-buffer): If recommended buffer has been killed,
    -    remove it from the `erc-modified-channels-alist', and try another one.
    -    * test/lisp/erc/erc-scenarios-misc.el
    -    (erc-scenarios-base-kill-server-track) : New test.
         * test/lisp/erc/erc-scenarios-base-association.el
         (erc-scenarios-networks-merge-server-track): New test.
         * test/lisp/erc/resources/networks/merge-server/track.eld: New test
    -    data.
    +    data.  (Bug#60560.)
     
      ## lisp/erc/erc-networks.el ##
     @@ lisp/erc/erc-networks.el: erc-networks--reclaim-orphaned-target-buffers
    @@ lisp/erc/erc-networks.el: erc-networks--reclaim-orphaned-target-buffers
      
     +(defvar erc-networks--copy-server-buffer-functions nil
     +  "Abnormal hook run in new server buffers when deduping.
    -+Passed the existing buffer slated to be killed, whose contents
    -+have already been copied over to the current buffer, its
    -+replacement.")
    ++Passed the existing buffer to be killed, whose contents have
    ++already been copied over to the current, replacement buffer.")
     +
      (defun erc-networks--copy-over-server-buffer-contents (existing name)
        "Kill off existing server buffer after copying its contents.
    @@ lisp/erc/erc-track.el: track
      
      (defcustom erc-track-when-inactive nil
        "Enable channel tracking even for visible buffers, if you are inactive."
    -@@ lisp/erc/erc-track.el: erc-track--switch-buffer
    - 	   (unless (eq major-mode 'erc-mode)
    - 	     (setq erc-track-last-non-erc-buffer (current-buffer)))
    - 	   ;; and jump to the next active channel
    --	   (funcall fun (erc-track-get-active-buffer arg)))
    -+           (if-let ((buf (erc-track-get-active-buffer arg))
    -+                    ((buffer-live-p buf)))
    -+               (funcall fun buf)
    -+             (erc-modified-channels-update)
    -+             (erc-track--switch-buffer fun arg)))
    - 	  ;; if no active channels, switch back to what we were doing before
    - 	  ((and erc-track-last-non-erc-buffer
    - 	        erc-track-switch-from-erc
     @@ lisp/erc/erc-track.el: erc-track-switch-buffer-other-window
        (interactive "p")
        (erc-track--switch-buffer 'switch-to-buffer-other-window arg))
    @@ test/lisp/erc/erc-scenarios-base-association.el: erc-scenarios-base-association-
     +
      ;;; erc-scenarios-base-association.el ends here
     
    - ## test/lisp/erc/erc-scenarios-misc.el ##
    -@@ test/lisp/erc/erc-scenarios-misc.el: erc-scenarios-handle-irc-url
    -       (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
    -         (funcall expect 10 "welcome")))))
    - 
    -+;; Ensure that ERC does not attempt to switch to a killed server
    -+;; buffer via `erc-track-switch-buffer'.
    -+
    -+(declare-function erc-track-switch-buffer "erc-track" (arg))
    -+(defvar erc-track-mode)
    -+
    -+(ert-deftest erc-scenarios-base-kill-server-track ()
    -+  :tags '(:expensive-test)
    -+  (erc-scenarios-common-with-cleanup
    -+      ((erc-scenarios-common-dialog "networks/merge-server")
    -+       (dumb-server (erc-d-run "localhost" t 'track))
    -+       (port (process-contact dumb-server :service))
    -+       (erc-server-flood-penalty 0.1)
    -+       (expect (erc-d-t-make-expecter)))
    -+
    -+    (ert-info ("Connect")
    -+      (with-current-buffer (erc :server "127.0.0.1"
    -+                                :port port
    -+                                :nick "tester")
    -+        (should (string= (buffer-name) (format "127.0.0.1:%d" port)))
    -+        (should erc-track-mode)
    -+        (funcall expect 5 "changed mode for tester")
    -+        (erc-cmd-JOIN "#chan")))
    -+
    -+    (ert-info ("Join channel and kill server buffer")
    -+      (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan"))
    -+        (funcall expect 5 "The hour that fools should ask"))
    -+      (with-current-buffer "FooNet"
    -+        (set-process-query-on-exit-flag erc-server-process nil)
    -+        (kill-buffer))
    -+      (should-not (eq (current-buffer) (get-buffer "#chan"))) ; *temp*
    -+      (ert-simulate-command '(erc-track-switch-buffer 1)) ; No longer signals
    -+      (should (eq (current-buffer) (get-buffer "#chan"))))))
    -+
    - ;;; erc-scenarios-misc.el ends here
    -
      ## test/lisp/erc/resources/networks/merge-server/track.eld (new) ##
     @@
     +;; -*- mode: lisp-data; -*-
-:  ---------- > 3:  c1ac9cfa39 [5.6] Ignore killed buffers when switching in erc-track
-- 
2.38.1