* files.el (top-level): Require `cl' when compiling.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 401d9618e6e..9742ad3bfb6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-09-07  Juanma Barranquero  <lekktu@gmail.com>
+
+        * files.el (top-level): Require `cl' when compiling.
+
 2009-09-07  Glenn Morris  <rgm@gnu.org>
 
         * files.el (auto-mode-alist): Use delphi-mode for .dpr files.
diff --git a/lisp/files.el b/lisp/files.el
index 84bceedd381..5487b10eb2c 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -29,6 +29,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (defvar font-lock-keywords)
 
 (defgroup backup nil
@@ -722,7 +724,7 @@ one or more of those symbols."
       (read-file-name-internal string nil action)))
    ((eq (car-safe action) 'boundaries)
     (let ((suffix (cdr action)))
-      (list* 'boundaries 
+      (list* 'boundaries
              (length (file-name-directory string))
              (let ((x (file-name-directory suffix)))
                (if x (1- (length x)) (length suffix))))))