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) |