Commit 79f01fa7 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

parent 8f09a02f
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.
......@@ -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))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment