From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 24 Apr 1991 00:40:22 +0000 (+0000)
Subject: Change message generated by M-x set-fill-column to match Emacs.
X-Git-Tag: 20090517-FFI~10724
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2ddc26304100401c22884f26af15d9e732e7fd20;p=mit-scheme.git

Change message generated by M-x set-fill-column to match Emacs.
---

diff --git a/v7/src/edwin/fill.scm b/v7/src/edwin/fill.scm
index afaa9c739..60e68e043 100644
--- a/v7/src/edwin/fill.scm
+++ b/v7/src/edwin/fill.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fill.scm,v 1.48 1991/04/23 06:46:56 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fill.scm,v 1.49 1991/04/24 00:40:22 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -53,17 +53,17 @@ Automatically becomes local when set in any fashion."
   exact-nonnegative-integer?)
 
 (define-command set-fill-column
-  "Set fill column to argument or current column.
-If an argument is given, that is used.
-Otherwise the current position of the cursor is used."
+  "Set fill-column to current column, or to argument if given.
+fill-column's value is separate for each buffer."
   "P"
   (lambda (argument)
     (let ((column (or argument (current-column))))
       (set-variable! fill-column column)
-      (temporary-message "Fill column set to " (number->string column)))))
+      (message "fill-column set to " (number->string column)))))
 
 (define-variable-per-buffer fill-prefix
-  "String for auto-fill to insert at start of new line, or #F."
+  "String for filling to insert at front of new line, or #f for none.
+Setting this variable automatically makes it local to the current buffer."
   false
   string-or-false?)