Integrate auto-fill and abbrev into M-x self-insert, as in Emacs.

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index 9afcacdb2acd0a4c58d98892c8feae2c811de2d6..00dba8b30355f8141cfbda042878b0f0f7700cb3 100644 (file)
--- a/v7/src/edwin/basic.scm
+++ b/v7/src/edwin/basic.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: basic.scm,v 1.134 2000/02/25 14:23:55 cph Exp $
+;;; $Id: basic.scm,v 1.135 2000/02/25 14:28:52 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -47,6 +47,10 @@ Whichever character you type to run this command is inserted."
                 (current-minor-mode? (ref-mode-object auto-fill)))
            (auto-fill-break)))))
 
+;;; Placeholders:
+(define-minor-mode abbrev "Abbrev" "")
+(define-command expand-abbrev "" () (lambda () unspecific))
+
 (define (read-quoted-char prompt-string)
   (let ((read-ascii-char
         (lambda ()