Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 82358:386452a14fe0
(autoload-print-form): Use print-quoted.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 13 Aug 2007 05:35:43 +0000 |
| parents | b98604865ea0 |
| children | 107ccd98fa12 424b655804ca |
comparison
equal
deleted
inserted
replaced
| 82357:70180028ad92 | 82358:386452a14fe0 |
|---|---|
| 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." |