Add M-x dabbrev-expand.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 96ba6308e3f4c5ac3df32ac6e6db3bba91e7c37d..68f6816bebfd3ff677ac9c5edcd0e745e81b0042 100644 (file)
--- 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 e1cae7fcd3a1d46e13f706e7fa475c9d2f030537..7ad7e63dadea53d8d1f8e954d55df13d8ec6bf32 100644 (file)
--- 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 a02bff879dc4885b37201acf9cf2ee35e503f72e..92148902aa80bb959c1551ed39f4ef13f69b26db 100644 (file)
--- 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)