(auto-revert-dired-file-list): added missing variable `file' to `let'.

(top level): Byte compiler fixes: defvar `dired-directory' added,
autoload `dired-get-filename' added.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d1ac20a4ff102cb8a2850feb02028548dab2496..c13e5dff431db12e4e0df67358e79f7e5b98600a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -11,6 +11,7 @@
        (auto-revert-handler, auto-revert-active-p): New functions.
        (auto-revert-buffers): Moved revert logic to `auto-revert-handler'
        and `auto-revert-active-p'.
+       (eval-when-compile): Defvar dired-directory.
 
 2004-02-16  Alfred M. Szmidt  <ams@kemisten.nu>  (tiny change)
 

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 9005a7c40634d71a7403e0fe038eeb99d9d918fc..309517476e10276b3fab856d3de9428cdfeedf2e 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -70,7 +70,11 @@
 ;; Dependencies:
 
 (require 'timer)
-(eval-when-compile (require 'cl))
+(autoload 'dired-get-filename "dired")
+
+(eval-when-compile
+  (defvar dired-directory)
+  (require 'cl))
 
 
 ;; Custom Group:
@@ -267,7 +271,7 @@ Use `auto-revert-mode' to revert a particular buffer."
 
 (defun auto-revert-dired-file-list ()
   "Return list of dired files."
-  (let (list)
+  (let (file list)
     (save-excursion
       (goto-char (point-min))
       (while (not (eobp))
@@ -296,7 +300,7 @@ Use `auto-revert-mode' to revert a particular buffer."
       (and (not (buffer-modified-p))
           (if (buffer-file-name)
               (and (file-readable-p (buffer-file-name))
-                   (not (verify-visited-file-modtime buf)))
+                   (not (verify-visited-file-modtime (current-buffer))))
             (and revert-buffer-function
                  (or (and global-auto-revert-mode
                           global-auto-revert-non-file-buffers)