From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 1 Jan 2003 16:55:11 +0000 (+0000)
Subject: (backup-buffer): Cope if file-modes returns nil.
X-Git-Tag: ttn-vms-21-2-B4~11871
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7da6bf0059a9ddd4605d16322474c258f7bbf27b;p=emacs.git

(backup-buffer): Cope if file-modes returns nil.
---

diff --git a/lisp/files.el b/lisp/files.el
index 3b0fc3e63db..3ec068f953b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2400,7 +2400,7 @@ BACKUPNAME is the backup file name, which is the old file renamed."
     ;			      (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