Mercurial > emacs

changeset 7598:cdde619af40c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-readin): Clear modified flag at the very end.
author Richard M. Stallman <rms@gnu.org>
date Fri, 20 May 1994 23:56:40 +0000
parents 99a600c67e82
children 880fcef68f73
files lisp/dired.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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