Re: automatic dired update

[Andreas Politz <politza@fh-trier.de>]

d_zman@hotmail.com wrote:
 > If I add this to my lisp scripts called out in .emacs it doesn't
 > work.  If I load your lisp script by itself, it does.  How can I have
 > it load with my other lisp scipts, is there line I can add to
 > my .emacs file?
 >

I don't know why it's not working, but as someone mentioned in this
thread I was reinventing wheels. Use auto-revert-mode instead :

(add-to-list 'dired-mode-hook 'auto-revert-mode)

-ap

 >> (defun maybe-revert-dired-buffers ()
 >>    (walk-windows
 >>     #'(lambda (win)
 >>         (with-selected-window win
 >>           (when (eq major-mode 'dired-mode)
 >>             (let ((mod (gethash default-directory dired-file-modification-hash)))
 >>               (unless (and mod
 >>                            (equal mod (nth 5 (file-attributes default-directory))))
 >>                 (setq mod (nth 5 (file-attributes default-directory)))
 >>                 (puthash default-directory mod dired-file-modification-hash)
 >>                 (dired-revert))))))
 >>     'no-mini 'all-frames))
 >>
 >> (run-with-idle-timer 1 t 'maybe-revert-dired-buffers)
 >>
 >> This is polling the filesystem, plus I don't know if it is working
 >> on win32.
 >>
 >> -ap- Hide quoted text -
 >>
 >> - Show quoted text -
 >
 >