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)