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]