[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 74ff6acdd3: url-about: Ignore missing directories in load-path
From: |
Stefan Kangas |
Subject: |
master 74ff6acdd3: url-about: Ignore missing directories in load-path |
Date: |
Tue, 2 Aug 2022 08:05:01 -0400 (EDT) |
branch: master
commit 74ff6acdd36bd005fd2b5585768122ef15d047ed
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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 3943cae9e5..a50986d511 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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 74ff6acdd3: url-about: Ignore missing directories in load-path,
Stefan Kangas <=