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

(vc-revert-buffer1): Pass t as preserve-modes to revert-buffer.

Browse source
This commit is contained in:
Richard M. Stallman 1995-12-25 21:07:12 +00:00
parent 9a30563f92
commit e7ffe86a90
1 changed files with 36 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

71
lisp/vc.el
View file

@ -539,7 +539,8 @@ to an optional list of FLAGS."
(interactive "P")
(widen)
(let ((context (vc-buffer-context)))
(revert-buffer arg no-confirm)
;; t means don't call normal-mode; that's to preserve various minor modes.
(revert-buffer arg no-confirm t)
(vc-restore-buffer-context context)))
@ -1875,40 +1876,40 @@ From a program, any arguments are passed to the `rcs2log' script."
switches)
(setq failed nil))
(and failed (file-exists-p filename) (delete-file filename))))
(let (new-version)
;; if we should go to the head of the trunk,
;; clear the default branch first
(and rev (string= rev "")
(vc-do-command nil 0 "rcs" file 'MASTER "-b"))
;; now do the checkout
(apply 'vc-do-command
nil 0 "co" file 'MASTER
;; If locking is not strict, force to overwrite
;; the writable workfile.
(if (eq (vc-checkout-model file) 'implicit) "-f")
(if writable "-l")
(if rev (concat "-r" rev)
;; if no explicit revision was specified,
;; check out that of the working file
(let ((workrev (vc-workfile-version file)))
(if workrev (concat "-r" workrev)
nil)))
switches)
;; determine the new workfile version
(save-excursion
(set-buffer "*vc*")
(goto-char (point-min))
(setq new-version
(if (re-search-forward "^revision \\([0-9.]+\\).*\n" nil t)
(buffer-substring (match-beginning 1) (match-end 1)))))
(vc-file-setprop file 'vc-workfile-version new-version)
;; if necessary, adjust the default branch
(and rev (not (string= rev ""))
(vc-do-command nil 0 "rcs" file 'MASTER
(concat "-b" (if (vc-latest-on-branch-p file)
(if (vc-trunk-p new-version) nil
(vc-branch-part new-version))
new-version))))))
(let (new-version)
;; if we should go to the head of the trunk,
;; clear the default branch first
(and rev (string= rev "")
(vc-do-command nil 0 "rcs" file 'MASTER "-b"))
;; now do the checkout
(apply 'vc-do-command
nil 0 "co" file 'MASTER
;; If locking is not strict, force to overwrite
;; the writable workfile.
(if (eq (vc-checkout-model file) 'implicit) "-f")
(if writable "-l")
(if rev (concat "-r" rev)
;; if no explicit revision was specified,
;; check out that of the working file
(let ((workrev (vc-workfile-version file)))
(if workrev (concat "-r" workrev)
nil)))
switches)
;; determine the new workfile version
(save-excursion
(set-buffer "*vc*")
(goto-char (point-min))
(setq new-version
(if (re-search-forward "^revision \\([0-9.]+\\).*\n" nil t)
(buffer-substring (match-beginning 1) (match-end 1)))))
(vc-file-setprop file 'vc-workfile-version new-version)
;; if necessary, adjust the default branch
(and rev (not (string= rev ""))
(vc-do-command nil 0 "rcs" file 'MASTER
(concat "-b" (if (vc-latest-on-branch-p file)
(if (vc-trunk-p new-version) nil
(vc-branch-part new-version))
new-version))))))
(if workfile ;; CVS
;; CVS is much like RCS
(let ((failed t))