# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 820786130 0
# Node ID 35c457f8bedf2b164cd9958a45144e7acb07ffeb
# Parent  24ff5e49ac27a9c1be7d66694dff41b125a8fbe3
(generate-file-autoloads): Preserve whitespace after cookie in literal text
copied to output; eat only a single space.

diff -r 24ff5e49ac27 -r 35c457f8bedf lisp/emacs-lisp/autoload.el
--- a/lisp/emacs-lisp/autoload.el	Thu Jan 04 19:00:38 1996 +0000
+++ b/lisp/emacs-lisp/autoload.el	Thu Jan 04 20:08:50 1996 +0000
@@ -1,6 +1,6 @@
 ;;; autoload.el --- maintain autoloads in loaddefs.el.
 
-;;; Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1991, 92, 93, 94, 95, 96 Free Software Foundation, Inc.
 ;;;
 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
 ;; Keywords: maint
@@ -221,9 +221,16 @@
 			    (let ((print-escape-newlines t))
 			      (print autoload outbuf))))
 			  ;; Copy the rest of the line to the output.
-			  (let ((begin (point)))
-			    (forward-line 1)
-			    (princ (buffer-substring begin (point)) outbuf))))
+		      (princ (buffer-substring
+			      (progn
+				;; Back up over whitespace, to preserve it.
+				(skip-chars-backward " \f\t")
+				(if (= (char-after (1+ (point))) ? )
+				    ;; Eat one space.
+				    (forward-char 1))
+				(point))
+			      (progn (forward-line 1) (point)))
+			     outbuf)))
 		   ((looking-at ";")
 		    ;; Don't read the comment.
 		    (forward-line 1))