From 6e21af562673588801f18e73425e811d3aa2a9f0 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Thu, 4 Jan 1996 20:08:50 +0000 Subject: [PATCH] (generate-file-autoloads): Preserve whitespace after cookie in literal text copied to output; eat only a single space. --- lisp/emacs-lisp/autoload.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) 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 ;; 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)) -- 2.39.2