Mercurial > emacs
comparison lisp/files.el @ 39593:d6db1ae8176b
(find-file-noselect): If file's read-only status has
changed on disk, ask if buffer's read-only status should be
changed, unless NOWARN is set.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 05 Oct 2001 12:10:57 +0000 |
| parents | 7381e244a652 |
| children | 11d8043f9c30 |
comparison
equal
deleted
inserted
replaced
| 39592:e89bde7c2dd0 | 39593:d6db1ae8176b |
|---|---|
| 1067 (file-name-nondirectory filename) | 1067 (file-name-nondirectory filename) |
| 1068 (buffer-name buf)))) | 1068 (buffer-name buf)))) |
| 1069 (with-current-buffer buf | 1069 (with-current-buffer buf |
| 1070 (revert-buffer t t))))) | 1070 (revert-buffer t t))))) |
| 1071 (with-current-buffer buf | 1071 (with-current-buffer buf |
| 1072 | |
| 1073 ;; Check if a formerly read-only file has become | |
| 1074 ;; writable and vice versa. | |
| 1075 (let ((read-only (not (file-writable-p buffer-file-name)))) | |
| 1076 (unless (eq read-only buffer-read-only) | |
| 1077 (when (or nowarn | |
| 1078 (let ((question | |
| 1079 (format "File %s is %s on disk. Change buffer mode? " | |
| 1080 buffer-file-name | |
| 1081 (if read-only "read-only" "writable")))) | |
| 1082 (y-or-n-p question))) | |
| 1083 (setq buffer-read-only read-only)))) | |
| 1084 | |
| 1072 (when (not (eq (not (null rawfile)) | 1085 (when (not (eq (not (null rawfile)) |
| 1073 (not (null find-file-literally)))) | 1086 (not (null find-file-literally)))) |
| 1074 (if (buffer-modified-p) | 1087 (if (buffer-modified-p) |
| 1075 (if (y-or-n-p (if rawfile | 1088 (if (y-or-n-p (if rawfile |
| 1076 "Save file and revisit literally? " | 1089 "Save file and revisit literally? " |