From: Stefan Kangas <stefan@marxist.se>
Date: Tue, 2 Aug 2022 12:00:50 +0000 (+0200)
Subject: url-about: Ignore missing directories in load-path
X-Git-Tag: emacs-29.0.90~1447^2~543
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74ff6acdd36bd005fd2b5585768122ef15d047ed;p=emacs.git

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 3943cae9e59..a50986d511a 100644
--- 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)))))