From 74ff6acdd36bd005fd2b5585768122ef15d047ed Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 2 Aug 2022 14:00:50 +0200 Subject: [PATCH] url-about: Ignore missing directories in load-path * lisp/url/url-about.el (url-probe-protocols): Ignore missing directories in load-path. --- lisp/url/url-about.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))))) -- 2.39.5