Mercurial > emacs
comparison lisp/dired.el @ 56423:fb8b1f758f89
(dired-directory-changed-p): `visited-file-modtime' now returns a
list of two integers, instead of a cons.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Wed, 14 Jul 2004 22:59:08 +0000 |
| parents | e3ace501b5f4 |
| children | 445f56b6dc24 97905c4f1a42 |
comparison
equal
deleted
inserted
replaced
| 56422:36170ef90094 | 56423:fb8b1f758f89 |
|---|---|
| 618 (defun dired-directory-changed-p (dirname) | 618 (defun dired-directory-changed-p (dirname) |
| 619 (not (let ((attributes (file-attributes dirname)) | 619 (not (let ((attributes (file-attributes dirname)) |
| 620 (modtime (visited-file-modtime))) | 620 (modtime (visited-file-modtime))) |
| 621 (or (eq modtime 0) | 621 (or (eq modtime 0) |
| 622 (not (eq (car attributes) t)) | 622 (not (eq (car attributes) t)) |
| 623 (and (= (car (nth 5 attributes)) (car modtime)) | 623 (equal (nth 5 attributes) modtime))))) |
| 624 (= (nth 1 (nth 5 attributes)) (cdr modtime))))))) | |
| 625 | 624 |
| 626 (defun dired-buffer-stale-p (&optional noconfirm) | 625 (defun dired-buffer-stale-p (&optional noconfirm) |
| 627 "Return non-nil if current dired buffer needs updating. | 626 "Return non-nil if current dired buffer needs updating. |
| 628 If NOCONFIRM is non-nil, then this function always returns nil | 627 If NOCONFIRM is non-nil, then this function always returns nil |
| 629 for a remote directory. This feature is used by Auto Revert Mode." | 628 for a remote directory. This feature is used by Auto Revert Mode." |