mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 06:01:22 -08:00
Code Issues Projects Releases Wiki Activity

(find-file-noselect): Offer to change buffer-read-only

Browse source 
only when the file's read-only status has changed from before
as well as disagreeing with the buffer's current status.
(buffer-file-read-only): New var, local in all buffers.
This commit is contained in:
Richard M. Stallman 2001-11-01 19:33:52 +00:00
parent 6a0d92d35d
commit e554eeb7ee
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/files.el
View file

@ -197,6 +197,10 @@ If the buffer is visiting a new file, the value is nil.")
(defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt)))
"Non-nil means that buffer-file-number uniquely identifies files.")
(defvar buffer-file-read-only nil
"Non-nil if visited file was read-only when visited.")
(make-variable-buffer-local 'buffer-file-read-only)
(defvar file-name-invalid-regexp
(cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names)))
(concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
@ -1071,16 +1075,19 @@ that are visiting the various files."
(with-current-buffer buf
;; Check if a formerly read-only file has become
;; writable and vice versa.
;; writable and vice versa, but if the buffer agrees
;; with the new state of the file, that is ok too.
(let ((read-only (not (file-writable-p buffer-file-name))))
(unless (eq read-only buffer-read-only)
(unless (or (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"))))
(y-or-n-p question)))
(setq buffer-read-only read-only))))
(setq buffer-read-only read-only)))
(setq buffer-file-read-only read-only))
(when (not (eq (not (null rawfile))
(not (null find-file-literally))))