# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769478200 0
# Node ID cdde619af40c29f1db579d6ea05ee9111aad57b9
# Parent  99a600c67e82206751c53205e93b620efee11614
(dired-readin): Clear modified flag at the very end.

diff -r 99a600c67e82 -r cdde619af40c lisp/dired.el
--- a/lisp/dired.el	Fri May 20 23:48:12 1994 +0000
+++ b/lisp/dired.el	Fri May 20 23:56:40 1994 +0000
@@ -477,11 +477,11 @@
 	;; alist to be OK.
 	)
       (message "Reading directory %s...done" dirname)
-      (set-buffer-modified-p nil)
       ;; Must first make alist buffer local and set it to nil because
       ;; dired-build-subdir-alist will call dired-clear-alist first
       (set (make-local-variable 'dired-subdir-alist) nil)
-      (dired-build-subdir-alist))))
+      (dired-build-subdir-alist)
+      (set-buffer-modified-p nil))))
 
 ;; Subroutines of dired-readin