* files.el (find-file-noselect): Clarify prompt when changing readedness.

Fixes: debbugs:13261

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f730aba5e2168db58e5b0d1d777fdb7ff121333..205cfa319cd1e75020376d21f70a015a8537ac04 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-02-09  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * files.el (find-file-noselect): Clarify prompt when changing
+       readedness (bug#13261).
+
        * dired.el (dired-internal-do-deletions): Don't say "Deleting..."
        before we actually start to delete things (bug#16331).
 

diff --git a/lisp/files.el b/lisp/files.el
index 3697467b3bd21c99f89bd782ede7fdc43caaf1dd..38113bc638826eba2d9a845f5003c5cd67e82ba8 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1910,10 +1910,12 @@ the various files."
                              (eq read-only buffer-file-read-only)
                              (eq read-only buffer-read-only))
                    (when (or nowarn
-                             (let ((question
-                                    (format "File %s is %s on disk.  Change buffer mode? "
-                                            buffer-file-name
-                                            (if read-only "read-only" "writable"))))
+                             (let* ((new-status
+                                     (if read-only "read-only" "writable"))
+                                    (question
+                                     (format "File %s is %s on disk.  Make buffer %s, too? "
+                                             buffer-file-name
+                                             new-status new-status)))
                                (y-or-n-p question)))
                      (setq buffer-read-only read-only)))
                  (setq buffer-file-read-only read-only))