Mercurial > emacs
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 |