Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 4013:29f808aa587f
(byte-compile-setq-default): Handle multiple pairs args like setq (as
the setq-default subr does).
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Wed, 07 Jul 1993 03:06:28 +0000 |
| parents | cac16b165691 |
| children | 7908fc6e4fb9 |
comparison
equal
deleted
inserted
replaced
| 4012:26e0209b6e56 | 4013:29f808aa587f |
|---|---|
| 2418 ;; (setq), with no arguments. | 2418 ;; (setq), with no arguments. |
| 2419 (byte-compile-form nil for-effect)) | 2419 (byte-compile-form nil for-effect)) |
| 2420 (setq for-effect nil))) | 2420 (setq for-effect nil))) |
| 2421 | 2421 |
| 2422 (defun byte-compile-setq-default (form) | 2422 (defun byte-compile-setq-default (form) |
| 2423 (byte-compile-form | 2423 (let ((args (cdr form))) |
| 2424 (cons 'set-default (cons (list 'quote (nth 1 form)) | 2424 (if args |
| 2425 (nthcdr 2 form))))) | 2425 (while args |
| 2426 (byte-compile-form | |
| 2427 (list 'set-default (list 'quote (car args)) (car (cdr args)))) | |
| 2428 (setq args (cdr (cdr args)))) | |
| 2429 ;; (setq-default), with no arguments. | |
| 2430 (byte-compile-form nil for-effect)) | |
| 2431 (setq for-effect nil))) | |
| 2426 | 2432 |
| 2427 (defun byte-compile-quote (form) | 2433 (defun byte-compile-quote (form) |
| 2428 (byte-compile-constant (car (cdr form)))) | 2434 (byte-compile-constant (car (cdr form)))) |
| 2429 | 2435 |
| 2430 (defun byte-compile-quote-form (form) | 2436 (defun byte-compile-quote-form (form) |