Mercurial > emacs
diff lisp/files.el @ 46233:0c400ea7ea4d
(after-find-file): Don't check for read-only status
of files just created (and not yet saved on disk).
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Sun, 07 Jul 2002 23:15:04 +0000 |
parents | 7a5696eb36e5 |
children | edbc0e22f0cb |
line wrap: on
line diff
--- 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)