Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 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 | 87eb8f956a00 |
children | b7bb85cdc666 |
comparison
equal
deleted
inserted
replaced
13936:24ff5e49ac27 | 13937:35c457f8bedf |
---|---|
1 ;;; autoload.el --- maintain autoloads in loaddefs.el. | 1 ;;; autoload.el --- maintain autoloads in loaddefs.el. |
2 | 2 |
3 ;;; Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. | 3 ;;; Copyright (C) 1991, 92, 93, 94, 95, 96 Free Software Foundation, Inc. |
4 ;;; | 4 ;;; |
5 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> | 5 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> |
6 ;; Keywords: maint | 6 ;; Keywords: maint |
7 | 7 |
8 ;;; This program is free software; you can redistribute it and/or modify | 8 ;;; This program is free software; you can redistribute it and/or modify |
219 outbuf)) | 219 outbuf)) |
220 (terpri outbuf))) | 220 (terpri outbuf))) |
221 (let ((print-escape-newlines t)) | 221 (let ((print-escape-newlines t)) |
222 (print autoload outbuf)))) | 222 (print autoload outbuf)))) |
223 ;; Copy the rest of the line to the output. | 223 ;; Copy the rest of the line to the output. |
224 (let ((begin (point))) | 224 (princ (buffer-substring |
225 (forward-line 1) | 225 (progn |
226 (princ (buffer-substring begin (point)) outbuf)))) | 226 ;; Back up over whitespace, to preserve it. |
227 (skip-chars-backward " \f\t") | |
228 (if (= (char-after (1+ (point))) ? ) | |
229 ;; Eat one space. | |
230 (forward-char 1)) | |
231 (point)) | |
232 (progn (forward-line 1) (point))) | |
233 outbuf))) | |
227 ((looking-at ";") | 234 ((looking-at ";") |
228 ;; Don't read the comment. | 235 ;; Don't read the comment. |
229 (forward-line 1)) | 236 (forward-line 1)) |
230 (t | 237 (t |
231 (forward-sexp 1) | 238 (forward-sexp 1) |