comparison lisp/pcvs-defs.el @ 51589:b521a93dd16b

(cvs-global-menu): Define as a function as well.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 16 Jun 2003 20:21:42 +0000
parents fa1c848a9779
children 695cf19ef79e
comparison
equal deleted inserted replaced
51588:fc00b549e161 51589:b521a93dd16b
1 ;;; pcvs-defs.el --- variable definitions for PCL-CVS 1 ;;; pcvs-defs.el --- variable definitions for PCL-CVS
2 2
3 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2003
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> 6 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
6 ;; Keywords: pcl-cvs 7 ;; Keywords: pcl-cvs
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
477 '(menu-item "Update Directory" cvs-update 478 '(menu-item "Update Directory" cvs-update
478 :help "Fetch updates from the repository")) 479 :help "Fetch updates from the repository"))
479 (define-key m [examine] 480 (define-key m [examine]
480 '(menu-item "Examine Directory" cvs-examine 481 '(menu-item "Examine Directory" cvs-examine
481 :help "Examine the current state of a workarea")) 482 :help "Examine the current state of a workarea"))
482 m)) 483 (fset 'cvs-global-menu m)))
483 484
484 485
485 ;; cvs-1.10 and above can take file arguments in other directories 486 ;; cvs-1.10 and above can take file arguments in other directories
486 ;; while others need to be executed once per directory 487 ;; while others need to be executed once per directory
487 (defvar cvs-execute-single-dir 488 (defvar cvs-execute-single-dir