Commit c3891447 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(custom-load-symbol): Verify that LOADED is a string.

parent 49a8a2f5
......@@ -485,7 +485,8 @@ LOAD should be either a library file name, or a feature name."
;; if not necessary.
((let (found (regexp (regexp-quote load)))
(dolist (loaded load-history)
(and (string-match regexp (car loaded))
(and (stringp (car loaded))
(string-match regexp (car loaded))
(eq (locate-library load) (car loaded))
(setq found t)))
found))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment