# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1181492058 0
# Node ID 26b46295877fa3f1ab83095bdefc8d9a6ca5eddf
# Parent  c6ff99338f6b93bb21c57d1a014a58e125da3a8d
(byte-compile-find-cl-functions): Match
against file-name-nondirectory.
Fix text on user customization variables.

diff -r c6ff99338f6b -r 26b46295877f lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Sat Jun 09 22:31:59 2007 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sun Jun 10 16:14:18 2007 +0000
@@ -98,7 +98,7 @@
 ;;				`obsolete'  (obsolete variables and functions)
 ;;				`noruntime' (calls to functions only defined
 ;;					     within `eval-when-compile')
-;;				`cl-warnings' (calls to CL functions)
+;;				`cl-functions' (calls to CL functions)
 ;;				`interactive-only' (calls to commands that are
 ;;						   not good to call from Lisp)
 ;;				`make-local' (dubious calls to
@@ -1348,7 +1348,8 @@
   (unless byte-compile-cl-functions
     (dolist (elt load-history)
       (when (and (stringp (car elt))
-		 (string-match "^cl\\>" (car elt)))
+		 (string-match
+		  "^cl\\>" (file-name-nondirectory (car elt))))
 	(setq byte-compile-cl-functions
 	      (append byte-compile-cl-functions
 		      (cdr elt)))))