diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-17 13:00:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-17 13:00:22 +0000 |
| commit | 22bf061573539dff9e17dac63afc0c3c4e620099 (patch) | |
| tree | 68d30f38fe79ff6d34676ffbd6f24bbb2659f89d /lisp/forms.el | |
| parent | 2ef2d89752a6aa9e5be8079ed5e40a2d46d5c9d9 (diff) | |
| download | emacs-22bf061573539dff9e17dac63afc0c3c4e620099.tar.gz | |
(forms--mode-menu-edit,forms--mode-menu-ro):
Set `mouse-major-mode-menu'.
Diffstat (limited to 'lisp/forms.el')
| -rw-r--r-- | lisp/forms.el | 6 |
1 files changed, 4 insertions, 2 deletions
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) |