mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

url-about: Ignore missing directories in load-path

Browse Source 
* lisp/url/url-about.el (url-probe-protocols): Ignore missing
directories in load-path.
This commit is contained in:
Stefan Kangas 2022-08-02 14:00:50 +02:00
parent 6b14ef273a
commit 74ff6acdd3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/url/url-about.el
View File

@ -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)))))