From: Roland McGrath <roland@gnu.org>
Date: Thu, 4 Jan 1996 20:08:50 +0000 (+0000)
Subject: (generate-file-autoloads): Preserve whitespace after cookie in literal text
X-Git-Tag: emacs-19.34~1923
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e21af562673588801f18e73425e811d3aa2a9f0;p=emacs.git

(generate-file-autoloads): Preserve whitespace after cookie in literal text
copied to output; eat only a single space.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index cccfbedcfe1..0a38a1539fa 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -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 @@ are used."
 			    (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))