# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1026083704 0
# Node ID 0c400ea7ea4dfa39424c1ae3d25bf1e0005f5c8a
# Parent  c4de1416e022ef88480972cff18515396427eb35
(after-find-file): Don't check for read-only status
of files just created (and not yet saved on disk).

diff -r c4de1416e022 -r 0c400ea7ea4d lisp/files.el
--- a/lisp/files.el	Sun Jul 07 23:13:45 2002 +0000
+++ b/lisp/files.el	Sun Jul 07 23:15:04 2002 +0000
@@ -1424,7 +1424,8 @@
     (setq buffer-read-only t))
   ;; When a file is marked read-only,
   ;; make the buffer read-only even if root is looking at it.
-  (when (zerop (logand (file-modes (buffer-file-name)) #o222))
+  (when (and (file-modes (buffer-file-name))
+	     (zerop (logand (file-modes (buffer-file-name)) #o222)))
     (setq buffer-read-only t))
   (unless nomodes
     (when (and view-read-only view-mode)