From ef7d9c4775eb8559210564efdcf0d1930318f5e0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sun, 3 Sep 2023 11:40:20 +0200 Subject: [PATCH] ; Silence warnings about obsolete functions * lisp/obsolete/url-ns.el (dnsResolve, isResolvable): Suppress. * lisp/progmodes/ebnf2ps.el (ebnf-eps-finish-and-write): Use delete-dups instead of ps-remove-duplicates. --- lisp/obsolete/url-ns.el | 5 +++-- lisp/progmodes/ebnf2ps.el | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/obsolete/url-ns.el b/lisp/obsolete/url-ns.el index 20318867634..53db684887c 100644 --- a/lisp/obsolete/url-ns.el +++ b/lisp/obsolete/url-ns.el @@ -39,13 +39,14 @@ ;;;###autoload (defun dnsResolve (host) - (url-gateway-nslookup-host host)) + (with-suppressed-warnings ((obsolete url-gateway-nslookup-host)) + (url-gateway-nslookup-host host))) ;;;###autoload (defun isResolvable (host) (if (string-match "^[0-9.]+$" host) t - (not (string= host (url-gateway-nslookup-host host))))) + (not (string= host (dnsResolve host))))) ;;;###autoload (defun isInNet (ip net mask) diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el index 3e83d288408..819f39cb4e5 100644 --- a/lisp/progmodes/ebnf2ps.el +++ b/lisp/progmodes/ebnf2ps.el @@ -5247,7 +5247,7 @@ killed after process termination." (or ebnf-fonts-required (setq ebnf-fonts-required (mapconcat #'identity - (ps-remove-duplicates + (delete-dups (mapcar #'ebnf-font-name-select (list ebnf-production-font ebnf-terminal-font -- 2.39.2