bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Jari Aalto+mail.emacs
Subject: Re: [patch] 21.3 autorevert.el - Added dired buffer support
Date: Sun, 25 Jan 2004 16:47:04 +0200
User-agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/20.7 (windows-nt) (i386-*-nt5.0.2195)

* Sat 2004-01-24 address@hidden (Jari Aalto+mail.emacs) gnu.emacs.bug
* <http://groups.google.com/groups?oi=djq&address@hidden>

Here are some additional fixed to the previous port.
Jari




2004-01-25 Sun  Jari Aalto  <address@hidden>

        * 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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]