aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJohan Vromans1995-06-18 14:43:23 +0000
committerJohan Vromans1995-06-18 14:43:23 +0000
commitff6481825c22cc292d3d697e6efb12cce08dee44 (patch)
treee83f5397450c0fcf1c375be231c075ab794d92b6
parent040942908649a9cc435fc1ee957274c01c1d085b (diff)
downloademacs-ff6481825c22cc292d3d697e6efb12cce08dee44.tar.gz
emacs-ff6481825c22cc292d3d697e6efb12cce08dee44.zip
Withdraw mouse-major-mode-map modifications.
They were erroneous and not needed.
-rw-r--r--lisp/forms.el6
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)