mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-setq-default): Handle multiple pairs args like setq (as

Browse source 
the setq-default subr does).
This commit is contained in:
Roland McGrath 1993-07-07 03:06:28 +00:00
parent 23de57664f
commit 8ccc377f96
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/bytecomp.el
View file

@ -2420,9 +2420,15 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(setq for-effect nil)))
(defun byte-compile-setq-default (form)
(byte-compile-form
(cons 'set-default (cons (list 'quote (nth 1 form))
(nthcdr 2 form)))))
(let ((args (cdr form)))
(if args
(while args
(byte-compile-form
(list 'set-default (list 'quote (car args)) (car (cdr args))))
(setq args (cdr (cdr args))))
;; (setq-default), with no arguments.
(byte-compile-form nil for-effect))
(setq for-effect nil)))
(defun byte-compile-quote (form)
(byte-compile-constant (car (cdr form))))