[Emacs-diffs] trunk r116355: * files.el (find-file-noselect): Clarify prompt when changing readedness.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 116355
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/13261
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sat 2014-02-08 18:44:25 -0800
message:
  * files.el (find-file-noselect): Clarify prompt when changing readedness.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/files.el                  files.el-20091113204419-o5vbwnq5f7feedwu-265

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-09 02:19:15 +0000
+++ b/lisp/ChangeLog    2014-02-09 02:44:25 +0000
@@ -1,5 +1,8 @@
 2014-02-09  Lars Ingebrigtsen  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2014-02-08 06:58:15 +0000
+++ b/lisp/files.el     2014-02-09 02:44:25 +0000
@@ -1910,10 +1910,12 @@
                              (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))