Mercurial > emacs

diff lisp/files.el @ 49007:214dbee546dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
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