Eliminate random control characters in source text.

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index 7372f19aa68a971dc827b6697d47f39b4ad4ae13..af03c1f15676576a2620c596621f6c12164d37f8 100644 (file)
--- 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))))
 \f
 (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 6919e8e7a76cb1a835b5e1d860f8bdbf33e80127..f6285cbb93e03e79d4cb63d8b19fc24dc23dc54d 100644 (file)
--- 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 "^\b\\|^@[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 "^\b\\|^@[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 7cb3de7e8a4324c6860dc21861703618a195341a..42a8fa12eb0e8ecc7e2e019a1ae9ac0c90492edd 100644 (file)
--- 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 \r END */
+}                              /* RETURN ^M END */
 \f
 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 \r 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 \r END */
+}                              /* RETURN ^M END */
 
 
 \f