diff options
| author | Eli Zaretskii <eliz@is.elta.co.il> | 2004-02-16 13:47:39 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@is.elta.co.il> | 2004-02-16 13:47:39 +0000 |
| commit | 0f98bc23509b4e909cc92237e4b082c6866da258 (patch) | |
| tree | 005cc657379b393667a14f7b75b266c73e725472 /lisp/autorevert.el | |
| parent | bbc66b08e1b5d029b0e304ba28c01809dcdeca77 (diff) | |
| download | emacs-0f98bc23509b4e909cc92237e4b082c6866da258.tar.gz | |
(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.
Diffstat (limited to 'lisp/autorevert.el')
| -rw-r--r-- | lisp/autorevert.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 9005a7c4063..309517476e1 100644 --- 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) |