Mercurial > emacs
comparison lisp/files.el @ 112266:704fa1a3d5b4
Make last-resort backup file in .emacs.d (Bug#6953).
* lisp/files.el (backup-buffer): Make last-resort backup file in
.emacs.d.
* lisp/subr.el (locate-user-emacs-file): If .emacs.d does not exist,
make it with permission 700.
* doc/emacs/files.texi (Backup Names): Document the new location of the
last-resort backup file.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 14 Jan 2011 21:32:19 -0500 |
| parents | fb129cb53476 |
| children | cc0887b67703 |
comparison
equal
deleted
inserted
replaced
| 112265:d67e8472ae65 | 112266:704fa1a3d5b4 |
|---|---|
| 3681 (backup-buffer-copy real-file-name backupname modes) | 3681 (backup-buffer-copy real-file-name backupname modes) |
| 3682 ;; rename-file should delete old backup. | 3682 ;; rename-file should delete old backup. |
| 3683 (rename-file real-file-name backupname t) | 3683 (rename-file real-file-name backupname t) |
| 3684 (setq setmodes (cons modes backupname))) | 3684 (setq setmodes (cons modes backupname))) |
| 3685 (file-error | 3685 (file-error |
| 3686 ;; If trouble writing the backup, write it in ~. | 3686 ;; If trouble writing the backup, write it in |
| 3687 (setq backupname (expand-file-name | 3687 ;; .emacs.d/%backup%. |
| 3688 (convert-standard-filename | 3688 (setq backupname (locate-user-emacs-file "%backup%~")) |
| 3689 "~/%backup%~"))) | |
| 3690 (message "Cannot write backup file; backing up in %s" | 3689 (message "Cannot write backup file; backing up in %s" |
| 3691 backupname) | 3690 backupname) |
| 3692 (sleep-for 1) | 3691 (sleep-for 1) |
| 3693 (backup-buffer-copy real-file-name backupname modes))) | 3692 (backup-buffer-copy real-file-name backupname modes))) |
| 3694 (setq buffer-backed-up t) | 3693 (setq buffer-backed-up t) |