From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 19 May 2002 16:07:13 +0000 (+0000)
Subject: (custom-load-symbol): Verify that LOADED is a string.
X-Git-Tag: ttn-vms-21-2-B4~14998
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c38914477798c4a17fd123cee070aa0a6cb11628;p=emacs.git

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

diff --git a/lisp/custom.el b/lisp/custom.el
index c12f3bec2e7..9f68eb59e39 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -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))