Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 03:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(vc-revert-buffer1): Use mark-marker; don't alter mark-active.

Browse source
This commit is contained in:
Richard M. Stallman 1993-03-07 07:44:46 +00:00
parent 53e5a4e8a4
commit cfadef6306
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/vc.el
View file

@ -5,7 +5,7 @@
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Version: 4.0
;; $Id: vc.el,v 1.19 1992/12/12 15:22:26 jimb Exp jimb $
;; $Id: vc.el,v 1.20 1993/02/22 14:17:16 jimb Exp rms $
;; This file is part of GNU Emacs.
@ -229,7 +229,11 @@ the master name of FILE; this is appended to an optional list of FLAGS."
(interactive "P")
(widen)
(let ((point-context (vc-position-context (point)))
(mark-context (if (mark) (vc-position-context (mark)))))
;; Use mark-marker to avoid confusion in transient-mark-mode.
(mark-context (if (eq (marker-buffer (mark-marker)) (current-buffer))
(vc-position-context (mark-marker))))
;; Make the right thing happen in transient-mark-mode.
(mark-active nil))
(revert-buffer arg no-confirm)
(let ((new-point (vc-find-position-by-context point-context)))
(if new-point (goto-char new-point)))