From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 20 May 1994 23:56:40 +0000 (+0000)
Subject: (dired-readin): Clear modified flag at the very end.
X-Git-Tag: emacs-19.34~8255
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8197b8bf929f5af8d0ffd26a7578e5525be82eed;p=emacs.git

(dired-readin): Clear modified flag at the very end.
---

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."
 	;; 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