# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1252336989 0
# Node ID b5cd21deee56cf24034b83f2ac8387da240392ad
# Parent  24d04b560b0d98aee7fcf98876978bd3865ef5f5
* files.el (top-level): Require `cl' when compiling.

diff -r 24d04b560b0d -r b5cd21deee56 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Sep 07 02:35:29 2009 +0000
+++ b/lisp/ChangeLog	Mon Sep 07 15:23:09 2009 +0000
@@ -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 -r 24d04b560b0d -r b5cd21deee56 lisp/files.el
--- a/lisp/files.el	Mon Sep 07 02:35:29 2009 +0000
+++ b/lisp/files.el	Mon Sep 07 15:23:09 2009 +0000
@@ -29,6 +29,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (defvar font-lock-keywords)
 
 (defgroup backup nil
@@ -722,7 +724,7 @@
       (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))))))