From 8197b8bf929f5af8d0ffd26a7578e5525be82eed Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 20 May 1994 23:56:40 +0000 Subject: [PATCH] (dired-readin): Clear modified flag at the very end. --- lisp/dired.el | 4 ++-- 1 file 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." ;; 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 -- 2.39.5