From d6b485a69a1acca4957fede7fa77b4931bb37da1 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 9 Jul 2025 11:43:49 +0100 Subject: [PATCH] * lisp/vc/vc.el (vc-find-revision-no-save): Call read-only-mode. (cherry picked from commit 72eb20f93f1b7693b54d21081235dfb804c94adc) --- lisp/vc/vc.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index bfeba44c5fa..45095a331ed 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2752,12 +2752,7 @@ Unlike `vc-find-revision-save', doesn't save the buffer to the file." ;; to not ignore 'enable-local-variables' when nil. (normal-mode (not enable-local-variables))) (set-buffer-modified-p nil) - (setq buffer-read-only t) - (run-hooks 'read-only-mode-hook) - (when (and view-read-only - (not view-mode) - (not (eq (get major-mode 'mode-class) 'special))) - (view-mode-enter)) + (read-only-mode 1) (setq failed nil)) (when (and failed (unless buffer (get-file-buffer filename))) (with-current-buffer (get-file-buffer filename) -- 2.39.5