Commit a8d002d2 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(find-file-noselect): If file's read-only status has

changed on disk, ask if buffer's read-only status should be
changed, unless NOWARN is set.
parent f2e7e23e
......@@ -1069,6 +1069,19 @@ that are visiting the various files."
(with-current-buffer buf
(revert-buffer t t)))))
(with-current-buffer buf
;; Check if a formerly read-only file has become
;; writable and vice versa.
(let ((read-only (not (file-writable-p buffer-file-name))))
(unless (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"))))
(y-or-n-p question)))
(setq buffer-read-only read-only))))
(when (not (eq (not (null rawfile))
(not (null find-file-literally))))
(if (buffer-modified-p)
......
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