Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 83652:5b644ae74c91
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 846-851)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 88-92)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 242-244)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-31
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 13 Aug 2007 13:51:08 +0000 |
parents | 386452a14fe0 |
children | 107ccd98fa12 424b655804ca |
comparison
equal
deleted
inserted
replaced
83651:47230f3f349b | 83652:5b644ae74c91 |
---|---|
207 (let* ((p (nthcdr (1- doc-string-elt) form)) | 207 (let* ((p (nthcdr (1- doc-string-elt) form)) |
208 (elt (cdr p))) | 208 (elt (cdr p))) |
209 (setcdr p nil) | 209 (setcdr p nil) |
210 (princ "\n(" outbuf) | 210 (princ "\n(" outbuf) |
211 (let ((print-escape-newlines t) | 211 (let ((print-escape-newlines t) |
212 (print-quoted t) | |
212 (print-escape-nonascii t)) | 213 (print-escape-nonascii t)) |
213 (dolist (elt form) | 214 (dolist (elt form) |
214 (prin1 elt outbuf) | 215 (prin1 elt outbuf) |
215 (princ " " outbuf))) | 216 (princ " " outbuf))) |
216 (princ "\"\\\n" outbuf) | 217 (princ "\"\\\n" outbuf) |
230 (princ " " outbuf) | 231 (princ " " outbuf) |
231 (princ (substring (prin1-to-string (cdr elt)) 1) | 232 (princ (substring (prin1-to-string (cdr elt)) 1) |
232 outbuf)) | 233 outbuf)) |
233 (terpri outbuf))) | 234 (terpri outbuf))) |
234 (let ((print-escape-newlines t) | 235 (let ((print-escape-newlines t) |
236 (print-quoted t) | |
235 (print-escape-nonascii t)) | 237 (print-escape-nonascii t)) |
236 (print form outbuf))))))) | 238 (print form outbuf))))))) |
237 | 239 |
238 (defun autoload-ensure-default-file (file) | 240 (defun autoload-ensure-default-file (file) |
239 "Make sure that the autoload file FILE exists and if not create it." | 241 "Make sure that the autoload file FILE exists and if not create it." |