From b4c4047461e792759949f171d43e8c45371a44eb Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Mon, 22 Jul 2002 18:52:04 +0000 Subject: [PATCH] (vc-next-action-on-file): Preserve find-file-literally. --- lisp/vc.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 750d0f168be..becfc4cdc4e 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -6,7 +6,7 @@ ;; Maintainer: Andre Spiegel ;; Keywords: tools -;; $Id: vc.el,v 1.333 2002/07/16 20:44:23 monnier Exp $ +;; $Id: vc.el,v 1.334 2002/07/19 13:20:02 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -1105,15 +1105,16 @@ If VERBOSE is non-nil, query the user rather than using default parameters." (let ((visited (get-file-buffer file)) state version) (when visited + (if vc-dired-mode + (switch-to-buffer-other-window visited) + (set-buffer visited)) ;; Check relation of buffer and file, and make sure ;; user knows what he's doing. First, finding the file ;; will check whether the file on disk is newer. - (set-buffer visited) - ;; ignore buffer-read-only during this test + ;; Ignore buffer-read-only during this test, and + ;; preserve find-file-literally. (let ((buffer-read-only (not (file-writable-p file)))) - (if vc-dired-mode - (find-file-other-window file) - (find-file-noselect file))) + (find-file-noselect file nil find-file-literally)) (if (not (verify-visited-file-modtime (current-buffer))) (if (yes-or-no-p "Replace file on disk with buffer contents? ") (write-file (buffer-file-name)) -- 2.39.5