Mercurial > emacs
changeset 13937:35c457f8bedf
(generate-file-autoloads): Preserve whitespace after cookie in literal text
copied to output; eat only a single space.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Thu, 04 Jan 1996 20:08:50 +0000 |
| parents | 24ff5e49ac27 |
| children | 3e0b6a3707bd |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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))