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

Fixes: debbugs:13261

* files.el (find-file-noselect): Clarify prompt when changing readedness.
Fixes: debbugs:13261
9e108fe6 · Lars Ingebrigtsen · 20dda930 · 9e108fe6 · 9e108fe6
Commit 9e108fe6 authored Feb 08, 2014 by Lars Ingebrigtsen
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 4 deletions

lisp/ChangeLog lisp/ChangeLog +3 -0

lisp/files.el lisp/files.el +6 -4

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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).


--- 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))