From 79f01fa76c2bf93269c9dbd07960e59aafe27521 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 7 Sep 2009 15:23:09 +0000 Subject: [PATCH] * files.el (top-level): Require `cl' when compiling. --- lisp/ChangeLog | 4 ++++ lisp/files.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * files.el (top-level): Require `cl' when compiling. + 2009-09-07 Glenn Morris * 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)))))) -- 2.39.2