/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.590 by rms, Sun Jul 7 09:21:52 2002 UTC revision 1.591 by kfstorm, Sun Jul 7 23:15:04 2002 UTC
# Line 1424  unless NOMODES is non-nil." Line 1424  unless NOMODES is non-nil."
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)

Legend:
Removed from v.1.590  
changed lines
  Added in v.1.591

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26