Mercurial > emacs
comparison lisp/files.el @ 49007:214dbee546dd
(backup-buffer): Cope if file-modes returns nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 01 Jan 2003 16:55:11 +0000 |
| parents | dae8bb57e633 |
| children | 7739522ac6f2 |
comparison
equal
deleted
inserted
replaced
| 49006:2c71c36eaac2 | 49007:214dbee546dd |
|---|---|
| 2398 (condition-case () | 2398 (condition-case () |
| 2399 (if (or file-precious-flag | 2399 (if (or file-precious-flag |
| 2400 ; (file-symlink-p buffer-file-name) | 2400 ; (file-symlink-p buffer-file-name) |
| 2401 backup-by-copying | 2401 backup-by-copying |
| 2402 ;; Don't rename a suid or sgid file. | 2402 ;; Don't rename a suid or sgid file. |
| 2403 (< 0 (logand modes #o6000)) | 2403 (and modes (< 0 (logand modes #o6000))) |
| 2404 (and backup-by-copying-when-linked | 2404 (and backup-by-copying-when-linked |
| 2405 (> (file-nlinks real-file-name) 1)) | 2405 (> (file-nlinks real-file-name) 1)) |
| 2406 (and (or backup-by-copying-when-mismatch | 2406 (and (or backup-by-copying-when-mismatch |
| 2407 (integerp backup-by-copying-when-privileged-mismatch)) | 2407 (integerp backup-by-copying-when-privileged-mismatch)) |
| 2408 (let ((attr (file-attributes real-file-name))) | 2408 (let ((attr (file-attributes real-file-name))) |