Mercurial > emacs

comparison lisp/vc-hooks.el @ 23255:6b2b3ceeb3cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-menu-map): Change the vc-directory label. Don't use the menu-enable properties, pending doing it correctly and acceptably fast.
author Dave Love <fx@gnu.org>
date Mon, 14 Sep 1998 17:26:39 +0000
parents f20bf5cd31d9
children 295cf395a392
comparison
equal deleted inserted replaced
23254:54fc6491e28b 23255:6b2b3ceeb3cd
3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998 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 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> 6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
7 7
8 ;; $Id: vc-hooks.el,v 1.110 1998/05/17 15:33:39 spiegel Exp rms $ 8 ;; $Id: vc-hooks.el,v 1.111 1998/08/08 07:11:40 rms Exp fx $
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
1172 ;; '("Show Files under VC" . (vc-directory t))) 1172 ;; '("Show Files under VC" . (vc-directory t)))
1173 (define-key vc-menu-map [vc-retrieve-snapshot] 1173 (define-key vc-menu-map [vc-retrieve-snapshot]
1174 '("Retrieve Snapshot" . vc-retrieve-snapshot)) 1174 '("Retrieve Snapshot" . vc-retrieve-snapshot))
1175 (define-key vc-menu-map [vc-create-snapshot] 1175 (define-key vc-menu-map [vc-create-snapshot]
1176 '("Create Snapshot" . vc-create-snapshot)) 1176 '("Create Snapshot" . vc-create-snapshot))
1177 (define-key vc-menu-map [vc-directory] '("Show Locked Files" . vc-directory)) 1177 (define-key vc-menu-map [vc-directory] '("VC Directory Listing" . vc-directory))
1178 (define-key vc-menu-map [separator1] '("----")) 1178 (define-key vc-menu-map [separator1] '("----"))
1179 (define-key vc-menu-map [vc-annotate] '("Annotate" . vc-annotate)) 1179 (define-key vc-menu-map [vc-annotate] '("Annotate" . vc-annotate))
1180 (define-key vc-menu-map [vc-rename-file] '("Rename File" . vc-rename-file)) 1180 (define-key vc-menu-map [vc-rename-file] '("Rename File" . vc-rename-file))
1181 (define-key vc-menu-map [vc-version-other-window] 1181 (define-key vc-menu-map [vc-version-other-window]
1182 '("Show Other Version" . vc-version-other-window)) 1182 '("Show Other Version" . vc-version-other-window))
1191 (define-key vc-menu-map [vc-insert-header] 1191 (define-key vc-menu-map [vc-insert-header]
1192 '("Insert Header" . vc-insert-headers)) 1192 '("Insert Header" . vc-insert-headers))
1193 (define-key vc-menu-map [vc-next-action] '("Check In/Out" . vc-next-action)) 1193 (define-key vc-menu-map [vc-next-action] '("Check In/Out" . vc-next-action))
1194 (define-key vc-menu-map [vc-register] '("Register" . vc-register))) 1194 (define-key vc-menu-map [vc-register] '("Register" . vc-register)))
1195 1195
1196 (put 'vc-rename-file 'menu-enable 'vc-mode) 1196 ;;; These are not correct and it's not currently clear how doing it
1197 (put 'vc-annotate 'menu-enable '(eq (vc-buffer-backend) 'CVS)) 1197 ;;; better (with more complicated expressions) might slow things down
1198 (put 'vc-version-other-window 'menu-enable 'vc-mode) 1198 ;;; on older systems.
1199 (put 'vc-diff 'menu-enable 'vc-mode) 1199
1200 (put 'vc-update-change-log 'menu-enable 1200 ;;;(put 'vc-rename-file 'menu-enable 'vc-mode)
1201 '(eq (vc-buffer-backend) 'RCS)) 1201 ;;;(put 'vc-annotate 'menu-enable '(eq (vc-buffer-backend) 'CVS))
1202 (put 'vc-print-log 'menu-enable 'vc-mode) 1202 ;;;(put 'vc-version-other-window 'menu-enable 'vc-mode)
1203 (put 'vc-cancel-version 'menu-enable 'vc-mode) 1203 ;;;(put 'vc-diff 'menu-enable 'vc-mode)
1204 (put 'vc-revert-buffer 'menu-enable 'vc-mode) 1204 ;;;(put 'vc-update-change-log 'menu-enable
1205 (put 'vc-insert-headers 'menu-enable 'vc-mode) 1205 ;;; '(eq (vc-buffer-backend) 'RCS))
1206 (put 'vc-next-action 'menu-enable 'vc-mode) 1206 ;;;(put 'vc-print-log 'menu-enable 'vc-mode)
1207 (put 'vc-register 'menu-enable '(and buffer-file-name (not vc-mode))) 1207 ;;;(put 'vc-cancel-version 'menu-enable 'vc-mode)
1208 ;;;(put 'vc-revert-buffer 'menu-enable 'vc-mode)
1209 ;;;(put 'vc-insert-headers 'menu-enable 'vc-mode)
1210 ;;;(put 'vc-next-action 'menu-enable 'vc-mode)
1211 ;;;(put 'vc-register 'menu-enable '(and buffer-file-name (not vc-mode)))
1208 1212
1209 (provide 'vc-hooks) 1213 (provide 'vc-hooks)
1210 1214
1211 ;;; vc-hooks.el ends here 1215 ;;; vc-hooks.el ends here