From f7ea667b54380a7b7c60490cef30728b5f444ae1 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 4 Nov 2020 07:40:16 +0100 Subject: [PATCH] Fix warnings in url-irc.el * lisp/url/url-irc.el (zenirc-server-alist, zenirc-buffer-name): Declare to fix warnings. (url-irc-rcirc): Silence warning by adding missing password argument to rcirc-connect. --- lisp/url/url-irc.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/url/url-irc.el b/lisp/url/url-irc.el index ece53c90291..3ff6e647478 100644 --- a/lisp/url/url-irc.el +++ b/lisp/url/url-irc.el @@ -48,6 +48,8 @@ PASSWORD - What password to use" ;; External. (declare-function zenirc "ext:zenirc" (&optional prefix)) (declare-function zenirc-send-line "ext:zenirc" ()) +(defvar zenirc-server-alist) +(defvar zenirc-buffer-name) (defun url-irc-zenirc (host port channel user password) (let ((zenirc-buffer-name (if (and user host port) @@ -65,7 +67,7 @@ PASSWORD - What password to use" (defun url-irc-rcirc (host port channel user password) (let ((chan (when channel (concat "#" channel)))) - (rcirc-connect host port user nil nil (when chan (list chan))) + (rcirc-connect host port user nil nil (when chan (list chan)) password) (when chan (switch-to-buffer (concat chan "@" host))))) -- 2.39.2