From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Nov 1992 22:46:22 +0000 (+0000)
Subject: Add M-x dabbrev-expand.
X-Git-Tag: 20090517-FFI~8756
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8825d041ae851f642d74ff0a4a67195c6807e7d7;p=mit-scheme.git

Add M-x dabbrev-expand.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 96ba6308e..68f6816be 100644
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.42 1992/11/01 07:13:12 arthur Exp $
+$Id: decls.scm,v 1.43 1992/11/17 22:42:45 cph Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -130,6 +130,7 @@ MIT in each case. |#
 		"comtab"
 		"comred"
 		"curren"
+		"dabbrev"
 		"debug"
 		"debuge"
 		"dired"
diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index e1cae7fcd..7ad7e63da 100644
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.36 1992/10/20 21:47:52 jinx Exp $
+$Id: edwin.ldr,v 1.37 1992/11/17 22:44:29 cph Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -171,6 +171,7 @@ MIT in each case. |#
 	(load "comhst" environment)
 	(load "comint" environment)
 	(load "compile" environment)
+	(load "dabbrev" environment)
 	(load "debug" (->environment '(EDWIN DEBUGGER)))
 
 	(let ((env (->environment '(EDWIN DIRED))))
@@ -192,6 +193,7 @@ MIT in each case. |#
 	(load "malias" (->environment '(EDWIN MAIL-ALIAS)))
 	(load "motcom" environment)
 	(load "occur" (->environment '(EDWIN OCCURRENCE)))
+	(load "outline" environment)
 	(load "rcs" (->environment '(EDWIN RCS)))
 	(load "reccom" (->environment '(EDWIN RECTANGLE)))
 	(load "regcom" (->environment '(EDWIN REGISTER-COMMAND)))
@@ -211,7 +213,8 @@ MIT in each case. |#
 	(load-set '("modefs" "xmodef") environment)
 	(load "rename" environment)
 	(load "loadef" environment)
+	#|
 	(load-set-and-initialize! '("bochser" "bochsmod")
 				  (->environment '(EDWIN BOCHSER)))
-	(load "notify" environment)
-	(load "outline" environment)))))
\ No newline at end of file
+	|#
+	(load "notify" environment)))))
\ No newline at end of file
diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index a02bff879..92148902a 100644
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: modefs.scm,v 1.142 1992/11/13 22:43:45 cph Exp $
+;;;	$Id: modefs.scm,v 1.143 1992/11/17 22:46:22 cph Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -141,6 +141,7 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\m-, 'tags-loop-continue)
 (define-key 'fundamental #\m-- 'auto-argument)
 (define-key 'fundamental #\m-. 'find-tag)
+(define-key 'fundamental #\m-/ 'dabbrev-expand)
 (define-key 'fundamental #\m-0 'auto-argument)
 (define-key 'fundamental #\m-1 'auto-argument)
 (define-key 'fundamental #\m-2 'auto-argument)