Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 6184:f18b10850c00
(generate-file-autoloads): Move misplaced paren in match clause of cond
so copying the rest of the line to the output is the else clause of if
(eolp), not after the if.
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Thu, 03 Mar 1994 22:13:45 +0000 |
parents | 9d1ae808403b |
children | 54968237a1ac |
comparison
equal
deleted
inserted
replaced
6183:242d3fed9285 | 6184:f18b10850c00 |
---|---|
204 (prin1-to-string (cdr elt)) | 204 (prin1-to-string (cdr elt)) |
205 1) | 205 1) |
206 outbuf)) | 206 outbuf)) |
207 (terpri outbuf))) | 207 (terpri outbuf))) |
208 (let ((print-escape-newlines t)) | 208 (let ((print-escape-newlines t)) |
209 (print autoload outbuf))) | 209 (print autoload outbuf)))) |
210 ;; Copy the rest of the line to the output. | 210 ;; Copy the rest of the line to the output. |
211 (let ((begin (point))) | 211 (let ((begin (point))) |
212 (forward-line 1) | 212 (forward-line 1) |
213 (princ (buffer-substring begin (point)) outbuf))))) | 213 (princ (buffer-substring begin (point)) outbuf)))) |
214 ((looking-at ";") | 214 ((looking-at ";") |
215 ;; Don't read the comment. | 215 ;; Don't read the comment. |
216 (forward-line 1)) | 216 (forward-line 1)) |
217 (t | 217 (t |
218 (forward-sexp 1) | 218 (forward-sexp 1) |