Mercurial > emacs
changeset 23255:6b2b3ceeb3cd
(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 | 54fc6491e28b |
| children | e54c6c6c2746 |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 18 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Mon Sep 14 17:14:40 1998 +0000 +++ b/lisp/vc-hooks.el Mon Sep 14 17:26:39 1998 +0000 @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> -;; $Id: vc-hooks.el,v 1.110 1998/05/17 15:33:39 spiegel Exp rms $ +;; $Id: vc-hooks.el,v 1.111 1998/08/08 07:11:40 rms Exp fx $ ;; This file is part of GNU Emacs. @@ -1174,7 +1174,7 @@ '("Retrieve Snapshot" . vc-retrieve-snapshot)) (define-key vc-menu-map [vc-create-snapshot] '("Create Snapshot" . vc-create-snapshot)) - (define-key vc-menu-map [vc-directory] '("Show Locked Files" . vc-directory)) + (define-key vc-menu-map [vc-directory] '("VC Directory Listing" . vc-directory)) (define-key vc-menu-map [separator1] '("----")) (define-key vc-menu-map [vc-annotate] '("Annotate" . vc-annotate)) (define-key vc-menu-map [vc-rename-file] '("Rename File" . vc-rename-file)) @@ -1193,18 +1193,22 @@ (define-key vc-menu-map [vc-next-action] '("Check In/Out" . vc-next-action)) (define-key vc-menu-map [vc-register] '("Register" . vc-register))) -(put 'vc-rename-file 'menu-enable 'vc-mode) -(put 'vc-annotate 'menu-enable '(eq (vc-buffer-backend) 'CVS)) -(put 'vc-version-other-window 'menu-enable 'vc-mode) -(put 'vc-diff 'menu-enable 'vc-mode) -(put 'vc-update-change-log 'menu-enable - '(eq (vc-buffer-backend) 'RCS)) -(put 'vc-print-log 'menu-enable 'vc-mode) -(put 'vc-cancel-version 'menu-enable 'vc-mode) -(put 'vc-revert-buffer 'menu-enable 'vc-mode) -(put 'vc-insert-headers 'menu-enable 'vc-mode) -(put 'vc-next-action 'menu-enable 'vc-mode) -(put 'vc-register 'menu-enable '(and buffer-file-name (not vc-mode))) +;;; These are not correct and it's not currently clear how doing it +;;; better (with more complicated expressions) might slow things down +;;; on older systems. + +;;;(put 'vc-rename-file 'menu-enable 'vc-mode) +;;;(put 'vc-annotate 'menu-enable '(eq (vc-buffer-backend) 'CVS)) +;;;(put 'vc-version-other-window 'menu-enable 'vc-mode) +;;;(put 'vc-diff 'menu-enable 'vc-mode) +;;;(put 'vc-update-change-log 'menu-enable +;;; '(eq (vc-buffer-backend) 'RCS)) +;;;(put 'vc-print-log 'menu-enable 'vc-mode) +;;;(put 'vc-cancel-version 'menu-enable 'vc-mode) +;;;(put 'vc-revert-buffer 'menu-enable 'vc-mode) +;;;(put 'vc-insert-headers 'menu-enable 'vc-mode) +;;;(put 'vc-next-action 'menu-enable 'vc-mode) +;;;(put 'vc-register 'menu-enable '(and buffer-file-name (not vc-mode))) (provide 'vc-hooks)