From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 16 Jun 2003 20:21:42 +0000 (+0000)
Subject: (cvs-global-menu): Define as a function as well.
X-Git-Tag: ttn-vms-21-2-B4~9633
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=648a3c0c3cf3594e396f36f0680bcf431ca4df48;p=emacs.git

(cvs-global-menu): Define as a function as well.
---

diff --git a/lisp/pcvs-defs.el b/lisp/pcvs-defs.el
index d8c8b81f8fd..2cbb8a72076 100644
--- a/lisp/pcvs-defs.el
+++ b/lisp/pcvs-defs.el
@@ -1,6 +1,7 @@
 ;;; pcvs-defs.el --- variable definitions for PCL-CVS
 
-;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000  Free Software Foundation, Inc.
+;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2003
+;;           Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs
@@ -479,7 +480,7 @@ It is expected to call the function.")
     (define-key m [examine]
       '(menu-item "Examine Directory" cvs-examine
 		  :help "Examine the current state of a workarea"))
-    m))
+    (fset 'cvs-global-menu m)))
 
 
 ;; cvs-1.10 and above can take file arguments in other directories