# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1031867300 0
# Node ID 8bd5dd6cc381cb70d1947e8310a7186d2d62ba7f
# Parent  d54b5b9a2b7784752c18599b902620941204db6a
(find-library-name): Don't forget the empty suffix.  Fix stale variable name.

diff -r d54b5b9a2b77 -r 8bd5dd6cc381 lisp/emacs-lisp/find-func.el
--- a/lisp/emacs-lisp/find-func.el	Thu Sep 12 21:44:23 2002 +0000
+++ b/lisp/emacs-lisp/find-func.el	Thu Sep 12 21:48:20 2002 +0000
@@ -125,8 +125,8 @@
       (setq library (replace-match "" t t library 1)))
   (or (locate-file library
 		   (or find-function-source-path load-path)
-		   (find-library-suffixes))
-      (error "Can't find library %s" file)))
+		   (append (find-library-suffixes) ""))
+      (error "Can't find library %s" library)))
 
 ;;;###autoload
 (defun find-library (library)