procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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)
This commit is contained in:
Thuna 2022-12-19 09:33:29 +01:00 • committed by Stefan Kangas
parent 77d0078a6c
commit fb90e21af1
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/net/rcirc.el
View file

@ -1187,11 +1187,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."