Change `group-un-clip!' to `group-widen!'.
authorChris Hanson <org/chris-hanson/cph>
Wed, 24 Apr 1991 00:42:08 +0000 (00:42 +0000)
committerChris Hanson <org/chris-hanson/cph>
Wed, 24 Apr 1991 00:42:08 +0000 (00:42 +0000)
v7/src/edwin/buffer.scm

index 5818d7a4d9c7b56df004ed6a10fbc4ec4f8763bb..b2396607eb1413a70bcbaacb66435eca4ad51e95 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.143 1991/04/23 06:22:52 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.144 1991/04/24 00:42:08 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -198,7 +198,7 @@ The buffer is guaranteed to be deselected at that time."
   (group-unclipped-region (buffer-group buffer)))
 
 (define-integrable (buffer-widen! buffer)
-  (group-un-clip! (buffer-group buffer)))
+  (group-widen! (buffer-group buffer)))
 
 (define-integrable (buffer-length buffer)
   (group-length (buffer-group buffer)))