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." |