diff options
| author | Johan Vromans | 1995-06-18 14:43:23 +0000 |
|---|---|---|
| committer | Johan Vromans | 1995-06-18 14:43:23 +0000 |
| commit | ff6481825c22cc292d3d697e6efb12cce08dee44 (patch) | |
| tree | e83f5397450c0fcf1c375be231c075ab794d92b6 | |
| parent | 040942908649a9cc435fc1ee957274c01c1d085b (diff) | |
| download | emacs-ff6481825c22cc292d3d697e6efb12cce08dee44.tar.gz emacs-ff6481825c22cc292d3d697e6efb12cce08dee44.zip | |
Withdraw mouse-major-mode-map modifications.
They were erroneous and not needed.
| -rw-r--r-- | lisp/forms.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/forms.el b/lisp/forms.el index 68a7569d0fb..0bc656e9ed4 100644 --- a/lisp/forms.el +++ b/lisp/forms.el | |||
| @@ -282,10 +282,10 @@ | |||
| 282 | (provide 'forms) ;;; official | 282 | (provide 'forms) ;;; official |
| 283 | (provide 'forms-mode) ;;; for compatibility | 283 | (provide 'forms-mode) ;;; for compatibility |
| 284 | 284 | ||
| 285 | (defconst forms-version (substring "$Revision: 2.16 $" 11 -2) | 285 | (defconst forms-version (substring "$Revision: 2.17 $" 11 -2) |
| 286 | "The version number of forms-mode (as string). The complete RCS id is: | 286 | "The version number of forms-mode (as string). The complete RCS id is: |
| 287 | 287 | ||
| 288 | $Id: forms.el,v 2.16 1995/05/30 22:54:53 kwzh Exp rms $") | 288 | $Id: forms.el,v 2.17 1995/06/17 13:00:22 rms Exp jvromans $") |
| 289 | 289 | ||
| 290 | (defvar forms-mode-hooks nil | 290 | (defvar forms-mode-hooks nil |
| 291 | "Hook functions to be run upon entering Forms mode.") | 291 | "Hook functions to be run upon entering Forms mode.") |
| @@ -1308,7 +1308,6 @@ Commands: Equivalent keys in read-only mode: | |||
| 1308 | '("Next Field" . forms-next-field)) | 1308 | '("Next Field" . forms-next-field)) |
| 1309 | (put 'forms-insert-record 'menu-enable '(not forms-read-only)) | 1309 | (put 'forms-insert-record 'menu-enable '(not forms-read-only)) |
| 1310 | (put 'forms-delete-record 'menu-enable '(not forms-read-only)) | 1310 | (put 'forms-delete-record 'menu-enable '(not forms-read-only)) |
| 1311 | (setq mouse-major-mode-menu map) | ||
| 1312 | ) | 1311 | ) |
| 1313 | (defun forms--mode-menu-edit (map) | 1312 | (defun forms--mode-menu-edit (map) |
| 1314 | ;;; Menu initialisation | 1313 | ;;; Menu initialisation |
| @@ -1355,7 +1354,6 @@ Commands: Equivalent keys in read-only mode: | |||
| 1355 | '("Next Field" . forms-next-field)) | 1354 | '("Next Field" . forms-next-field)) |
| 1356 | (put 'forms-insert-record 'menu-enable '(not forms-read-only)) | 1355 | (put 'forms-insert-record 'menu-enable '(not forms-read-only)) |
| 1357 | (put 'forms-delete-record 'menu-enable '(not forms-read-only)) | 1356 | (put 'forms-delete-record 'menu-enable '(not forms-read-only)) |
| 1358 | (setq mouse-major-mode-menu map) | ||
| 1359 | ) | 1357 | ) |
| 1360 | 1358 | ||
| 1361 | (defun forms--mode-commands1 (map) | 1359 | (defun forms--mode-commands1 (map) |