comparison lisp/vc.el @ 1905:494dd05d460c

* files.el (revert-buffer): Reverse the sense of the first argument, but leave interactive usage the same. * vc.el (vc-resynch-window): Call vc-revert-buffer1 with the newly appropriate arguments. This seems to be the only file which was adjusted for the new meaning of the revert-buffer arguments.
author Jim Blandy <jimb@redhat.com>
date Mon, 22 Feb 1993 14:17:16 +0000
parents 75e8a7f920c7
children ccb75415543a
comparison
equal deleted inserted replaced
1904:cca15d76f3e5 1905:494dd05d460c
3 ;; Copyright (C) 1992 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992 Free Software Foundation, Inc.
4 4
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
6 ;; Version: 4.0 6 ;; Version: 4.0
7 7
8 ;; $Id: vc.el,v 1.18 1992/11/20 19:33:38 rms Exp jimb $ 8 ;; $Id: vc.el,v 1.19 1992/12/12 15:22:26 jimb Exp jimb $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
357 ;; NOQUERY should be t *only* if it is known the only difference 357 ;; NOQUERY should be t *only* if it is known the only difference
358 ;; between the buffer and the file is due to RCS rather than user editing! 358 ;; between the buffer and the file is due to RCS rather than user editing!
359 (and (string= buffer-file-name file) 359 (and (string= buffer-file-name file)
360 (if keep 360 (if keep
361 (progn 361 (progn
362 (vc-revert-buffer1 nil noquery) 362 (vc-revert-buffer1 t noquery)
363 (vc-mode-line buffer-file-name)) 363 (vc-mode-line buffer-file-name))
364 (progn 364 (progn
365 (delete-window) 365 (delete-window)
366 (kill-buffer (current-buffer)))))) 366 (kill-buffer (current-buffer))))))
367 367