Mercurial > emacs
changeset 81295:26b46295877f
(byte-compile-find-cl-functions): Match
against file-name-nondirectory.
Fix text on user customization variables.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Sun, 10 Jun 2007 16:14:18 +0000 |
| parents | c6ff99338f6b |
| children | 6d24f0746b22 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))