From: Thuna <thuna.cing@gmail.com>
Date: Mon, 19 Dec 2022 08:33:29 +0000 (+0100)
Subject: Fix 'rcirc-buffer-process' not working on channel buffers
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc2d25e5c28bc1029d725786ec1e38ffbab1a008;p=emacs.git

Fix 'rcirc-buffer-process' not working on channel buffers

* lisp/net/rcirc.el (rcirc-buffer-process): Look at BUFFER's
'rcirc-server-buffer's 'rcirc-process' instead.  Signal an error if it
has none.  (Bug#60191)

(cherry picked from commit fb90e21af1b05d8cdeac9ae62b03b76ae9c74ae0)
---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index a7b7fb25c7f..b9970ea573a 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -1173,11 +1173,11 @@ element in PARTS is a list, append it to PARTS."
 (defun rcirc-buffer-process (&optional buffer)
   "Return the process associated with channel BUFFER.
 With no argument or nil as argument, use the current buffer."
-  (let ((buffer (or buffer (and (buffer-live-p rcirc-server-buffer)
-                                rcirc-server-buffer))))
-    (if buffer
-        (buffer-local-value 'rcirc-process buffer)
-      rcirc-process)))
+  (let ((buffer (or buffer (current-buffer))))
+    (buffer-local-value
+     'rcirc-process
+     (or (buffer-local-value 'rcirc-server-buffer buffer)
+         (error "Not an rcirc buffer: %S" buffer)))))
 
 (defun rcirc-server-name (process)
   "Return PROCESS server name, given by the 001 response."