Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 47867:f91cebb0f333
(autoload-print-form): Cleanup.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 14 Oct 2002 01:32:25 +0000 |
| parents | a0d27828cf39 |
| children | c102d9848214 |
comparison
equal
deleted
inserted
replaced
| 47866:5177877a5328 | 47867:f91cebb0f333 |
|---|---|
| 182 (elt (cdr p))) | 182 (elt (cdr p))) |
| 183 (setcdr p nil) | 183 (setcdr p nil) |
| 184 (princ "\n(" outbuf) | 184 (princ "\n(" outbuf) |
| 185 (let ((print-escape-newlines t) | 185 (let ((print-escape-newlines t) |
| 186 (print-escape-nonascii t)) | 186 (print-escape-nonascii t)) |
| 187 (mapcar (lambda (elt) | 187 (dolist (elt form) |
| 188 (prin1 elt outbuf) | 188 (prin1 elt outbuf) |
| 189 (princ " " outbuf)) | 189 (princ " " outbuf))) |
| 190 form)) | |
| 191 (princ "\"\\\n" outbuf) | 190 (princ "\"\\\n" outbuf) |
| 192 (let ((begin (with-current-buffer outbuf (point)))) | 191 (let ((begin (with-current-buffer outbuf (point)))) |
| 193 (princ (substring (prin1-to-string (car elt)) 1) | 192 (princ (substring (prin1-to-string (car elt)) 1) |
| 194 outbuf) | 193 outbuf) |
| 195 ;; Insert a backslash before each ( that | 194 ;; Insert a backslash before each ( that |