Skip to content

GitLab

Commit 9e108fe6 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

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

Fixes: debbugs:13261
parent 20dda930
Hide whitespace changes
Inline Side-by-side
Showing with 9 additions and 4 deletions
lisp/ChangeLog
View file @ 9e108fe6
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).
......
lisp/files.el
View file @ 9e108fe6
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment