Mercurial > emacs

changeset 53984:73f78af624f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Eli Zaretskii <eliz@is.elta.co.il>
date Mon, 16 Feb 2004 13:44:07 +0000
parents 30f8a717bfdf
children cc5e51e26b0c
files lisp/autorevert.el
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/autorevert.el	Mon Feb 16 13:41:03 2004 +0000
+++ b/lisp/autorevert.el	Mon Feb 16 13:44:07 2004 +0000
@@ -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 @@
 
 (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 @@
       (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)