Add mode-specific abbrev tables and \\{} doc strings to many major modes.

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index fe1b00cdf24cf563b5cb218aadaae22362873f7e..1421506977f9e0814427bc6026b9449e24f3c5ce 100644 (file)
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: loadef.scm,v 1.40 1999/05/04 17:47:49 cph Exp $
+;;; $Id: loadef.scm,v 1.41 2000/02/29 02:47:15 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -54,6 +54,11 @@
 (define-autoload-command 'midas-mode 'MIDAS-MODE
   "Enter Midas mode.")
 
+(define-variable midas-mode-abbrev-table
+  "Mode-specific abbrev table for assembly code."
+  (make-abbrev-table)
+  abbrev-table?)
+
 (define-variable midas-mode-hook
   "An event distributor that is invoked when entering Midas mode."
   (make-event-distributor))
@@ -67,6 +72,11 @@
 (define-autoload-command 'pascal-mode 'PASCAL-MODE
   "Enter Pascal mode.")
 
+(define-variable pascal-mode-abbrev-table
+  "Mode-specific abbrev table for Pascal code."
+  (make-abbrev-table)
+  abbrev-table?)
+
 (define-variable pascal-mode-hook
   "An event distributor that is invoked when entering Pascal mode."
   (make-event-distributor))
@@ -101,6 +111,11 @@ commands to save keystrokes.")
 (define-autoload-command 'texinfo-mode 'TEXINFO-MODE
   "Make the current mode be Texinfo mode.")
 
+(define-variable texinfo-mode-abbrev-table
+  "Mode-specific abbrev table for Texinfo."
+  (make-abbrev-table)
+  abbrev-table?)
+
 (define-variable texinfo-mode-hook
   "An event distributor that is invoked when entering Texinfo mode."
   (make-event-distributor))
@@ -226,6 +241,11 @@ is open the that server, its buffer is selected.")
 (define-autoload-command 'verilog-mode 'VERILOG-MODE
   "Enter Verilog mode.")
 
+(define-variable verilog-mode-abbrev-table
+  "Mode-specific abbrev table for Verilog code."
+  (make-abbrev-table)
+  abbrev-table?)
+
 (define-variable verilog-mode-hook
   "An event distributor that is invoked when entering Verilog mode."
   (make-event-distributor))
@@ -249,6 +269,11 @@ is open the that server, its buffer is selected.")
 (define-autoload-command 'vhdl-mode 'VHDL-MODE
   "Enter VHDL mode.")
 
+(define-variable vhdl-mode-abbrev-table
+  "Mode-specific abbrev table for VHDL code."
+  (make-abbrev-table)
+  abbrev-table?)
+
 (define-variable vhdl-mode-hook
   "An event distributor that is invoked when entering VHDL mode."
   (make-event-distributor))

diff --git a/v7/src/edwin/midas.scm b/v7/src/edwin/midas.scm
index f6aad77410c14adbe4a24ebf9598078e7050b6d4..8da2fde09eebe18041b05ca77630941eb533fc09 100644 (file)
--- a/v7/src/edwin/midas.scm
+++ b/v7/src/edwin/midas.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: midas.scm,v 1.19 2000/02/29 02:41:18 cph Exp $
+;;; $Id: midas.scm,v 1.20 2000/02/29 02:47:44 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -45,15 +45,6 @@
                         buffer)
     (event-distributor/invoke! (ref-variable midas-mode-hook buffer) buffer)))
 
-(define-variable midas-mode-abbrev-table
-  "Mode-specific abbrev table for assembly code."
-  (make-abbrev-table)
-  abbrev-table?)
-
-(define-variable midas-mode-hook
-  "An event distributor that is invoked when entering Midas mode."
-  (make-event-distributor))
-
 (define midas-mode:syntax-table (make-syntax-table))
 (modify-syntax-entry! midas-mode:syntax-table #\; "<   ")
 (modify-syntax-entry! midas-mode:syntax-table #\newline ">   ")

diff --git a/v7/src/edwin/pasmod.scm b/v7/src/edwin/pasmod.scm
index 7d5091f6393750be409cb6d1a217fd2cf4ba5f52..2625ee152fc77550f94b576464b3c569a36720b3 100644 (file)
--- a/v7/src/edwin/pasmod.scm
+++ b/v7/src/edwin/pasmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: pasmod.scm,v 1.48 2000/02/29 02:41:21 cph Exp $
+;;; $Id: pasmod.scm,v 1.49 2000/02/29 02:47:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -51,15 +51,6 @@
                         buffer)
     (event-distributor/invoke! (ref-variable pascal-mode-hook buffer) buffer)))
 
