procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(after-find-file): When visiting a backup file, make it read-only.

Browse source
This commit is contained in:
Richard M. Stallman 1999-09-17 20:57:37 +00:00
parent 07eeca5d43
commit 8120f98902
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/files.el
View file

@ -1189,7 +1189,7 @@ unless NOMODES is non-nil."
(msg
(cond ((and error (file-attributes buffer-file-name))
(setq buffer-read-only t)
"File exists, but cannot be read.")
"File exists, but cannot be read")
((not buffer-read-only)
(if (and warn
(file-newer-than-file-p (make-auto-save-file-name)
@ -1216,6 +1216,10 @@ unless NOMODES is non-nil."
(or not-serious (sit-for 1 nil t)))))
(if (and auto-save-default (not noauto))
(auto-save-mode t)))
;; Make people do a little extra work (C-x C-q)
;; before altering a backup file.
(if (backup-file-name-p buffer-file-name)
(setq buffer-read-only t))
(if nomodes
nil
(and view-read-only view-mode