mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

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

Browse Source 
(top level): Byte compiler fixes: defvar `dired-directory' added,
autoload `dired-get-filename' added.
This commit is contained in:
Eli Zaretskii 2004-02-16 13:47:39 +00:00
parent bbc66b08e1
commit 0f98bc2350
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -11,6 +11,7 @@
(auto-revert-handler, auto-revert-active-p): New functions. (auto-revert-handler, auto-revert-active-p): New functions.
(auto-revert-buffers): Moved revert logic to `auto-revert-handler' (auto-revert-buffers): Moved revert logic to `auto-revert-handler'
and `auto-revert-active-p'. and `auto-revert-active-p'.
(eval-when-compile): Defvar dired-directory.
2004-02-16 Alfred M. Szmidt <ams@kemisten.nu> (tiny change) 2004-02-16 Alfred M. Szmidt <ams@kemisten.nu> (tiny change)

10
lisp/autorevert.el
View File

@ -70,7 +70,11 @@
;; Dependencies: ;; Dependencies:
(require 'timer) (require 'timer)
(eval-when-compile (require 'cl)) (autoload 'dired-get-filename "dired")
(eval-when-compile
(defvar dired-directory)
(require 'cl))
;; Custom Group: ;; Custom Group:
@ -267,7 +271,7 @@ Use `auto-revert-mode' to revert a particular buffer."
(defun auto-revert-dired-file-list () (defun auto-revert-dired-file-list ()
"Return list of dired files." "Return list of dired files."
(let (list) (let (file list)
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))
(while (not (eobp)) (while (not (eobp))
@ -296,7 +300,7 @@ Use `auto-revert-mode' to revert a particular buffer."
(and (not (buffer-modified-p)) (and (not (buffer-modified-p))
(if (buffer-file-name) (if (buffer-file-name)
(and (file-readable-p (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 (and revert-buffer-function
(or (and global-auto-revert-mode (or (and global-auto-revert-mode
global-auto-revert-non-file-buffers) global-auto-revert-non-file-buffers)