[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f7ea667 3/3: Fix warnings in url-irc.el
From: |
Stefan Kangas |
Subject: |
master f7ea667 3/3: Fix warnings in url-irc.el |
Date: |
Wed, 4 Nov 2020 01:43:06 -0500 (EST) |
branch: master
commit f7ea667b54380a7b7c60490cef30728b5f444ae1
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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 ece53c9..3ff6e64 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)))))