From: Philip Kaludercic <philipk@posteo.net>
Date: Tue, 6 Jul 2021 06:52:50 +0000 (+0200)
Subject: Add query command removed in 4ff1f66b12
X-Git-Tag: emacs-28.0.90~1748^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77631c2a7704f78e6b85846d2c23a2ffc22368cf;p=emacs.git

Add query command removed in 4ff1f66b12

* rcirc.el (query): Readd accidentally removed command
---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index caec1508489..af0def8e474 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2480,6 +2480,17 @@ that, an interactive form can specified."
                      (read-string "Message: ")))
   (rcirc-send-message process chan-or-nick message))
 
+(rcirc-define-command query (nick)
+  "Open a private chat buffer to NICK."
+  (interactive (list (completing-read "Query nick: "
+                                      (with-rcirc-server-buffer
+                                        rcirc-nick-table))))
+  (let ((existing-buffer (rcirc-get-buffer process nick)))
+    (switch-to-buffer (or existing-buffer
+			  (rcirc-get-buffer-create process nick)))
+    (when (not existing-buffer)
+      (rcirc-cmd-whois nick))))
+
 (rcirc-define-command join (channels)
   "Join CHANNELS.
 CHANNELS is a comma- or space-separated string of channel names."