Mercurial > emacs

comparison lisp/vc.el @ 1575:ae13f4027ebd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-cancel-version): Use yes-or-no-p.
author Richard M. Stallman <rms@gnu.org>
date Sun, 08 Nov 1992 18:58:17 +0000
parents 64f5e84c822b
children e3c02a517030
comparison
equal deleted inserted replaced
1574:352988418dbd 1575:ae13f4027ebd
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.14 1992/10/26 05:33:20 rms Exp rms $ 8 ;; $Id: vc.el,v 1.15 1992/10/28 09:33:04 rms Exp rms $
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
737 "Undo your latest checkin." 737 "Undo your latest checkin."
738 (interactive "P") 738 (interactive "P")
739 (let ((target (vc-your-latest-version (buffer-file-name)))) 739 (let ((target (vc-your-latest-version (buffer-file-name))))
740 (if (null target) 740 (if (null target)
741 (error "You didn't check in the last change.")) 741 (error "You didn't check in the last change."))
742 (and (y-or-n-p (format "Remove version %s from master? " target)) 742 (and (yes-or-no-p (format "Remove version %s from master? " target))
743 (vc-backend-uncheck (buffer-file-name) target))) 743 (vc-backend-uncheck (buffer-file-name) target)))
744 (if norevert 744 (if norevert
745 (vc-mode-line (buffer-file-name)) 745 (vc-mode-line (buffer-file-name))
746 (vc-checkout (buffer-file-name) nil)) 746 (vc-checkout (buffer-file-name) nil))
747 ) 747 )