Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(forms--mode-menu-edit,forms--mode-menu-ro):

Browse source 
Set `mouse-major-mode-menu'.
This commit is contained in:
Richard M. Stallman 1995-06-17 13:00:22 +00:00
parent 2ef2d89752
commit 22bf061573
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/forms.el
View file

@ -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)