diff options
| author | Luc Teirlinck | 2004-03-25 04:21:24 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2004-03-25 04:21:24 +0000 |
| commit | e09cd94fd28aa2335a3d6baf8d3532e94982e8a6 (patch) | |
| tree | 9a05e372665fa602ba120de16399e739a6296292 | |
| parent | 0d1a8fa052358bfcbede85b002167b132a5b95ae (diff) | |
| download | emacs-e09cd94fd28aa2335a3d6baf8d3532e94982e8a6.tar.gz emacs-e09cd94fd28aa2335a3d6baf8d3532e94982e8a6.zip | |
(dired-directory-changed-p): Reindent.
| -rw-r--r-- | lisp/dired.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 6e061dabeb7..af74ed5c1f0 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -530,11 +530,11 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." | |||
| 530 | ;; disk. DIRNAME should be the directory name of that directory. | 530 | ;; disk. DIRNAME should be the directory name of that directory. |
| 531 | (defun dired-directory-changed-p (dirname) | 531 | (defun dired-directory-changed-p (dirname) |
| 532 | (not (let ((attributes (file-attributes dirname)) | 532 | (not (let ((attributes (file-attributes dirname)) |
| 533 | (modtime (visited-file-modtime))) | 533 | (modtime (visited-file-modtime))) |
| 534 | (or (eq modtime 0) | 534 | (or (eq modtime 0) |
| 535 | (not (eq (car attributes) t)) | 535 | (not (eq (car attributes) t)) |
| 536 | (and (= (car (nth 5 attributes)) (car modtime)) | 536 | (and (= (car (nth 5 attributes)) (car modtime)) |
| 537 | (= (nth 1 (nth 5 attributes)) (cdr modtime))))))) | 537 | (= (nth 1 (nth 5 attributes)) (cdr modtime))))))) |
| 538 | 538 | ||
| 539 | (defun dired-buffer-stale-p (&optional noconfirm) | 539 | (defun dired-buffer-stale-p (&optional noconfirm) |
| 540 | "Return non-nil if current dired buffer needs updating. | 540 | "Return non-nil if current dired buffer needs updating. |