# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1021824433 0
# Node ID c9338efa3fd9f68fc9cb6ede3c052c97faf297f6
# Parent  82749144e314d9801bba6f89160511629d7e799d
(custom-load-symbol): Verify that LOADED is a string.

diff -r 82749144e314 -r c9338efa3fd9 lisp/custom.el
--- a/lisp/custom.el	Sun May 19 16:05:46 2002 +0000
+++ b/lisp/custom.el	Sun May 19 16:07:13 2002 +0000
@@ -485,7 +485,8 @@
 	      ;; 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))