1424 |
(setq buffer-read-only t)) |
(setq buffer-read-only t)) |
1425 |
;; When a file is marked read-only, |
;; When a file is marked read-only, |
1426 |
;; make the buffer read-only even if root is looking at it. |
;; make the buffer read-only even if root is looking at it. |
1427 |
(when (zerop (logand (file-modes (buffer-file-name)) #o222)) |
(when (and (file-modes (buffer-file-name)) |
1428 |
|
(zerop (logand (file-modes (buffer-file-name)) #o222))) |
1429 |
(setq buffer-read-only t)) |
(setq buffer-read-only t)) |
1430 |
(unless nomodes |
(unless nomodes |
1431 |
(when (and view-read-only view-mode) |
(when (and view-read-only view-mode) |