mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

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

Browse Source 
changed on disk, ask if buffer's read-only status should be
changed, unless NOWARN is set.
This commit is contained in:
Gerd Moellmann 2001-10-05 12:10:57 +00:00
parent f2e7e23e00
commit a8d002d2a6
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/files.el
View File

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