diff options
| author | Karl Heuer | 1999-08-10 16:40:14 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-08-10 16:40:14 +0000 |
| commit | c741ccc5c122972444404d08a2aba8c69dc3673b (patch) | |
| tree | adee923c52d1a469cde1a7ce99034a96b5472f4c | |
| parent | bf551cf70519a3033fef95f383d4735c46f25477 (diff) | |
| download | emacs-c741ccc5c122972444404d08a2aba8c69dc3673b.tar.gz emacs-c741ccc5c122972444404d08a2aba8c69dc3673b.zip | |
(after-find-file): Disable View mode if buffer is no
longer read-only.
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index 0c5fc6b7e03..d3d9a20cd12 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1195,6 +1195,8 @@ unless NOMODES is non-nil." | |||
| 1195 | (auto-save-mode t))) | 1195 | (auto-save-mode t))) |
| 1196 | (if nomodes | 1196 | (if nomodes |
| 1197 | nil | 1197 | nil |
| 1198 | (and view-read-only view-mode | ||
| 1199 | (view-mode-disable)) | ||
| 1198 | (normal-mode t) | 1200 | (normal-mode t) |
| 1199 | (if (and buffer-read-only view-read-only | 1201 | (if (and buffer-read-only view-read-only |
| 1200 | (not (eq (get major-mode 'mode-class) 'special))) | 1202 | (not (eq (get major-mode 'mode-class) 'special))) |