diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2007-06-10 16:15:10 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2007-06-10 16:15:10 +0000 |
| commit | 7940bf7dc0a572e6d05bb198c738b436657210f1 (patch) | |
| tree | 9d0b682c857e8b48058986873d0f1eae3c449ec8 /lisp/emacs-lisp | |
| parent | 089a966d56ff9cbbae5ca5b3af4694da7ca6dcaa (diff) | |
| download | emacs-7940bf7dc0a572e6d05bb198c738b436657210f1.tar.gz emacs-7940bf7dc0a572e6d05bb198c738b436657210f1.tar.bz2 emacs-7940bf7dc0a572e6d05bb198c738b436657210f1.zip | |
(byte-compile-find-cl-functions): Match
against file-name-nondirectory.
Fix text on user customization variables.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 0a37f098a7b..619b7533ca7 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 @@ extra args." (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))))) |