mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(vc-menu-map): New entry "Update to Latest Version", which calls

Browse Source 
vc-update.  Use the term "Base Version" instead of "Last Version"
for the entries "Revert" and "Compare".
This commit is contained in:
André Spiegel 2002-02-28 13:11:11 +00:00
parent 9f30fc99a4
commit c1cd70afea
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -2,7 +2,12 @@
* vc.el (vc-revert-buffer): If the buffer is not saved, prompt
the user to do that first.
(vc-update): New function.
* vc-hooks.el (vc-menu-map): New entry "Update to Latest Version",
which calls vc-update. Use the term "Base Version" instead of
"Last Version" for the entries "Revert" and "Compare".
2002-02-28 Kim F. Storm <storm@cua.dk>
* simple.el (shell-command-on-region): Report non-zero exit

12
lisp/vc-hooks.el
View File

@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-hooks.el,v 1.137 2001/12/14 07:58:33 spiegel Exp $
;; $Id: vc-hooks.el,v 1.138 2002/02/21 20:56:58 spiegel Exp $
;; This file is part of GNU Emacs.
@ -724,16 +724,18 @@ Used in `find-file-not-found-hooks'."
(define-key vc-menu-map [vc-rename-file] '("Rename File" . vc-rename-file))
(define-key vc-menu-map [vc-version-other-window]
'("Show Other Version" . vc-version-other-window))
(define-key vc-menu-map [vc-diff] '("Compare with Last Version" . vc-diff))
(define-key vc-menu-map [vc-diff] '("Compare with Base Version" . vc-diff))
(define-key vc-menu-map [vc-update-change-log]
'("Update ChangeLog" . vc-update-change-log))
(define-key vc-menu-map [vc-print-log] '("Show History" . vc-print-log))
(define-key vc-menu-map [separator2] '("----"))
(define-key vc-menu-map [undo] '("Undo Last Check-In" . vc-cancel-version))
(define-key vc-menu-map [vc-revert-buffer]
'("Revert to Last Version" . vc-revert-buffer))
(define-key vc-menu-map [vc-insert-header]
'("Insert Header" . vc-insert-headers))
(define-key vc-menu-map [undo] '("Undo Last Check-In" . vc-cancel-version))
(define-key vc-menu-map [vc-revert-buffer]
'("Revert to Base Version" . vc-revert-buffer))
(define-key vc-menu-map [vc-update]
'("Update to Latest Version" . vc-update))
(define-key vc-menu-map [vc-next-action] '("Check In/Out" . vc-next-action))
(define-key vc-menu-map [vc-register] '("Register" . vc-register)))