Mercurial > emacs
changeset 104878:b5cd21deee56
* files.el (top-level): Require `cl' when compiling.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 07 Sep 2009 15:23:09 +0000 |
| parents | 24d04b560b0d |
| children | eccd5fb371c2 |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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))))))