lisp/files.el (require-with-check): Fix bug#74091.

2024-11-10 16:50:36 -05:00 · 2024-11-10 16:50:36 -05:00 · 3496234c8e
commit 3496234c8e
parent 90c97d3fac
1 changed files with 6 additions and 5 deletions
--- a/lisp/files.el
+++ b/lisp/files.el
@ -1288,10 +1288,11 @@ NOERROR is equal to `reload'), or otherwise emit a warning."
             ;; we did load "it".  (bug#74040)
             ;; So use a "permissive" search which doesn't pay attention to
             ;; differences between file extensions.
-             (prefix (if (string-match
+             (prefix (when fn
+                       (if (string-match
                            (concat (regexp-opt (get-load-suffixes)) "\\'") fn)
                           (concat (substring fn 0 (match-beginning 0)) ".")
-                       fn))
+                         fn)))
             (lh load-history))
        (while (and lh (let ((file (car-safe (car lh))))
                         (not (and file (string-prefix-p prefix file)))))