; 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.

diff --git a/lisp/obsolete/url-ns.el b/lisp/obsolete/url-ns.el
index 20318867634d0b35597f84dc25ce6c871724c782..53db684887cfbbc96da3a18a5feb6fcead341bc9 100644 (file)
--- 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 3e83d288408fda220a799a0292fba18dc1cda260..819f39cb4e5a56aa47b2f5e1c27da0e193521731 100644 (file)
--- 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