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

*** empty log message ***

Browse source
This commit is contained in:
Richard M. Stallman 1992-09-12 08:44:18 +00:00
parent e2b40c238e
commit 65864ae07e
1 changed files with 19 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/files.el
View file

@ -787,11 +787,16 @@ the modes of the new file to agree with the old modes."
(let ((attr (file-attributes real-file-name)))
(or (nth 9 attr)
(/= (nth 2 attr) (user-uid))))))
(copy-file real-file-name backupname t t)
; rename-file should delete old backup.
; (condition-case ()
; (delete-file backupname)
; (file-error nil))
(condition-case ()
(copy-file real-file-name backupname t t)
(file-error
;; If copying fails because file BACKUPNAME
;; is not writable, delete that file and try again.
(if (and (file-exists-p backupname)
(not (file-writable-p backupname)))
(delete-file backupname))
(copy-file real-file-name backupname t t)))
;; rename-file should delete old backup.
(rename-file real-file-name backupname t)
(setq setmodes (file-modes backupname)))
(file-error
@ -799,7 +804,15 @@ the modes of the new file to agree with the old modes."
(setq backupname (expand-file-name "~/%backup%~"))
(message "Cannot write backup file; backing up in ~/%%backup%%~")
(sleep-for 1)
(copy-file real-file-name backupname t t)))
(condition-case ()
(copy-file real-file-name backupname t t)
(file-error
;; If copying fails because file BACKUPNAME
;; is not writable, delete that file and try again.
(if (and (file-exists-p backupname)
(not (file-writable-p backupname)))
(delete-file backupname))
(copy-file real-file-name backupname t t)))))
(setq buffer-backed-up t)
;; Now delete the old versions, if desired.
(if delete-old-versions