bug#67213: 29.1; ERC 5.5.0.29.1: /squery doesn't work in server buffer (patch)

Patch for bug#67209



In GNU Emacs 29.1 (build 2, x86_64-pc-linux-gnu) of 2023-11-14 built on
 pm
System Description: Debian GNU/Linux trixie/sid

Configured using:
 'configure --prefix=/home/me/root/usr --without-xaw3d --without-xpm
 --without-tiff --without-lcms2 --without-x --with-native-compilation'

Configured features:
GMP GNUTLS LIBXML2 MODULES NATIVE_COMP NOTIFY INOTIFY PDUMPER SECCOMP
SOUND THREADS TREE_SITTER ZLIB

Important settings:
  value of $LANG: fi_FI.UTF-8
  locale-coding-system: utf-8-unix

Major mode: ERC

Minor modes in effect:
  shell-dirtrack-mode: t
  erc-track-mode: t
  erc-track-minor-mode: t
  erc-ring-mode: t
  erc-netsplit-mode: t
  erc-menu-mode: t
  erc-match-mode: t
  erc-list-mode: t
  erc-fill-mode: t
  erc-stamp-mode: t
  erc-dcc-mode: t
  erc-pcomplete-mode: t
  erc-autojoin-mode: t
  erc-irccontrols-mode: t
  erc-noncommands-mode: t
  erc-move-to-prompt-mode: t
  erc-readonly-mode: t
  erc-networks-mode: t
  server-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  line-number-mode: t
  indent-tabs-mode: t
  transient-mark-mode: t
  auto-composition-mode: linux
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
/home/me/.emacs.d/elpa/jsonrpc-1.0.17/jsonrpc hides /home/me/root/usr/share/emacs/29.1/lisp/jsonrpc
/home/me/.emacs.d/elpa/eglot-1.14/eglot hides /home/me/root/usr/share/emacs/29.1/lisp/progmodes/eglot
/home/me/.emacs.d/elpa/eldoc-1.14.0/eldoc hides /home/me/root/usr/share/emacs/29.1/lisp/emacs-lisp/eldoc

Features:
(diff-mode easy-mmode ediff ediff-merg ediff-mult ediff-wind ediff-diff
ediff-help ediff-init ediff-util bug-reference qp mailalias tabify
smtpmail cus-edit cus-start cus-load shadow sort mail-extr emacsbug
message rfc822 mml mml-sec epa derived epg rfc6068 epg-config mm-decode
mm-bodies mm-encode mailabbrev gmm-utils mailheader sendmail timezone
parse-time shell dired-aux alis cl-print debug backtrace disp-table
misearch multi-isearch find-func shortdoc erc-button erc-ibuffer
ibuf-ext ibuffer ibuffer-loaddefs erc-log erc-notify erc-page
erc-services erc-sound erc-speedbar speedbar ezimage dframe erc-xdcc
help-fns radix-tree mule-util erc-track erc-ring erc-netsplit erc-menu
erc-match erc-list erc-fill erc-stamp erc-dcc erc-pcomplete pcomplete
comint ansi-osc ansi-color ring erc-join erc-goodies erc pp erc-backend
erc-networks erc-common erc-compat erc-loaddefs yank-media mhtml-mode
css-mode smie color js c-ts-common treesit imenu cc-mode cc-fonts
cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs
sgml-mode facemenu newst-treeview tree-widget newst-reader newst-backend
iso8601 jka-compr textsec uni-scripts idna-mapping ucs-normalize
uni-confusable textsec-check gnutls network-stream url-http mail-parse
rfc2231 rfc2047 rfc2045 ietf-drums url-gw nsm url-cache url-auth
format-spec eww xdg url-queue thingatpt shr pixel-fill kinsoku url-file
image svg xml dom puny mm-url gnus nnheader gnus-util
text-property-search time-date mail-utils range wid-edit mm-util
mail-prsvr term/linux comp regexp-opt comp-cstr warnings icons rx
cl-extra help-mode server dired-x dired dnd dired-loaddefs info tool-bar
package browse-url url url-proxy url-privacy url-expand url-methods
url-history url-cookie generate-lisp-file url-domsuf url-util mailcap
url-handlers url-parse auth-source cl-seq eieio eieio-core cl-macs
password-cache json subr-x map byte-opt gv bytecomp byte-compile
url-vars cl-loaddefs cl-lib rmc iso-transl tooltip cconv eldoc paren
electric uniquify ediff-hook vc-hooks lisp-float-type elisp-mode
tabulated-list replace newcomment text-mode lisp-mode prog-mode register
page tab-bar menu-bar rfn-eshadow isearch easymenu timer select mouse
jit-lock font-lock syntax font-core term/tty-colors frame minibuffer
nadvice seq simple cl-generic indonesian philippine cham georgian
utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european
ethiopic indian cyrillic chinese composite emoji-zwj charscript charprop
case-table epa-hook jka-cmpr-hook help abbrev obarray oclosure
cl-preloaded button loaddefs theme-loaddefs faces cus-face macroexp
files window text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget keymap hashtable-print-readable backquote
threads inotify multi-tty make-network-process native-compile emacs)

Memory information:
((conses 16 993042 144849)
 (symbols 48 23241 15)
 (strings 32 159998 14563)
 (string-bytes 1 7540316)
 (vectors 16 77700)
 (vector-slots 8 1968484 96617)
 (floats 8 468 806)
 (intervals 56 54484 5461)
 (buffers 984 101))

3714a3715,3717
> (defalias 'erc-cmd-S #'erc-cmd-SQUERY)
> (put 'erc-cmd-SQUERY 'do-not-parse-args t)
>