From c4d86c5a2428b9b6f540b63ae072e45b090660ed Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 25 Feb 2000 14:28:52 +0000
Subject: [PATCH] Integrate auto-fill and abbrev into M-x self-insert, as in
 Emacs.

---
 v7/src/edwin/basic.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index 9afcacdb2..00dba8b30 100644
--- 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 ()
-- 
2.25.1