bug#63181: 28.2; Can't suppress server-already-running warning

[Dave Abrahams]

with emacs -Q or emacs -q, you can run

(dlet ((warning-suppress-types '((server))))
  (server-mode))

from the *scratch* buffer, and if a server is already running, you just
get nil.  But: if I put that stanza at the beginning of my early-init.el
(or init.el) and have no other configuration, I get a warning if the
server is already running.

Warning (server): Unable to start the Emacs server.
There is an existing Emacs server, named "server".
To start the server in this Emacs process, stop the existing
server or call ‘M-x server-force-delete’ to forcibly disconnect it. Disable 
showing Disable logging

It should be possible to suppress this warning programmatically, but I
can't find a way.



In GNU Emacs 28.2 (build 1, x86_64-apple-darwin22.3.0, Carbon Version 169 
AppKit 2299.4)
of 2023-03-13 built on DaveMBP16.luannocracy.com
Windowing system distributor 'Apple Inc.', version 13.3.1
System Description:  macOS 13.3.1

Configured using:
'configure --enable-locallisppath=/usr/local/share/emacs/site-lisp
--infodir=/usr/local/Cellar/emacs-mac/emacs-28.2-mac-9.1/share/info
--mandir=/usr/local/Cellar/emacs-mac/emacs-28.2-mac-9.1/share/man
--prefix=/usr/local/Cellar/emacs-mac/emacs-28.2-mac-9.1 --with-mac
--enable-mac-app=/usr/local/Cellar/emacs-mac/emacs-28.2-mac-9.1
--with-gnutls --with-modules --with-native-compilation
'CFLAGS=-I/usr/local/opt/gcc/include
-I/usr/local/opt/libgccjit/include' 'LDFLAGS=-L/usr/local/lib/gcc/12
-I/usr/local/opt/gcc/include -I/usr/local/opt/libgccjit/include''

Configured features:
ACL GMP GNUTLS JSON LIBXML2 MODULES NATIVE_COMP NOTIFY KQUEUE PDUMPER
THREADS TOOLKIT_SCROLL_BARS ZLIB

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

Major mode: ELisp/d

Minor modes in effect:
  magit-wip-initial-backup-mode: t
  magit-wip-before-change-mode: t
  magit-wip-after-apply-mode: t
  magit-wip-after-save-mode: t
  magit-wip-after-save-local-mode: t
  global-git-commit-mode: t
  shell-dirtrack-mode: t
  ws-butler-global-mode: t
  ws-butler-mode: t
  global-auto-revert-mode: t
  delete-selection-mode: t
  override-global-mode: t
  straight-use-package-mode: t
  straight-package-neutering-mode: t
  server-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mac-mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  indent-tabs-mode: t
  transient-mark-mode: t

Load-path shadows:
/Users/dave/.emacs.d.default/straight/build/transient/transient hides 
/usr/local/Cellar/emacs-mac/emacs-28.2-mac-9.1/share/emacs/28.2/lisp/transient

Features:
(shadow sort mail-extr emacsbug sendmail vc-git vc-dispatcher files-x
grep magit-extras magit-submodule magit-blame magit-stash magit-reflog
magit-bisect magit-push magit-pull magit-fetch magit-clone magit-remote
magit-commit magit-sequence magit-notes magit-worktree magit-tag
magit-merge magit-branch magit-reset magit-files magit-refs magit-status
magit package browse-url url url-proxy url-privacy url-expand
url-methods url-history url-cookie url-domsuf url-util mailcap
url-handlers url-parse url-vars magit-repos magit-apply jka-compr pcase
dwa-init focus thingatpt focus-autoloads darkroom face-remap
darkroom-autoloads org-modern org-modern-autoloads poly-org org ob
ob-tangle ob-ref ob-lob ob-table ob-exp org-macro org-footnote org-src
ob-comint org-pcomplete org-list org-faces org-entities noutline outline
org-version ob-emacs-lisp ob-core ob-eval org-table oc-basic bibtex
iso8601 ol org-keys oc org-compat org-macs org-loaddefs find-func
cal-menu calendar cal-loaddefs polymode poly-lock polymode-base
polymode-weave polymode-export polymode-compat advice polymode-methods
polymode-core polymode-classes eieio-custom wid-edit eieio-base color
poly-org-autoloads poly-markdown-autoloads markdown-mode-autoloads
polymode-autoloads find-file-in-repository-autoloads magit-wip magit-log
which-func imenu magit-diff smerge-mode diff git-commit log-edit message
rmc puny dired dired-loaddefs rfc822 mml mml-sec epa derived epg rfc6068
epg-config gnus-util rmail rmail-loaddefs auth-source password-cache
json map time-date mm-decode mm-bodies mm-encode mail-parse rfc2231
rfc2047 rfc2045 mm-util ietf-drums mail-prsvr mailabbrev mail-utils
gmm-utils mailheader pcvs-util add-log magit-core magit-autorevert
magit-margin magit-transient magit-process with-editor comp comp-cstr
warnings rx shell pcomplete magit-mode transient magit-git magit-base
magit-section format-spec crm eieio eieio-core eieio-loaddefs dash
compat compat-29 magit-autoloads magit-section-autoloads
git-commit-autoloads with-editor-autoloads transient-autoloads
dash-autoloads compat-autoloads dwa-progmodes swift-mode-autoloads
dwa-global-config compile text-property-search comint ansi-color ring
skeleton modus-operandi-tinted-theme modus-themes modus-themes-autoloads
use-package-bind-key ws-butler ws-butler-autoloads use-package-diminish
diminish diminish-autoloads ediff ediff-merg ediff-mult ediff-wind
ediff-diff ediff-help ediff-init ediff-util diff-mode descr-text
finder-inf ido autorevert filenotify delsel cus-load use-package-core
dwa-global-keybindings edmacro kmacro bind-key easy-mmode dwa-folding
disp-table dwa-compile dwa-buffers dwa-navigation use-package-autoloads
info bind-key-autoloads straight-autoloads cl-seq cl-extra help-mode seq
byte-opt straight subr-x cl-macs cl-loaddefs cl-lib bytecomp
byte-compile cconv server chemacs gv iso-transl tooltip eldoc paren
electric uniquify ediff-hook vc-hooks lisp-float-type elisp-mode mwheel
term/mac-win mac-win term/common-win tool-bar dnd fontset image
regexp-opt fringe tabulated-list replace newcomment text-mode lisp-mode
prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu
timer select scroll-bar mouse jit-lock font-lock syntax font-core
term/tty-colors frame minibuffer cl-generic 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 simple abbrev obarray cl-preloaded nadvice
button loaddefs faces cus-face macroexp files window text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote threads kqueue multi-tty
make-network-process native-compile emacs)

Memory information:
((conses 16 373463 19938)
(symbols 48 26280 0)
(strings 32 103745 4848)
(string-bytes 1 4257135)
(vectors 16 51630)
(vector-slots 8 963432 23953)
(floats 8 283 350)
(intervals 56 959 0)
(buffers 992 16))