Re: [patch] 21.3 autorevert.el - Added dired buffer support

[Jari Aalto+mail.emacs]

* Sat 2004-01-24 jari.aalto@poboxes.com (Jari Aalto+mail.emacs) gnu.emacs.bug
* 
<http://groups.google.com/groups?oi=djq&as_umsgid=%3Cmailman.1283.1074976265.928.bug-gnu-emacs@gnu.org>

Here are some additional fixed to the previous port.
Jari




2004-01-25 Sun  Jari Aalto  <jari.aalto@poboxes.com>

        * autorevert.el
        (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.

Index: autorevert.el
===================================================================
RCS file: 
/cygdrive/h/data/version-control/cvsroot/emacs/gnu-emacs/lisp213/autorevert.el,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -IId: -b -w -u -r1.2 -r1.4
--- autorevert.el       25 Jan 2004 11:59:14 -0000      1.2
+++ autorevert.el       25 Jan 2004 13:08:09 -0000      1.4
@@ -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:
@@ -296,7 +300,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))
@@ -325,7 +329,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)