Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 22242:00ce0bf9b723
(generate-file-autoloads): Set
print-escape-nonascii when printing autoload form.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 25 May 1998 20:32:19 +0000 |
| parents | ea83fc4c4f77 |
| children | 7db7ffb27feb |
comparison
equal
deleted
inserted
replaced
| 22241:0a93e911af6b | 22242:00ce0bf9b723 |
|---|---|
| 238 (let* ((p (nthcdr (1- doc-string-elt) | 238 (let* ((p (nthcdr (1- doc-string-elt) |
| 239 autoload)) | 239 autoload)) |
| 240 (elt (cdr p))) | 240 (elt (cdr p))) |
| 241 (setcdr p nil) | 241 (setcdr p nil) |
| 242 (princ "\n(" outbuf) | 242 (princ "\n(" outbuf) |
| 243 (let ((print-escape-newlines t)) | 243 (let ((print-escape-newlines t) |
| 244 (print-escape-nonascii t)) | |
| 244 (mapcar (function (lambda (elt) | 245 (mapcar (function (lambda (elt) |
| 245 (prin1 elt outbuf) | 246 (prin1 elt outbuf) |
| 246 (princ " " outbuf))) | 247 (princ " " outbuf))) |
| 247 autoload)) | 248 autoload)) |
| 248 (princ "\"\\\n" outbuf) | 249 (princ "\"\\\n" outbuf) |
| 267 (princ (substring | 268 (princ (substring |
| 268 (prin1-to-string (cdr elt)) | 269 (prin1-to-string (cdr elt)) |
| 269 1) | 270 1) |
| 270 outbuf)) | 271 outbuf)) |
| 271 (terpri outbuf))) | 272 (terpri outbuf))) |
| 272 (let ((print-escape-newlines t)) | 273 (let ((print-escape-newlines t) |
| 274 (print-escape-nonascii t)) | |
| 273 (print autoload outbuf))) | 275 (print autoload outbuf))) |
| 274 (if (eq (car autoload-1) 'progn) | 276 (if (eq (car autoload-1) 'progn) |
| 275 ;; Print the rest of the form | 277 ;; Print the rest of the form |
| 276 (let ((print-escape-newlines t)) | 278 (let ((print-escape-newlines t) |
| 279 (print-escape-nonascii t)) | |
| 277 (mapcar (function (lambda (elt) | 280 (mapcar (function (lambda (elt) |
| 278 (print elt outbuf))) | 281 (print elt outbuf))) |
| 279 (cddr autoload-1))))) | 282 (cddr autoload-1))))) |
| 280 ;; Copy the rest of the line to the output. | 283 ;; Copy the rest of the line to the output. |
| 281 (princ (buffer-substring | 284 (princ (buffer-substring |