Mercurial > emacs
comparison lisp/dired.el @ 10845:b70748bfdc90
Made revert-buffer message go via substitute-command-keys.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Mon, 27 Feb 1995 08:05:09 +0000 |
| parents | d5d1393a26af |
| children | ab55a16a92ce |
comparison
equal
deleted
inserted
replaced
| 10844:06d6b2e17987 | 10845:b70748bfdc90 |
|---|---|
| 418 (or (eq modtime 0) | 418 (or (eq modtime 0) |
| 419 (not (eq (car attributes) t)) | 419 (not (eq (car attributes) t)) |
| 420 (and (= (car (nth 5 attributes)) (car modtime)) | 420 (and (= (car (nth 5 attributes)) (car modtime)) |
| 421 (= (nth 1 (nth 5 attributes)) (cdr modtime))))) | 421 (= (nth 1 (nth 5 attributes)) (cdr modtime))))) |
| 422 nil | 422 nil |
| 423 (message "Directory has changed on disk; type `g' to update Dired"))) | 423 (message |
| 424 (substitute-command-keys | |
| 425 "Directory has changed on disk; type \\[revert-buffer] to update Dired")))) | |
| 424 ;; Else a new buffer | 426 ;; Else a new buffer |
| 425 (setq default-directory | 427 (setq default-directory |
| 426 (if (file-directory-p dirname) | 428 (if (file-directory-p dirname) |
| 427 dirname | 429 dirname |
| 428 (file-name-directory dirname))) | 430 (file-name-directory dirname))) |