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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 401d9618e6e65e3e7f591ea5518785601bf42404..9742ad3bfb694c48d3b330194ecba5779fbc79af 100644 (file)
--- 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 84bceedd381857b177eef308bb423309121b256e..5487b10eb2c4b36dca8fd012fc79b5ca7ae1af24 100644 (file)
--- 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))))))