diff options
| author | Richard M. Stallman | 1994-05-20 23:56:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-20 23:56:40 +0000 |
| commit | 8197b8bf929f5af8d0ffd26a7578e5525be82eed (patch) | |
| tree | 9ff194f370743e3ea123948b44a2ad42c973f803 | |
| parent | f9b3ef8860a5ca03eb9d2e1739ef9456e9670a66 (diff) | |
| download | emacs-8197b8bf929f5af8d0ffd26a7578e5525be82eed.tar.gz emacs-8197b8bf929f5af8d0ffd26a7578e5525be82eed.zip | |
(dired-readin): Clear modified flag at the very end.
| -rw-r--r-- | lisp/dired.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 34f4ca86d6b..47e413c72d8 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -477,11 +477,11 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." | |||
| 477 | ;; alist to be OK. | 477 | ;; alist to be OK. |
| 478 | ) | 478 | ) |
| 479 | (message "Reading directory %s...done" dirname) | 479 | (message "Reading directory %s...done" dirname) |
| 480 | (set-buffer-modified-p nil) | ||
| 481 | ;; Must first make alist buffer local and set it to nil because | 480 | ;; Must first make alist buffer local and set it to nil because |
| 482 | ;; dired-build-subdir-alist will call dired-clear-alist first | 481 | ;; dired-build-subdir-alist will call dired-clear-alist first |
| 483 | (set (make-local-variable 'dired-subdir-alist) nil) | 482 | (set (make-local-variable 'dired-subdir-alist) nil) |
| 484 | (dired-build-subdir-alist)))) | 483 | (dired-build-subdir-alist) |
| 484 | (set-buffer-modified-p nil)))) | ||
| 485 | 485 | ||
| 486 | ;; Subroutines of dired-readin | 486 | ;; Subroutines of dired-readin |
| 487 | 487 | ||