From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 9 Oct 1994 22:03:20 +0000 (+0000)
Subject: Eliminate random control characters in source text.
X-Git-Tag: 20090517-FFI~7079
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bd275f5a89b24afe9cf55155e38814a48cee5d4d;p=mit-scheme.git

Eliminate random control characters in source text.
---

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index 7372f19aa..af03c1f15 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: info.scm,v 1.118 1994/10/09 21:57:36 cph Exp $
+;;;	$Id: info.scm,v 1.119 1994/10/09 21:59:13 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -312,7 +312,7 @@ The editing commands are the same as in Text mode,
 except for \\[info-cease-edit] to return to Info."
   (lambda (buffer)
     (define-variable-local-value! buffer (ref-variable-object page-delimiter)
-      (string-append "^\01f\f\\|" (ref-variable page-delimiter buffer)))))
+      (string-append "^\037\f\\|" (ref-variable page-delimiter buffer)))))
 
 (define-key 'info-edit '(#\c-c #\c-c) 'info-cease-edit)
 
@@ -820,7 +820,7 @@ The name may be an abbreviation of the reference name."
 		       (ref-variable info-history))))
 
 (define (node-start start end)
-  (line-start (or (search-backward "\n\01f" start end false)
+  (line-start (or (search-backward "\n\037" start end false)
 		  (editor-error))
 	      2
 	      'ERROR))
@@ -831,7 +831,7 @@ The name may be an abbreviation of the reference name."
 (define (node-end node)
   (let ((end (group-end node)))
     (let loop ((start node))
-      (let ((mark (re-search-forward "[\f\01f]" start end false)))
+      (let ((mark (re-search-forward "[\f\037]" start end false)))
 	(if (not mark)
 	    end
 	    (let ((m (re-match-start 0)))
@@ -840,7 +840,7 @@ The name may be an abbreviation of the reference name."
 		  (loop mark))))))))
 
 (define (next-node start end)
-  (let ((mark (search-forward "\n\01f" start end false)))
+  (let ((mark (search-forward "\n\037" start end false)))
       (and mark
 	   (line-start mark 1))))
 
@@ -940,7 +940,7 @@ The name may be an abbreviation of the reference name."
   "\nTag table:\n")
 
 (define tag-table-end-string
-  "\01f\nEnd tag table\n")
+  "\037\nEnd tag table\n")
 
 (define (find-tag-table buffer)
   (let* ((end (buffer-end buffer))
@@ -1011,7 +1011,7 @@ The name may be an abbreviation of the reference name."
 	  (+ (- index (subfile-index (car subfiles)))
 	     (mark-index
 	      (let ((buffer (current-buffer)))
-		(or (search-forward "\n\01f"
+		(or (search-forward "\n\037"
 				    (buffer-start buffer)
 				    (buffer-end buffer)
 				    false)
@@ -1036,12 +1036,12 @@ The name may be an abbreviation of the reference name."
 	 (let loop
 	     ((start
 	       (let ((start (ref-variable info-tag-table-start)))
-		 (or (search-forward "\n\01f\nIndirect:\n"
+		 (or (search-forward "\n\037\nIndirect:\n"
 				     (group-start start)
 				     start
 				     true)
 		     (editor-error)))))
-	   (if (match-forward "\01f" start)
+	   (if (match-forward "\037" start)
 	       '()
 	       (begin
 		 (if (not (search-forward ": " start (group-end start) false))
diff --git a/v7/src/edwin/tximod.scm b/v7/src/edwin/tximod.scm
index 6919e8e7a..f6285cbb9 100644
--- a/v7/src/edwin/tximod.scm
+++ b/v7/src/edwin/tximod.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: tximod.scm,v 1.18 1992/11/17 17:52:14 cph Exp $
+;;;	$Id: tximod.scm,v 1.19 1994/10/09 21:59:24 cph Exp $
 ;;;
-;;;	Copyright (c) 1987-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1987-94 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -79,11 +79,11 @@ commands to save keystrokes."
     (define-variable-local-value! buffer (ref-variable-object page-delimiter)
       "^@\\(chapter\\|unnumbered \\|appendix \\|majorheading\\|chapheading\\)")
     (define-variable-local-value! buffer (ref-variable-object paragraph-start)
-      (string-append "^\\|^@[a-zA-Z]*[ \n]\\|"
+      (string-append "^\010\\|^@[a-zA-Z]*[ \n]\\|"
 		     (ref-variable paragraph-start buffer)))
     (define-variable-local-value! buffer
 	(ref-variable-object paragraph-separate)
-      (string-append "^\\|^@[a-zA-Z]*[ \n]\\|"
+      (string-append "^\010\\|^@[a-zA-Z]*[ \n]\\|"
 		     (ref-variable paragraph-separate buffer)))
     (event-distributor/invoke! (ref-variable texinfo-mode-hook buffer)
 			       buffer)))
diff --git a/v7/src/microcode/fft.c b/v7/src/microcode/fft.c
index 7cb3de7e8..42a8fa12e 100644
--- a/v7/src/microcode/fft.c
+++ b/v7/src/microcode/fft.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: fft.c,v 9.31 1993/02/11 02:20:22 adams Exp $
+$Id: fft.c,v 9.32 1994/10/09 22:03:20 cph Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -369,7 +369,7 @@ pas_cft_forward_loop (x,y,n,m, wcos,w3cos,w3sin)    /* n >= 4 */
   }				/* 104  CONTINUE */
   /* c-------------------------------------*/
   /* c */
-}				/* RETURN 
 END */
+}				/* RETURN ^M END */
 
 DEFINE_PRIMITIVE ("PAS-RFT-CSFT!", Prim_pas_rft_csft, 5, 5, 0)
 { long i, length, power, flag, ft_type;
@@ -671,7 +671,7 @@ void pas_rft_forward_loop(x,n,m, wcos,w3cos,w3sin)
       if (is < n) goto label36; /* IF (IS.LT.N) GOTO 36 */
     }				/* 32      CONTINUE */
   }				/* 10   CONTINUE */
-}				/* RETURN 
 END */
+}				/* RETURN ^M END */
 
 
 /*
@@ -856,7 +856,7 @@ void pas_csft_backward_loop(x,n,m, wcos,w3cos,w3sin)
     label103: j = j + k;
   }				/* 104  CONTINUE */
   /* c */
-}				/* RETURN 
 END */
+}				/* RETURN ^M END */