From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Jun 1995 13:00:22 +0000 (+0000)
Subject: (forms--mode-menu-edit,forms--mode-menu-ro):
X-Git-Tag: emacs-19.34~3567
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22bf061573539dff9e17dac63afc0c3c4e620099;p=emacs.git

(forms--mode-menu-edit,forms--mode-menu-ro):
Set `mouse-major-mode-menu'.
---

diff --git a/lisp/forms.el b/lisp/forms.el
index 4983a29e649..68a7569d0fb 100644
--- a/lisp/forms.el
+++ b/lisp/forms.el
@@ -282,10 +282,10 @@
 (provide 'forms)			;;; official
 (provide 'forms-mode)			;;; for compatibility
 
-(defconst forms-version (substring "$Revision: 2.15 $" 11 -2)
+(defconst forms-version (substring "$Revision: 2.16 $" 11 -2)
   "The version number of forms-mode (as string).  The complete RCS id is:
 
-  $Id: forms.el,v 2.15 1995/05/02 01:37:11 rms Exp kwzh $")
+  $Id: forms.el,v 2.16 1995/05/30 22:54:53 kwzh Exp rms $")
 
 (defvar forms-mode-hooks nil
   "Hook functions to be run upon entering Forms mode.")
@@ -1308,6 +1308,7 @@ Commands:                        Equivalent keys in read-only mode:
     '("Next Field" . forms-next-field))
   (put 'forms-insert-record 'menu-enable '(not forms-read-only))
   (put 'forms-delete-record 'menu-enable '(not forms-read-only))
+  (setq mouse-major-mode-menu map)
 )
 (defun forms--mode-menu-edit (map)
 ;;; Menu initialisation
@@ -1354,6 +1355,7 @@ Commands:                        Equivalent keys in read-only mode:
     '("Next Field" . forms-next-field))
   (put 'forms-insert-record 'menu-enable '(not forms-read-only))
   (put 'forms-delete-record 'menu-enable '(not forms-read-only))
+  (setq mouse-major-mode-menu map)
 )
 
 (defun forms--mode-commands1 (map)