From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 29 Feb 2000 02:47:56 +0000 (+0000)
Subject: Add mode-specific abbrev tables and \\{} doc strings to many major modes.
X-Git-Tag: 20090517-FFI~4220
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b135cc5c47783c08594799389cb387d335ccfe42;p=mit-scheme.git

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 fe1b00cdf..142150697 100644
--- 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 f6aad7741..8da2fde09 100644
--- 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 7d5091f63..2625ee152 100644
--- 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 b206a9220..c3672257c 100644
--- 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 d2f963bca..b53a814ff 100644
--- 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 4948e690e..c1d9da0ce 100644
--- 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 "_"))