[Emacs-diffs] Changes to emacs/lisp/files.el

[Kim F. Storm]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.590 emacs/lisp/files.el:1.591
*** emacs/lisp/files.el:1.590   Sun Jul  7 05:21:52 2002
--- emacs/lisp/files.el Sun Jul  7 19:15:04 2002
***************
*** 1424,1430 ****
      (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))
      (setq buffer-read-only t))
    (unless nomodes
      (when (and view-read-only view-mode)
--- 1424,1431 ----
      (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 (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)