changeset 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 2c71c36eaac2
children dfbf1b11349a
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Wed Jan 01 00:33:57 2003 +0000
+++ b/lisp/files.el	Wed Jan 01 16:55:11 2003 +0000
@@ -2400,7 +2400,7 @@
     ;			      (file-symlink-p buffer-file-name)
 			      backup-by-copying
 			      ;; Don't rename a suid or sgid file.
-			      (< 0 (logand modes #o6000))
+			      (and modes (< 0 (logand modes #o6000)))
 			      (and backup-by-copying-when-linked
 				   (> (file-nlinks real-file-name) 1))
 			      (and (or backup-by-copying-when-mismatch