Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 3740:9971fb0105d5
(byte-compile-file-form-defmumble): Use defalias
for named function, even if no doc string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 15 Jun 1993 19:29:59 +0000 |
| parents | 37a8a7489fc5 |
| children | 217addf0f940 |
comparison
equal
deleted
inserted
replaced
| 3739:20145b01f038 | 3740:9971fb0105d5 |
|---|---|
| 1577 (cons (car form) | 1577 (cons (car form) |
| 1578 (cons name (cdr (nth 1 code)))) | 1578 (cons name (cdr (nth 1 code)))) |
| 1579 (if (not (stringp (nth 3 form))) | 1579 (if (not (stringp (nth 3 form))) |
| 1580 ;; No doc string to make-docfile; insert form in normal code. | 1580 ;; No doc string to make-docfile; insert form in normal code. |
| 1581 (byte-compile-keep-pending | 1581 (byte-compile-keep-pending |
| 1582 (list 'fset (list 'quote name) | 1582 (list 'defalias (list 'quote name) |
| 1583 (cond ((not macrop) | 1583 (cond ((not macrop) |
| 1584 code) | 1584 code) |
| 1585 ((eq 'make-byte-code (car-safe code)) | 1585 ((eq 'make-byte-code (car-safe code)) |
| 1586 (list 'cons ''macro code)) | 1586 (list 'cons ''macro code)) |
| 1587 ((list 'quote (if macrop | 1587 ((list 'quote (if macrop |