Mercurial > emacs
comparison lisp/menu-bar.el @ 28258:03e06f15f3d4
Add an entry for PCL-CVS' global menu.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 22 Mar 2000 03:05:09 +0000 |
parents | e209690ccf0a |
children | 6f1d9b65d1f8 |
comparison
equal
deleted
inserted
replaced
28257:1f09d55c62d2 | 28258:03e06f15f3d4 |
---|---|
671 | 671 |
672 (define-key menu-bar-tools-menu [separator-vc] | 672 (define-key menu-bar-tools-menu [separator-vc] |
673 '("--")) | 673 '("--")) |
674 | 674 |
675 (defvar vc-menu-map (make-sparse-keymap "Version Control")) | 675 (defvar vc-menu-map (make-sparse-keymap "Version Control")) |
676 (define-key menu-bar-tools-menu [pcl-cvs] | |
677 `(menu-item "PCL-CVS" ,cvs-global-menu | |
678 :help "Module-level interface to CVS")) | |
676 (define-key menu-bar-tools-menu [vc] | 679 (define-key menu-bar-tools-menu [vc] |
677 (list 'menu-item "Version Control" vc-menu-map | 680 (list 'menu-item "Version Control" vc-menu-map |
678 :help "Interface to RCS, CVS, SCCS")) | 681 :help "Interface to RCS, CVS, SCCS")) |
679 | 682 |
680 (define-key menu-bar-tools-menu [separator-compare] | 683 (define-key menu-bar-tools-menu [separator-compare] |