-(define-variable pascal-mode-abbrev-table
-  "Mode-specific abbrev table for Pascal code."
-  (make-abbrev-table)
-  abbrev-table?)
-
-(define-variable pascal-mode-hook
-  "An event distributor that is invoked when entering Pascal mode."
-  (make-event-distributor))
-
 (define pascal-mode:syntax-table (make-syntax-table))
 (modify-syntax-entry! pascal-mode:syntax-table #\( "()1 ")
 (modify-syntax-entry! pascal-mode:syntax-table #\) ")( 4")

diff --git a/v7/src/edwin/tximod.scm b/v7/src/edwin/tximod.scm
index b206a9220e2f64d691cb09963a6578671721375c..c3672257c9c903a864e3c5e01e7d39f99c960468 100644 (file)
--- a/v7/src/edwin/tximod.scm
+++ b/v7/src/edwin/tximod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: tximod.scm,v 1.22 2000/02/29 02:41:26 cph Exp $
+;;; $Id: tximod.scm,v 1.23 2000/02/29 02:47:53 cph Exp $
 ;;;
 ;;; Copyright (c) 1987-2000 Massachusetts Institute of Technology
 ;;;
@@ -68,15 +68,6 @@ commands to save keystrokes.
     (event-distributor/invoke! (ref-variable texinfo-mode-hook buffer)
                               buffer)))
 
-(define-variable texinfo-mode-abbrev-table
-  "Mode-specific abbrev table for Texinfo."
-  (make-abbrev-table)
-  abbrev-table?)
-
-(define-variable texinfo-mode-hook
-  "An event distributor that is invoked when entering Texinfo mode."
-  (make-event-distributor))
-
 (define texinfo-mode:syntax-table (make-syntax-table))
 (modify-syntax-entry! texinfo-mode:syntax-table #\" " ")
 (modify-syntax-entry! texinfo-mode:syntax-table #\\ " ")

diff --git a/v7/src/edwin/verilog.scm b/v7/src/edwin/verilog.scm
index d2f963bca2dd7b146cf513f891dc549c68bb53df..b53a814ff76df7fcc06681b7bc9e6f3080c7d6e1 100644 (file)
--- a/v7/src/edwin/verilog.scm
+++ b/v7/src/edwin/verilog.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: verilog.scm,v 1.6 2000/02/29 02:41:29 cph Exp $
+;;; $Id: verilog.scm,v 1.7 2000/02/29 02:47:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1996-2000 Massachusetts Institute of Technology
 ;;;
@@ -57,15 +57,6 @@
     (event-distributor/invoke! (ref-variable verilog-mode-hook buffer)
                               buffer)))
 
-(define-variable verilog-mode-abbrev-table
-  "Mode-specific abbrev table for Verilog code."
-  (make-abbrev-table)
-  abbrev-table?)
-
-(define-variable verilog-mode-hook
-  "An event distributor that is invoked when entering Verilog mode."
-  (make-event-distributor))
-
 (define verilog-mode:syntax-table
   (let ((syntax-table (make-syntax-table)))
     (for-each (lambda (char) (modify-syntax-entry! syntax-table char "."))

diff --git a/v7/src/edwin/vhdl.scm b/v7/src/edwin/vhdl.scm
index 4948e690ee990e5d44f0815e08b852cfa1967e2a..c1d9da0ce8da371ab6a90ace356c3d58ef6f6ed9 100644 (file)
--- a/v7/src/edwin/vhdl.scm
+++ b/v7/src/edwin/vhdl.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vhdl.scm,v 1.6 2000/02/29 02:41:32 cph Exp $
+;;; $Id: vhdl.scm,v 1.7 2000/02/29 02:47:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1997-2000 Massachusetts Institute of Technology
 ;;;
@@ -56,15 +56,6 @@
     (event-distributor/invoke! (ref-variable vhdl-mode-hook buffer)
                               buffer)))
 
-(define-variable vhdl-mode-abbrev-table
-  "Mode-specific abbrev table for VHDL code."
-  (make-abbrev-table)
-  abbrev-table?)
-
-(define-variable vhdl-mode-hook
-  "An event distributor that is invoked when entering VHDL mode."
-  (make-event-distributor))
-
 (define vhdl-mode:syntax-table
   (let ((syntax-table (make-syntax-table)))
     (for-each (lambda (char) (modify-syntax-entry! syntax-table char "_"))