url-about: Ignore missing directories in load-path

* lisp/url/url-about.el (url-probe-protocols): Ignore missing
directories in load-path.

diff --git a/lisp/url/url-about.el b/lisp/url/url-about.el
index 3943cae9e59bb3f9213c11901f90d520ba4d5f3d..a50986d511a5519125aefd288c1009bb35dc0445 100644 (file)
--- a/lisp/url/url-about.el
+++ b/lisp/url/url-about.el
@@ -1,6 +1,6 @@
 ;;; url-about.el --- Show internal URLs  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2001, 2004-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2001-2022 Free Software Foundation, Inc.
 
 ;; Keywords: comm, data, processes, hypermedia
 
@@ -38,7 +38,7 @@
                                  (if (string-match "url-\\(.*\\).el$" f)
                                      (push (match-string 1 f) schemes)))
                                (directory-files d nil "\\`url-.*\\.el\\'")))
-                       load-path)
+                        (seq-filter #'file-exists-p load-path))
                  (put 'url-extension-protocols 'schemes schemes)
                  schemes)))))